|
|
;;;旋转复制实体(以角度）: O/ R* z. p' W6 w7 z9 K
$ o$ I: {& ]# V3 \. I+ B
(defun c:copyrt(/ ss r p1 osm jd s)
& Z: y. H% t4 {2 y5 [9 @(setvar "cmdecho" 0)
: ~2 W U$ i4 j# z(setq jd (getvar "auprec"))2 t9 i1 r& h- o: M1 \- L; h. x/ A2 K$ a
(setvar "auprec" 5)
& ]3 Q- n z' ?5 w2 }/ i(setq osm (getvar "osmode"))
9 t' }2 x4 C+ P& b(princ "\n ***** 旋转复制实体程序 ***** ")
' G8 N9 n7 a% V; b- }(princ "\n 请选择旋转复制的实体:") ]' U* o6 |4 b- |5 a
(setq ss (ssget))+ C' T! h$ y4 I7 L% k+ m3 M
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
, g/ {# j7 J9 ~( u7 {- s( n6 X(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
6 F7 m1 L2 r& q/ M- Y/ x(setq p1 (getpoint "\n 请选择圆心点:"))1 B8 j, t# z1 Z3 P% _3 v
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))9 E5 I1 s; a2 R. M9 E
(command ".copy" ss "" p1 p1)
: e5 i3 Z/ K3 O$ F(command ".rotate" ss "" p1 "r" "0" pause)
9 f4 [8 @! ]% {0 ^$ w- i(princ "\n 旋转复制完成!")
! y: Q9 h+ }% {5 c% N3 k' r c(command ".redraw")
. W6 n" l* C/ L: |" R$ d* `# K1 E0 A(setvar "osmode" osm)1 ~. c' u. o* S, \# G( Z5 Q1 f7 L: c
(setvar "auprec" jd)% k' N% C$ h: d# B, e
(princ)
( J3 C$ ^# {+ u1 P& ]) |
|
发表于 2007-12-30 15:08