|
|
;;;旋转复制实体(以角度）
9 l' @' R# s2 c P, T+ N, r1 g+ R, i* Q4 K5 k, f
(defun c:copyrt(/ ss r p1 osm jd s)
^6 H; v: _; N1 z(setvar "cmdecho" 0)
0 P; ~8 ~& Z, F1 G8 G' w3 U8 z( |(setq jd (getvar "auprec"))
1 {: _, M: B+ R1 Z(setvar "auprec" 5)9 p) g+ |! E. E% S9 G% a' J
(setq osm (getvar "osmode"))
% s+ d2 k3 K7 V(princ "\n ***** 旋转复制实体程序 ***** ")
! t$ V2 A/ z; p; }+ _(princ "\n 请选择旋转复制的实体:")
+ K/ q- b" ?( h0 X(setq ss (ssget))5 ?' B! [6 ?3 p
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))0 o8 _' Y2 s$ E. Q
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))5 `/ H. G( {1 r$ h, |
(setq p1 (getpoint "\n 请选择圆心点:"))) ~, m8 C$ }$ E: \. f$ k) f0 d
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). [" B3 c+ k5 U( i
(command ".copy" ss "" p1 p1)# M" V1 l4 |6 N
(command ".rotate" ss "" p1 "r" "0" pause)
. E! a7 a/ f% I( z8 v(princ "\n 旋转复制完成!")
: f3 x. O' Y5 ?- t, a! T6 ^8 w6 C# C1 ^(command ".redraw")4 r6 J. X5 w" n! B
(setvar "osmode" osm)* u6 J( U) {7 |$ g3 P
(setvar "auprec" jd)
; Y" X! b5 i, J2 u, K7 X+ j n(princ)
! R/ _0 \7 C% g) |
|
发表于 2007-12-30 15:08