|
|
;;;旋转复制实体(以角度）
9 `; m7 T0 Q% l, d+ B- @2 O+ W' A
0 P# b! u1 y D7 B: j8 D(defun c:copyrt(/ ss r p1 osm jd s)- E4 a; Z; s% }$ I3 V
(setvar "cmdecho" 0)- O9 n2 x" Y1 S6 S4 l8 ]- W
(setq jd (getvar "auprec"))' g5 h! D B* Z# I7 c& q6 [
(setvar "auprec" 5). y' X' m# _% c
(setq osm (getvar "osmode"))
! X) @& A4 g3 q: u* x2 i5 P(princ "\n ***** 旋转复制实体程序 ***** ")
8 e" W/ I1 p T: _/ [(princ "\n 请选择旋转复制的实体:")
: F- d" F z. e(setq ss (ssget))
( a0 R4 |0 [ q7 h4 \* A(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
- ?. @! F. D: P* W. F V! R e7 e(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
( F% }$ n U9 O4 L, }) T8 V(setq p1 (getpoint "\n 请选择圆心点:"))7 e: }0 z: x/ F+ A0 q( m2 _& {: x) w
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
7 x) e; I2 i5 S8 Q(command ".copy" ss "" p1 p1)
% p4 F! ^8 s" R* n4 r- ~, \. Q(command ".rotate" ss "" p1 "r" "0" pause)% E0 H! r2 u0 o
(princ "\n 旋转复制完成!")
/ R5 E# T. p% M- _- C9 j' t(command ".redraw"); k& m$ M0 q6 N) w1 m' U# ]; b
(setvar "osmode" osm)
/ G+ E( a* F }2 c* I, Z(setvar "auprec" jd)
/ G! D. l* }) C$ ](princ)- e4 n# }. f. F9 b! {. |7 r
) |
|
发表于 2007-12-30 15:08