|
|
;;;旋转复制实体(以角度）$ ?- D5 t! f) @
" Y0 h8 _+ P+ Q/ |4 V) m# y/ I
(defun c:copyrt(/ ss r p1 osm jd s)
2 A4 g# k5 T; y) E(setvar "cmdecho" 0)
/ f( _! g7 ?/ ]2 r9 S(setq jd (getvar "auprec"))' M. I* M/ s+ J8 z3 e8 x1 a
(setvar "auprec" 5)* |: z1 {5 t( R7 |$ _& k0 o4 s
(setq osm (getvar "osmode"))
. x* H H2 Q+ y% w# h(princ "\n ***** 旋转复制实体程序 ***** ")
! G. z* D- x/ C! l4 f+ z% j5 y(princ "\n 请选择旋转复制的实体:")
0 \6 [' i( {0 ~; L6 M9 ^+ r(setq ss (ssget))
9 w1 A! @* E. n1 ` C(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))) C4 L7 u) r8 O
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))6 M4 y6 A3 w& P+ A1 k
(setq p1 (getpoint "\n 请选择圆心点:"))
7 Y) P+ j0 _3 o% A(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
2 X2 N: S+ h. W) Z. {7 O3 \' B(command ".copy" ss "" p1 p1) n; s; f' |: `, Z2 s, s X; Q$ x
(command ".rotate" ss "" p1 "r" "0" pause); P" c2 K" M+ s$ d* j$ H
(princ "\n 旋转复制完成!")5 g: u& }) E, G, X$ W
(command ".redraw")) z, e5 K$ K! |4 V7 S8 F" n4 {# J
(setvar "osmode" osm)$ Z: I! a8 T- F5 f# G
(setvar "auprec" jd)' i5 s: f# v, `
(princ)
/ B% _8 D# {+ F& K/ H) |
|
发表于 2007-12-30 15:08