|
|
;;;旋转复制实体(以角度）
5 M4 x# C9 w4 [% b3 b8 Z" w: w
0 s# |) k6 l( k2 x. i8 N(defun c:copyrt(/ ss r p1 osm jd s)9 ]; {6 U0 x3 Z( j' a$ b
(setvar "cmdecho" 0)
; E/ z+ U1 |& l( r1 B) }5 P(setq jd (getvar "auprec"))
5 K$ Z. _- n% L( {1 F(setvar "auprec" 5)
+ ^& E4 _$ u! r3 y Q/ l# k(setq osm (getvar "osmode"))1 A* w# W# b$ B5 c6 ]
(princ "\n ***** 旋转复制实体程序 ***** ")- ?2 _* u# Z8 ^+ m
(princ "\n 请选择旋转复制的实体:")8 z8 v: K4 p- ?3 Y. F
(setq ss (ssget))$ }! s/ z: v( k
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))4 W' i7 e" L( f/ x* j- c
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
7 t' ~; u) n' l& G, b$ M3 Z/ y) p(setq p1 (getpoint "\n 请选择圆心点:")) c( Y/ Z" k6 C0 G
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))) X" n% f% U. ?" [/ B& _4 V3 i
(command ".copy" ss "" p1 p1)4 l$ `5 L. O, Q: I0 p9 U7 P
(command ".rotate" ss "" p1 "r" "0" pause)
+ P0 T; b# T9 ^4 l5 ~(princ "\n 旋转复制完成!")) D: t0 _2 ?6 T7 x
(command ".redraw")
. N7 y/ d; L5 \4 r t8 M(setvar "osmode" osm)9 ^0 p/ i$ V. G3 M2 r
(setvar "auprec" jd); H& C- G7 o9 S: s- Q2 n% _+ U
(princ), o1 ?2 ~3 d! W) a, p6 D
) |
|
发表于 2007-12-30 15:08