|
|
;;;旋转复制实体(以角度）
# c3 q9 {8 j; v5 E( l8 ^. e/ I7 X& G! D2 r
(defun c:copyrt(/ ss r p1 osm jd s)
4 g; y1 k* @8 m: R(setvar "cmdecho" 0)( l. E5 @5 Z. B( J0 e
(setq jd (getvar "auprec"))
! f: H; {( ?7 p* p/ y6 |- S X(setvar "auprec" 5)8 q( f* i+ a+ A1 a) H$ o
(setq osm (getvar "osmode"))
* G1 [( r* N( A5 q! m; R- B; L(princ "\n ***** 旋转复制实体程序 ***** "). ^' T& H a4 F9 [' k
(princ "\n 请选择旋转复制的实体:")2 q x! G3 K+ L7 z! w q
(setq ss (ssget))
/ O7 S& g2 z* l5 J Y(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
' o* p+ a3 a+ K+ J# d(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
% M/ h8 W1 e( m9 ?; {' G(setq p1 (getpoint "\n 请选择圆心点:"))
& L% x0 k! K8 |6 _* R2 n! N+ E(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
: b3 G8 x9 R! f) g+ y(command ".copy" ss "" p1 p1)
& g& d8 U; D. c& n9 U6 \ D. ~5 t5 Z(command ".rotate" ss "" p1 "r" "0" pause)
9 D9 T; Q$ O3 E% i1 N* {; Y(princ "\n 旋转复制完成!")
9 c& L3 ^2 P; i N ^3 w6 Q(command ".redraw")' c9 X8 {$ b( g0 J1 m' i
(setvar "osmode" osm)$ d) }3 a; z0 U f1 @( }" Y2 @ x
(setvar "auprec" jd)
2 }( B+ A/ Q& i7 T(princ)1 O S$ Q9 ~! F; D4 v( a; O
) |
|
发表于 2007-12-30 15:08