|
|
;;;旋转复制实体(以角度）9 |1 G+ j, i0 Z2 R1 S/ M
H1 q* E, d' ~' n4 @+ @8 j8 F/ r
(defun c:copyrt(/ ss r p1 osm jd s)
. D4 w* `, P1 s4 A5 i(setvar "cmdecho" 0)
g m# E6 i, y(setq jd (getvar "auprec"))8 u7 S0 @% O* R8 y. C# i$ W. D' p
(setvar "auprec" 5)
8 w" Z% u) B. c) ^(setq osm (getvar "osmode"))
8 ^) E6 Q- K: K2 i" |. s2 F3 F(princ "\n ***** 旋转复制实体程序 ***** ")
3 S* L% a( T# T& n- R( \+ a(princ "\n 请选择旋转复制的实体:")/ C1 r7 V, {+ ^# ?( I
(setq ss (ssget))& V: N8 W. }4 `! ]$ z
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))7 R: l/ L I4 Y! O0 x4 y
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
" m- [% T" ^: d. N- @# d(setq p1 (getpoint "\n 请选择圆心点:"))& C4 h, Q7 L! m5 J- T
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))4 C$ L1 i$ F- r, i
(command ".copy" ss "" p1 p1)
: K b, f8 p! v8 b% |6 |(command ".rotate" ss "" p1 "r" "0" pause)! J/ }* o2 ~8 J( D
(princ "\n 旋转复制完成!")
4 f1 B9 h# `9 e& O; A) O" W(command ".redraw")) a$ g! h4 x" z" {: z: o
(setvar "osmode" osm)
/ Q% u/ J0 h( ?/ r' K- d3 G(setvar "auprec" jd)
$ h0 e0 J" I Q1 U- X) f+ V(princ)
/ G5 F7 E5 m! c) |
|
发表于 2007-12-30 15:08