|
|
;;;旋转复制实体(以角度）
( F1 o" q7 d( i8 S8 k) D. `; r2 Y
(defun c:copyrt(/ ss r p1 osm jd s)
# b& Y! h4 o" @5 L4 h- s(setvar "cmdecho" 0)1 `7 @5 T1 r. {) a& [ I
(setq jd (getvar "auprec")) S# m* y; m$ ]/ Q- [: K
(setvar "auprec" 5)
, a3 J6 O: g1 q4 J' p H(setq osm (getvar "osmode"))
' f- y0 _" A/ G8 A(princ "\n ***** 旋转复制实体程序 ***** ")
: \3 V( O6 V/ d4 U5 V(princ "\n 请选择旋转复制的实体:")# J$ A1 r- c' P! p9 l5 \
(setq ss (ssget))
- i2 P* n- y) S( J6 W(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
0 `. H: Y3 E7 |# W6 J' ~4 k# ?(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
" {6 Y( e X% L3 l M4 a(setq p1 (getpoint "\n 请选择圆心点:"))
: y" {" s& h; m" F4 y& ]4 ?8 _(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
% h8 L0 m- E6 c/ n(command ".copy" ss "" p1 p1)
9 K0 O0 S' o8 N: }& r(command ".rotate" ss "" p1 "r" "0" pause)9 r/ }# M# g( x$ ? Z8 M
(princ "\n 旋转复制完成!")
7 K: {9 H* F- _! w0 l& S/ W# x4 h8 ?(command ".redraw")
+ ]/ p6 P: H8 U9 K9 }) Z(setvar "osmode" osm). M5 a& v' g5 ]- _
(setvar "auprec" jd)
( m5 e' ]5 A, H' P% Y(princ)$ ~" p% Y' Z& |: f+ h7 A! x
) |
|
发表于 2007-12-30 15:08