|
|
;;;旋转复制实体(以角度） m# \% | g3 Y5 j1 W
! c9 j0 f$ \$ k* H(defun c:copyrt(/ ss r p1 osm jd s)
8 {4 N2 Z& y& q(setvar "cmdecho" 0)
! W0 _) M9 } `; [* A(setq jd (getvar "auprec"))
" y5 E1 m) a! h(setvar "auprec" 5)
5 H; X2 g8 w6 ~7 u9 ], K- B(setq osm (getvar "osmode"))4 @; }+ B6 r: `$ W8 y/ `# k
(princ "\n ***** 旋转复制实体程序 ***** ")
1 S; a7 N8 b5 G) B! u(princ "\n 请选择旋转复制的实体:")
% r5 l) R* Y4 z- u( v$ f% u R(setq ss (ssget))0 f4 P) F. d$ `7 H$ }3 t! j, K
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget)))). r! F2 {& {% u0 ?
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
' |7 c/ R: Y7 g; f' a(setq p1 (getpoint "\n 请选择圆心点:"))
b& o! Q/ {2 C' B- n' h' D(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
2 U* }" \5 K5 x$ A* Y' S3 N(command ".copy" ss "" p1 p1)+ j* k4 ^, ~4 F7 A3 q* N
(command ".rotate" ss "" p1 "r" "0" pause)
6 W9 m7 N) c3 r( ?% Z(princ "\n 旋转复制完成!")
8 \# O2 b5 Q+ ~6 A1 f5 [7 X: H7 w9 @(command ".redraw")( Z7 N) z, o2 }+ }) I
(setvar "osmode" osm)' w( `' C9 t5 R5 @8 {
(setvar "auprec" jd), }/ Q4 _* N6 b4 M; h4 v
(princ)
; B% e7 z% f& a2 x1 i) |
|
发表于 2007-12-30 15:08