|
|
;;;旋转复制实体(以角度）; \- C' S" B& |/ l6 T
: f9 n' a+ f2 }, n(defun c:copyrt(/ ss r p1 osm jd s)
; m9 x' E6 l* [4 M$ I% [(setvar "cmdecho" 0)
$ z! X" y# q7 B9 c(setq jd (getvar "auprec"))
. o3 I: ~ y& d% D- G7 N( T2 U p(setvar "auprec" 5)% @: W, X$ {: W; u/ f& C) A
(setq osm (getvar "osmode"))7 q V- Q# X/ ~' P4 d6 c7 D( f% J! w
(princ "\n ***** 旋转复制实体程序 ***** ")& B2 N1 H" t. h# Q6 R5 u7 U
(princ "\n 请选择旋转复制的实体:"); }( M( V1 L# U3 r4 T5 {
(setq ss (ssget))
- V1 B4 k8 U# g(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
7 f$ K- L7 e1 I9 y8 T7 u- i0 v(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
4 e: l2 F0 i7 A( i1 h(setq p1 (getpoint "\n 请选择圆心点:"))
d7 y) V" @7 T9 v(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
- f) C/ p/ e8 M5 n: \7 N: X8 e0 J(command ".copy" ss "" p1 p1)
+ ~3 [) @7 ^% D; L% N3 K) w: E(command ".rotate" ss "" p1 "r" "0" pause)+ M4 J6 e R+ |( f& {4 n( w9 |
(princ "\n 旋转复制完成!")0 ]$ x& M* }5 j
(command ".redraw")
$ {) q o+ ]8 a& N _. K% e+ L4 ](setvar "osmode" osm)
% Z8 i& t! S: K& J# k(setvar "auprec" jd)
- s& P6 J6 |: x(princ)& l; g! `9 O- V# x
) |
|
发表于 2007-12-30 15:08