|
|
;;;旋转复制实体(以角度）6 L3 G- c5 J0 {" ~$ v
' T4 P& J- k, M5 \/ G(defun c:copyrt(/ ss r p1 osm jd s), c8 {0 u7 Z% T& J T& W
(setvar "cmdecho" 0)
" T5 m- B1 ~$ m/ y8 P% J* }(setq jd (getvar "auprec"))" r7 w9 \4 q7 r' R* u
(setvar "auprec" 5)
( v" v2 O5 r; |3 W# x(setq osm (getvar "osmode"))
& S/ ~' y2 d/ }. Z(princ "\n ***** 旋转复制实体程序 ***** ") `: J7 E* K) \; `5 ]% X* p
(princ "\n 请选择旋转复制的实体:")1 |' y+ C7 S0 i$ E1 U- T
(setq ss (ssget))
9 V) K5 M' n5 @/ k, s(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))- W1 f7 r+ F! Y3 G* X
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
8 T3 ^9 `) t; i2 |1 e(setq p1 (getpoint "\n 请选择圆心点:"))4 U0 Y. s- c9 a0 E# _/ |* P' s `
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
% R: B4 ]% ]4 P(command ".copy" ss "" p1 p1)* \: L, d/ v5 k9 i2 \
(command ".rotate" ss "" p1 "r" "0" pause)
3 j+ ~! d. P) j) i' }0 b" W( `(princ "\n 旋转复制完成!")
n. w! ~) k0 p, j( |: O, u$ Y" h(command ".redraw"). U. U% R( w0 c7 g- \' s
(setvar "osmode" osm)
# U& ~8 o, [$ v(setvar "auprec" jd)
9 r- [$ `% T2 }- G: L5 C(princ)- X9 v8 l3 y5 R8 L7 {) p' _
) |
|
发表于 2007-12-30 15:08