|
|
;;;旋转复制实体(以角度）( S G9 m) z0 \, j3 |. \
/ [8 V) J; [! R& B- |(defun c:copyrt(/ ss r p1 osm jd s)
1 s0 A( O" r6 q9 c% T(setvar "cmdecho" 0)3 d/ m+ J* L- o9 U7 Y# x, `
(setq jd (getvar "auprec"))
7 f6 o1 M5 t& t# T' e1 }/ u(setvar "auprec" 5)
' u$ w1 S' s+ g' u* |, @) B(setq osm (getvar "osmode"))
# Y" M6 ?' n5 P* _# ?(princ "\n ***** 旋转复制实体程序 ***** ")
6 @& y" o X: t. M8 y(princ "\n 请选择旋转复制的实体:")
% u: V1 p( h" r! `(setq ss (ssget))+ s( R% m$ m/ `1 s( X3 O# |
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
0 \/ {) b6 C+ Q6 w! v' S(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
9 }6 g ]+ h. F$ i(setq p1 (getpoint "\n 请选择圆心点:"))
; Q/ r: Z0 s& y" Q5 o& m2 I* u(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
6 V6 x P" q+ l: [* e5 c d(command ".copy" ss "" p1 p1)
, Y/ c7 ^, e% d/ O# L. m7 R, `/ _(command ".rotate" ss "" p1 "r" "0" pause)
0 g* k: X! t2 k& ^(princ "\n 旋转复制完成!")
5 d, H& K8 r6 G(command ".redraw")
% Z, Y; T T3 E$ T. r5 W4 Y3 @* n) ^(setvar "osmode" osm)& z& p( Q S6 }+ A) o
(setvar "auprec" jd)5 s; [7 x6 m& a; W3 A) t% S8 O
(princ)
$ x# {; H& G( _" J) |
|
发表于 2007-12-30 15:08