|
|
;;;旋转复制实体(以角度）
- r$ \8 x" C) M! ], o, u/ n7 T; m7 j6 W
(defun c:copyrt(/ ss r p1 osm jd s)$ W0 z, D. @8 V/ p5 i
(setvar "cmdecho" 0)3 G4 o: k- X; \( K. ]8 V, a
(setq jd (getvar "auprec"))7 Z: I- M& O0 D8 Q( h1 Z! d8 o
(setvar "auprec" 5)# e% d$ v3 K. w4 k: a9 Q
(setq osm (getvar "osmode")): N9 @- U2 R2 G. u! I
(princ "\n ***** 旋转复制实体程序 ***** ")
- @& N9 i6 z3 M$ p. [& V d9 V(princ "\n 请选择旋转复制的实体:")6 x) ]& h( p& @8 ]2 i+ ]; p
(setq ss (ssget))% I1 ^9 Y! t# U+ o
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
6 R3 C+ j/ ^5 e3 |& j4 S(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
( O* B# f: g! ~(setq p1 (getpoint "\n 请选择圆心点:"))7 ?) J' h2 c3 `+ t6 G% U7 ^
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))- R8 z4 ~5 s; u- U
(command ".copy" ss "" p1 p1)3 \9 [+ l5 [% q: M# p
(command ".rotate" ss "" p1 "r" "0" pause)
, t8 L X+ b0 ]9 \(princ "\n 旋转复制完成!")
4 H3 i/ R3 \ S(command ".redraw")
" z" q5 E3 ^$ l$ a* l(setvar "osmode" osm)5 w* e( i {& G1 |
(setvar "auprec" jd), w7 Z5 e* n/ t. t. I6 e: u
(princ)
+ N) n: @( V: T) |
|
发表于 2007-12-30 15:08