|
|
;;;旋转复制实体(以角度）
5 \( r S. W* V/ r z. V! }1 i8 E F7 v2 W
(defun c:copyrt(/ ss r p1 osm jd s)! e! n+ ^2 _' q" ~6 ]( v
(setvar "cmdecho" 0)+ u2 ]; h7 l+ e7 {* j
(setq jd (getvar "auprec"))" o0 W9 R8 Z& G; G# A9 d
(setvar "auprec" 5)" w: v9 _) s+ a* o% }
(setq osm (getvar "osmode"))2 R6 a( n7 G0 |* V1 \+ M( T
(princ "\n ***** 旋转复制实体程序 ***** ")
3 [& ]& o1 K/ ~3 B4 q(princ "\n 请选择旋转复制的实体:")9 Q9 ^" k) j" @; C$ t
(setq ss (ssget))9 n% w0 u6 ?" r" D# F
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))7 u$ h0 u9 F5 b' M5 Z4 @! z
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
, ^, h/ \, q. ]1 M# M- A/ W! c. `7 X(setq p1 (getpoint "\n 请选择圆心点:"))
4 ]; k& i/ h' U. z1 g4 o(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
& M. i$ p* @# p. h, D2 T(command ".copy" ss "" p1 p1)
% l/ D# |- c) c" \. c(command ".rotate" ss "" p1 "r" "0" pause)
; _0 f8 e+ n' C; l, x7 l(princ "\n 旋转复制完成!")
$ g; ]1 I/ }3 j7 O r7 G(command ".redraw")0 Y9 a! e/ G+ r }
(setvar "osmode" osm). R& \ ^8 ]* y% T* L
(setvar "auprec" jd)
" i- t( i1 d6 }# V* u3 @% `1 {(princ) R" M8 J" |& z! l) z* z
) |
|
发表于 2007-12-30 15:08