|
|
;;;旋转复制实体(以角度）
( s7 W g7 y' p7 U
9 Y( D3 s; J5 A" z) r( Z. F/ i' h(defun c:copyrt(/ ss r p1 osm jd s)
' T& t! i. k; m& R(setvar "cmdecho" 0)
$ H4 l4 y0 j; o u; |) r! l1 e, I(setq jd (getvar "auprec"))
; G) {& G! Z- x+ ~(setvar "auprec" 5)
; U C) S+ K. W* x3 a(setq osm (getvar "osmode")): B. Q! K- |: P* T
(princ "\n ***** 旋转复制实体程序 ***** "); K/ Z ]4 l2 c% F0 C* Q
(princ "\n 请选择旋转复制的实体:")
( z1 `$ W5 ~& k' k; w: C(setq ss (ssget))# P/ |/ p. u9 y
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))4 H4 Z, f) T- c. h( c2 {- O
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))) J+ w/ U* G* K# t
(setq p1 (getpoint "\n 请选择圆心点:"))' ?/ i5 {. Q6 W5 ^5 h+ I
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))6 B7 g3 l9 ^& ?. u' L
(command ".copy" ss "" p1 p1)
4 l- a# K9 F; K) e* x' V# v(command ".rotate" ss "" p1 "r" "0" pause)
1 F* \- X" ^3 h2 F(princ "\n 旋转复制完成!")
" O) Z! ]. a2 u7 ^(command ".redraw")
5 x& |5 h& r) \; ~6 ~" K6 r(setvar "osmode" osm)3 p; L! R9 {& H+ M9 f! h
(setvar "auprec" jd)
$ w1 a6 m3 t, r/ w; C# i(princ)
0 K* F9 \% r. ^/ G Y; } g+ i) |
|
发表于 2007-12-30 15:08