|
|
;;;旋转复制实体(以角度）
! d$ ]& ^# _0 f& J5 h. @5 j; I. X3 U6 l# K' J3 q
(defun c:copyrt(/ ss r p1 osm jd s)$ [* U& x/ Q1 {. K1 V2 \
(setvar "cmdecho" 0)0 o* x) j2 Q/ L5 c6 ]! q, I6 u
(setq jd (getvar "auprec"))
& P e( Q" ` Q(setvar "auprec" 5)% V. T2 K% _# I. _" T5 d
(setq osm (getvar "osmode"))
) j' d- N$ L3 w+ I2 l% X( P$ z+ t(princ "\n ***** 旋转复制实体程序 ***** ")
, l1 p& ~# y/ I! `, K(princ "\n 请选择旋转复制的实体:")
8 _1 k" {, w+ q0 j5 U. Z. Z, m) ]) f(setq ss (ssget))/ }. P7 e, u' ~& k }4 z2 H6 A
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))" \: z/ v1 a: v* R. g) C1 O! {
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))/ H& N' h& p6 ]$ s- s7 j6 m; S) k
(setq p1 (getpoint "\n 请选择圆心点:"))
* H2 A: P0 m! h' Z" A0 \(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
# l6 Q1 R* C# H, W, u7 h* W! O3 S(command ".copy" ss "" p1 p1)! O7 I; R: T2 w3 i) L0 g+ B* {
(command ".rotate" ss "" p1 "r" "0" pause)
z: s$ h" v4 R+ `3 ~5 W(princ "\n 旋转复制完成!")
2 I& p5 r! N2 e* J(command ".redraw")
' `0 |& j% _4 e+ I# t; q(setvar "osmode" osm)5 g- K& x" v. d) A
(setvar "auprec" jd)# o# X% l! g0 I
(princ)
. R8 f" g+ z' I& S) |
|
发表于 2007-12-30 15:08