|
|
;;;旋转复制实体(以角度）. S" f4 q1 U: ?. Z7 E) e
+ Q& C' y6 Q; L" s. ?( \(defun c:copyrt(/ ss r p1 osm jd s)3 @6 i0 N) {' s- D" ?. {
(setvar "cmdecho" 0) K5 a/ U, W/ Y
(setq jd (getvar "auprec"))+ v: M0 W) m3 q& q
(setvar "auprec" 5)
2 W4 h# e1 ]+ Y' C( Y& S(setq osm (getvar "osmode"))
8 G8 S# ]2 ~0 y$ e(princ "\n ***** 旋转复制实体程序 ***** ")
% I; {1 i" w9 G! h/ v(princ "\n 请选择旋转复制的实体:")
( ]" e( m. L S( }(setq ss (ssget))
: s2 t4 R+ l9 l+ F. i0 m2 Y(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))! A% \& {, y$ d" F9 d# X4 n6 _
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
; }- ?5 C. ~/ E4 z l1 X7 e(setq p1 (getpoint "\n 请选择圆心点:"))
' m5 ^$ [0 ?& Z$ C s V9 [(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))7 r2 m& Z) z5 V
(command ".copy" ss "" p1 p1) n) T) L, A8 T7 f, M( M
(command ".rotate" ss "" p1 "r" "0" pause)5 r8 |; [0 M( [+ l
(princ "\n 旋转复制完成!")
4 ]% l, k! E. K2 G# n(command ".redraw")
1 S) Q4 r/ L# ]* x(setvar "osmode" osm)
. p4 `# v/ W' f8 F1 @1 h' `(setvar "auprec" jd)
6 h9 N: l5 c5 G(princ)
/ r8 J/ `% }8 c+ i. _( J# Y- [4 r) |
|
发表于 2007-12-30 15:08