|
|
;;;旋转复制实体(以角度）
' s$ T) \, l. D4 ^ y3 p& c. w
: x# Z# x; b% P; n(defun c:copyrt(/ ss r p1 osm jd s). }( N( Q' z2 k) f k; p4 u
(setvar "cmdecho" 0)
! p2 {, \ M( p(setq jd (getvar "auprec"))4 q6 \4 b8 ]8 L# |
(setvar "auprec" 5)
* v# _& v& ^& }(setq osm (getvar "osmode"))
( T3 ^( d7 K$ V4 d8 O1 g9 Z(princ "\n ***** 旋转复制实体程序 ***** ")
9 X0 v9 `# T8 @(princ "\n 请选择旋转复制的实体:") t" m. u+ ^$ m1 Q% G
(setq ss (ssget))
/ `. K8 V K" B; P4 u9 N: Z# M(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))1 J' ^6 l* l" W: l
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))3 Y7 Z- r) r* B* _ Y
(setq p1 (getpoint "\n 请选择圆心点:"))
& a% `9 l& F9 X5 S" r5 F: ^(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). b- f6 C7 B: d
(command ".copy" ss "" p1 p1)
" G3 s* M: L5 Y8 g" ]; b(command ".rotate" ss "" p1 "r" "0" pause)% ?% p* ^: z* _, T% r/ [8 ^
(princ "\n 旋转复制完成!"); G. `" L+ R G# f: |. }
(command ".redraw")
6 ~+ L5 r; p& ?* Y6 g O1 J( a, t(setvar "osmode" osm)
, W* m: M) c9 K6 R( i ?6 {( u(setvar "auprec" jd)
5 j9 }% z; G0 G4 U. p(princ)
+ A, i \# M$ K) |
|
发表于 2007-12-30 15:08