|
|
;;;旋转复制实体(以角度）
8 x7 e) Z3 L" R. W n! P: m7 z
0 @) @+ r+ E- B% q( W' m(defun c:copyrt(/ ss r p1 osm jd s) f5 w% o% o3 I( Q6 `$ c3 D
(setvar "cmdecho" 0)7 e5 U- j9 D- Q j+ Y
(setq jd (getvar "auprec"))
, F0 R m# h" i) G; t(setvar "auprec" 5)" c9 P+ m6 V% f0 g9 j8 o& k) c
(setq osm (getvar "osmode"))
" V, v- ]1 c* p5 F3 w(princ "\n ***** 旋转复制实体程序 ***** ")8 x/ q0 w9 h. ?2 X1 [# J
(princ "\n 请选择旋转复制的实体:")
, [' a$ a7 [6 J- P(setq ss (ssget))$ d6 B6 ^2 r$ Z- k% w
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))8 ]% M: ?6 C9 d. ^
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))) d( q3 [2 [3 ~4 D- c0 b
(setq p1 (getpoint "\n 请选择圆心点:"))
* n4 Q, h3 O" Z) S: `/ x(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
/ W3 O* D5 e/ P! A(command ".copy" ss "" p1 p1)
: G0 M) \% \* y) x" a; T1 k(command ".rotate" ss "" p1 "r" "0" pause). e6 z. }, f& x. Y& T
(princ "\n 旋转复制完成!")
. O( i; I: q) w5 |2 S(command ".redraw")$ q8 F2 s& u( H" o: I
(setvar "osmode" osm)3 W% I. i, A W0 ?' u1 e6 b+ n
(setvar "auprec" jd)
. Z8 y! q. O0 o& ?: W6 j(princ)1 a5 B3 u E- z" s& i ]' V
) |
|
发表于 2007-12-30 15:08