|
|
;;;旋转复制实体(以角度）! u: e2 Q: ?/ L+ C" o) w0 m& ?
: i: m2 T* |1 h6 U1 E ?(defun c:copyrt(/ ss r p1 osm jd s)
* J j' f$ W# C+ S0 E; g( {(setvar "cmdecho" 0)
9 O2 b: e7 J3 F' _; j2 G(setq jd (getvar "auprec"))& j5 h5 |& q, \5 ^- t) T- q" a
(setvar "auprec" 5)
" |$ B; S- @( S6 x0 x' P" R(setq osm (getvar "osmode"))
4 i' [7 r' S- [3 H% S0 y(princ "\n ***** 旋转复制实体程序 ***** ")
! |( y* |0 Y/ f(princ "\n 请选择旋转复制的实体:"); z1 r& G0 [: f! B1 \
(setq ss (ssget))
& |3 W* z3 e( S+ n d(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
% x" O5 s7 d- _(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
1 n8 f5 Y; X% n" A7 P6 n" I(setq p1 (getpoint "\n 请选择圆心点:"))
$ B! R+ {2 s4 j2 W; Q- n) A8 b* S(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
6 g$ F S4 W8 T% _(command ".copy" ss "" p1 p1)6 L. _* q1 Q1 g& o
(command ".rotate" ss "" p1 "r" "0" pause)
: L% u2 y& D9 C1 R8 O6 } a(princ "\n 旋转复制完成!")
" u6 C3 _( I- b# b(command ".redraw")1 t0 J- c7 Y1 ~+ x5 U$ C; w# N, Y
(setvar "osmode" osm)
' t5 ?/ g) o3 ?" R- I; w0 L(setvar "auprec" jd)
; B' q W+ {* S(princ)4 P+ g- o' v3 R4 i
) |
|
发表于 2007-12-30 15:08