|
|
;;;旋转复制实体(以角度）% N) c# A+ g: R2 J, F
( |& z! N K: U' m$ J* e1 P1 T! i(defun c:copyrt(/ ss r p1 osm jd s)" M) b4 j V' o3 D( C" u! e2 O
(setvar "cmdecho" 0)! W; a* T0 A; m1 [& o- }7 S# b# V
(setq jd (getvar "auprec"))+ q; d8 m3 E' S% ]# b0 ]7 R" a2 B$ u7 Z
(setvar "auprec" 5)$ |$ X w3 \1 k4 r. m
(setq osm (getvar "osmode"))
/ a0 J. J8 D3 `7 M/ Z% Q8 B: n(princ "\n ***** 旋转复制实体程序 ***** ")
( V' f/ C: D+ t& o(princ "\n 请选择旋转复制的实体:")9 y) W D1 ~) U5 Q" L
(setq ss (ssget))
9 }2 C; |5 e9 e1 r+ v(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))& j( Q/ h/ I7 W: y
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))* I0 R. K7 P% c7 _3 G
(setq p1 (getpoint "\n 请选择圆心点:"))
3 g: q: w% k- i: D9 i7 v(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))): d3 [9 H& H a. X. [
(command ".copy" ss "" p1 p1)
7 x& A |. \# ?: _. f7 Z(command ".rotate" ss "" p1 "r" "0" pause)
% h7 @$ b+ w1 _/ J(princ "\n 旋转复制完成!")
* o6 @% ]6 X4 X0 B(command ".redraw")
: f4 C' m- t0 N8 S. Q(setvar "osmode" osm), {" g+ D+ |! o. [. G0 `4 [
(setvar "auprec" jd)
6 ~' p! r. _% s9 c# U6 [' T) s& T0 o(princ)
9 Z' [/ h A' C+ b) |
|
发表于 2007-12-30 15:08