|
|
;;;旋转复制实体(以角度）4 d% F$ L, R+ z2 R! h3 N
+ W3 ~# t6 ]+ O: V(defun c:copyrt(/ ss r p1 osm jd s)
8 J2 ?4 f8 C4 T$ Y$ u& y. ^' f) G(setvar "cmdecho" 0)
: \; y) _5 x* g* }( e7 r) r6 s(setq jd (getvar "auprec"))
4 S9 z x' V. [; E(setvar "auprec" 5)
T/ r2 g# r& R, j: Z(setq osm (getvar "osmode"))7 B1 N6 f( Z- X' h: j/ J
(princ "\n ***** 旋转复制实体程序 ***** ")
4 E$ E7 o+ R; R Z7 Y(princ "\n 请选择旋转复制的实体:")
4 F& h m( |" U. H' ?+ }: D8 |& v(setq ss (ssget))
6 j; K5 Q, d& o% G(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
+ l, F% x7 x, e. G" |(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))1 d; g2 n4 |" a7 t! g' @; k- G) j; ]
(setq p1 (getpoint "\n 请选择圆心点:"))3 c, j% k: Q" q
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
# y9 b, I6 Y- y# e( L+ n- B(command ".copy" ss "" p1 p1)
$ b( {' {) @+ W1 G5 [(command ".rotate" ss "" p1 "r" "0" pause)+ M; J* a q: M6 i0 [/ X
(princ "\n 旋转复制完成!")$ u. [! H1 P6 V) O6 k8 b3 F" W
(command ".redraw")) W! H( y& y/ @3 r
(setvar "osmode" osm)/ ]% C8 o; N! y, K6 N
(setvar "auprec" jd)! v* g! t# Z+ y) v
(princ)* N( @% p# p4 `/ T$ f( }" x
) |
|
发表于 2007-12-30 15:08