|
|
;;;旋转复制实体(以角度）
+ k* }0 g/ u5 g3 U- n3 R) y3 f3 r6 o. y& S- ^" W
(defun c:copyrt(/ ss r p1 osm jd s)' D: p7 e% G V6 ^0 q& U
(setvar "cmdecho" 0)2 _! N2 Y% M* E& v
(setq jd (getvar "auprec"))
3 D; Z; j( n1 J9 ~(setvar "auprec" 5)( s7 G( ] v' h5 r, |/ m
(setq osm (getvar "osmode"))
# c: Q% e: q4 m3 C$ c4 u(princ "\n ***** 旋转复制实体程序 ***** ")
. B" `! k0 o0 q# ~9 `* Q. V. }(princ "\n 请选择旋转复制的实体:")
; x, \& q, P% `# A* x4 k. ~(setq ss (ssget))8 t% [* `3 o% H6 @0 j" c: z& ] }
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))0 ^3 d; h3 h* D) l' n% S
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
9 U: A" f' b) f4 i6 Q. m(setq p1 (getpoint "\n 请选择圆心点:"))
/ q- q' [9 u4 J: x3 x% y(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
' I9 A# X3 \6 |$ S(command ".copy" ss "" p1 p1)
; g5 _5 s J, ~; O9 V2 N(command ".rotate" ss "" p1 "r" "0" pause)8 Y$ I: z& r {1 z# \6 ~
(princ "\n 旋转复制完成!")% e8 P3 x8 b/ u; i0 {
(command ".redraw")
! l5 f0 o4 d, o4 Y8 j! w(setvar "osmode" osm)
/ |5 W3 d2 i' U2 P0 g* \(setvar "auprec" jd)" l$ U) z: t. N* O; c# g
(princ)$ C, }! n# c- G
) |
|
发表于 2007-12-30 15:08