|
|
;;;旋转复制实体(以角度）. F! ~8 F Y; g2 _. l* Q
; \: [5 h1 }. e% a) n
(defun c:copyrt(/ ss r p1 osm jd s)8 b3 g* c o$ h0 I, i: n
(setvar "cmdecho" 0)6 K( w6 i* \% U2 f3 r/ @% W
(setq jd (getvar "auprec"))+ R6 p, C9 x6 p" U! i
(setvar "auprec" 5)
% o9 B/ e" x7 `- v(setq osm (getvar "osmode"))
& D) n: o; k0 s7 a4 t) A$ }(princ "\n ***** 旋转复制实体程序 ***** ")$ z! S% F1 D) m" v9 `: I
(princ "\n 请选择旋转复制的实体:")
( S2 W, ~) l' {0 b$ B/ W& Q* L(setq ss (ssget))
; Y9 i: P/ n: ~9 b(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))- I7 ^# D# |8 |% V5 N4 j1 ]
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
' V; V6 t, b2 q3 \3 ~3 ^(setq p1 (getpoint "\n 请选择圆心点:"))
3 |1 ]7 _/ F# b9 H4 L(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
% L; z1 U5 m; L, \(command ".copy" ss "" p1 p1)7 q) e* A; v A
(command ".rotate" ss "" p1 "r" "0" pause) z9 B* T7 m1 N3 h3 _
(princ "\n 旋转复制完成!")
a4 O0 c! f, P(command ".redraw")
/ u4 O8 u& T, ^* G' ~(setvar "osmode" osm)- i$ H+ }9 t0 Y, c& y$ o6 |$ `- [. _
(setvar "auprec" jd)! D @6 Q0 O$ Q) K) Y8 \1 Q
(princ)) H( s) y* v& H5 p2 L7 o4 R8 d
) |
|
发表于 2007-12-30 15:08