|
|
;;;旋转复制实体(以角度）
9 W3 @# k' J" O7 ]/ ?* B$ E' u) J
(defun c:copyrt(/ ss r p1 osm jd s)& l# r, k) s/ n7 w$ n7 ~
(setvar "cmdecho" 0)
# o" q: C' L0 i. u/ K(setq jd (getvar "auprec"))% B, K! q, l" u8 n0 H- I
(setvar "auprec" 5)
8 ?5 O+ L: s/ g; p- ?(setq osm (getvar "osmode"))
) e2 T/ \: o" \' f0 p(princ "\n ***** 旋转复制实体程序 ***** ")7 q" u& R! \) c: c% |1 ]+ \3 }1 k
(princ "\n 请选择旋转复制的实体:")6 w5 |$ m& `7 G) `7 V- z |8 @
(setq ss (ssget))
4 v+ a/ ~8 I& K3 S! a2 Q(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))0 V5 q" a! u8 M
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
1 w% E0 v) n9 h* `(setq p1 (getpoint "\n 请选择圆心点:"))
5 V8 k! I( [2 M# @( [(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
- n) ]. t& @5 R+ K+ D6 y(command ".copy" ss "" p1 p1)/ ?* ~3 W4 l8 e8 e- {5 I
(command ".rotate" ss "" p1 "r" "0" pause)
/ a9 L7 e& V' z% g) D2 e( v( \(princ "\n 旋转复制完成!")) e$ c: |. M# v5 c
(command ".redraw")" W# k/ Y; }# s% _# X8 [. J, m
(setvar "osmode" osm)
1 R: S# x# C1 e+ K(setvar "auprec" jd)
{! ]0 V: L1 Q; S) c F1 Y/ |, z+ [(princ)- Q3 E0 |' x z; }
) |
|
发表于 2007-12-30 15:08