|
|
;;;旋转复制实体(以角度）0 _% s- z$ L& X( K" Q5 U/ U: t
. M( c, P& }: a( {(defun c:copyrt(/ ss r p1 osm jd s)3 |/ [, P, i- h, D q; @& b: a
(setvar "cmdecho" 0)
' |0 e- p# I8 v(setq jd (getvar "auprec"))! ~5 c' W- C' \" V* |$ V
(setvar "auprec" 5)
5 H1 l6 ~# j4 y- w* ^- E" `(setq osm (getvar "osmode"))" B- q8 s& @5 ~( ~' ^6 `6 Q+ Y; j
(princ "\n ***** 旋转复制实体程序 ***** ")# c- W: m' K4 h; j2 T& [! S% J
(princ "\n 请选择旋转复制的实体:")
$ D2 _, v$ P8 Z4 C u(setq ss (ssget))0 ~) t9 ~/ P: O: O% }: M3 P! E) S. A
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
7 G2 C/ O4 d* M& e1 z( s) [6 S; K(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
3 i9 h5 p( L5 M' V5 {3 `# d(setq p1 (getpoint "\n 请选择圆心点:"))
" H/ N: Y( s2 A(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))* e( E1 y6 g5 q) y( a/ W- n
(command ".copy" ss "" p1 p1)
% l- X) k# V( n8 U8 h% }(command ".rotate" ss "" p1 "r" "0" pause)! _2 n9 H& I6 |5 m) n. x% u
(princ "\n 旋转复制完成!")3 x4 _5 Q; M$ u3 D/ {% }
(command ".redraw")6 C) ?8 s1 V7 {8 z/ L8 [, I
(setvar "osmode" osm)8 B5 E% f0 `% o) L* I& i' T
(setvar "auprec" jd)
: D' @1 A* ]5 e(princ)9 D2 C$ O: f5 |
) |
|
发表于 2007-12-30 15:08