|
|
;;;旋转复制实体(以角度）
& X+ \. ?- \6 t6 r- R* J1 |* ]* ]2 b
(defun c:copyrt(/ ss r p1 osm jd s)- j7 l9 e0 q( |- D3 z: ~
(setvar "cmdecho" 0)
( U! R/ A0 L" A, l8 \(setq jd (getvar "auprec"))' \* R8 v" H& d7 |$ u
(setvar "auprec" 5)1 @/ k5 a" ?- }
(setq osm (getvar "osmode"))( V7 Q7 t: D1 k
(princ "\n ***** 旋转复制实体程序 ***** ")
# ^! k- F- p @) } v(princ "\n 请选择旋转复制的实体:")
- N3 C; c2 d9 C; k7 N: ]- p(setq ss (ssget))/ u* h j$ y/ \7 c* S
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
. O, p$ F7 w- L(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))4 \4 k4 O" Z! t4 w3 |; A; B* }0 n
(setq p1 (getpoint "\n 请选择圆心点:"))
' P/ d9 ]. |! o) |(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
( c0 W" \" P8 s(command ".copy" ss "" p1 p1)
. Y8 G+ }( z F(command ".rotate" ss "" p1 "r" "0" pause)2 r4 t, R0 B% @: f; o: B6 V
(princ "\n 旋转复制完成!")
& B: W* g2 s C4 @+ ^0 N' J(command ".redraw")
1 ~ ^# i% z! A(setvar "osmode" osm)
1 d+ S& C; Z7 [, C' A, Z(setvar "auprec" jd)
3 c0 O* \; p. t0 Y/ j, d# V(princ)% A! |, x$ v' Y3 R, ]
) |
|
发表于 2007-12-30 15:08