|
|
;;;旋转复制实体(以角度）5 N, P6 }9 f8 F" x
% L# v6 T9 r* t9 Z( C
(defun c:copyrt(/ ss r p1 osm jd s); h( u: i- @* F! L0 C
(setvar "cmdecho" 0)* E+ s( o8 I9 H: B) J! f! u
(setq jd (getvar "auprec"))
' B) n9 I. R2 [& z(setvar "auprec" 5)
1 k! D' B5 n) ?(setq osm (getvar "osmode"))
" Q9 \3 G( J/ k(princ "\n ***** 旋转复制实体程序 ***** ")9 D0 o# j+ h4 W
(princ "\n 请选择旋转复制的实体:")
: B0 I7 L8 E( l0 d% V3 J. _9 u(setq ss (ssget))6 M; F& y3 q" A6 w& o) e
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
5 S9 W+ W9 @9 s1 r% O(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
4 [4 b5 O0 n2 d; D$ `) O* n% M8 ?(setq p1 (getpoint "\n 请选择圆心点:"))/ M# f: R5 h8 v0 \4 Y% T; o& W7 c
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
6 p0 e; F0 L4 W8 X2 T. `' m(command ".copy" ss "" p1 p1)
' Q, k& \7 s& l5 O6 u(command ".rotate" ss "" p1 "r" "0" pause)- }8 j P( [- q) ^1 S4 h5 Z" K+ \8 B
(princ "\n 旋转复制完成!")9 m% D/ o" N- E9 P: B% p- l& g
(command ".redraw")
1 Y, N1 c9 z p' N4 }(setvar "osmode" osm)
5 B6 c* B( [( S. [0 ?' f(setvar "auprec" jd)* _$ b/ {# r( [ H
(princ)* }, e W. a! R- [1 u3 P
) |
|
发表于 2007-12-30 15:08