|
|
;;;旋转复制实体(以角度）, F/ r, p- W2 x5 [/ F
1 s6 `0 K. x4 t3 Q( V$ Q' `(defun c:copyrt(/ ss r p1 osm jd s)! F2 p+ k7 W8 r6 j
(setvar "cmdecho" 0)
/ Q5 a( [2 E0 Q1 v& c(setq jd (getvar "auprec")), \& C( N0 ]- E/ J5 Y4 r+ `3 Q, g) u
(setvar "auprec" 5) t( A# T4 W3 \2 s" E0 P5 Z
(setq osm (getvar "osmode"))
2 `9 g3 y- y0 H) U/ ~(princ "\n ***** 旋转复制实体程序 ***** ")7 e3 q4 d4 N: h7 E$ k
(princ "\n 请选择旋转复制的实体:")
. _* X: H3 o: Q# r! N; _(setq ss (ssget))+ y" D. b! n. W1 I& T
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))% O W- M" H( W: A6 K4 R5 z
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))6 f; R7 V: u3 G v1 w
(setq p1 (getpoint "\n 请选择圆心点:"))& |7 n( f9 k; D- J8 L- W/ T8 N
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
& k9 N1 C4 g( b3 W/ m(command ".copy" ss "" p1 p1)) @& B4 S4 c |% v" P
(command ".rotate" ss "" p1 "r" "0" pause)
' x2 e3 j& F4 H4 _3 A* g(princ "\n 旋转复制完成!")6 J( j+ }3 g8 E& `& C: D
(command ".redraw")
7 R* E- M1 \2 G4 N$ m(setvar "osmode" osm)( N9 E. g3 c9 p' |- N! W
(setvar "auprec" jd)
) Z; M7 C4 U: g(princ)8 P2 ^( ~# A3 C, E, I
) |
|
发表于 2007-12-30 15:08