|
|
;;;旋转复制实体(以角度）
+ F- N0 n2 t3 y! a& q, Y# |' S* Q8 m1 X* C7 u% I
(defun c:copyrt(/ ss r p1 osm jd s)
) p/ `3 Y5 L! Q' P(setvar "cmdecho" 0)
7 p8 U4 p- u2 m1 b(setq jd (getvar "auprec"))
: }5 E" r. G7 M& d+ a u(setvar "auprec" 5)
r; {3 n) w. B) \" T6 H0 S(setq osm (getvar "osmode"))' X6 t, L& p5 A- V# G
(princ "\n ***** 旋转复制实体程序 ***** ")
. r w. ?( Y4 I( S( @$ ]; A8 g(princ "\n 请选择旋转复制的实体:")
/ @3 J5 S0 S! y8 ?(setq ss (ssget))/ D& ]3 t/ K, H l; ?
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
) y9 }. m6 e' I8 C9 Z; p# t$ A(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
3 c. \7 D6 X& X! a s(setq p1 (getpoint "\n 请选择圆心点:"))! O0 P& z- d/ Q2 g% _! \6 ]8 K& C& z2 k
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))1 q. D/ u5 H7 Y7 \8 f: L
(command ".copy" ss "" p1 p1)1 k6 }! e7 R# x7 d, ]
(command ".rotate" ss "" p1 "r" "0" pause)1 w% v1 n8 D9 @4 t' g0 X5 }* _
(princ "\n 旋转复制完成!")+ i; t7 R% ?. o9 |& s3 `
(command ".redraw")
/ D+ k d) j( E: Q3 ^(setvar "osmode" osm). k; d" J5 o i! R1 `" U; q
(setvar "auprec" jd)' | {/ U; W8 h$ J; d# R
(princ)
# R H4 s- B& |& I x1 O) |
|
发表于 2007-12-30 15:08