|
|
;;;旋转复制实体(以角度）
6 z4 t+ z3 ]% D; j q; w
: k# O7 @; a6 ?' M" B4 c(defun c:copyrt(/ ss r p1 osm jd s)
0 [# R: C4 d5 p2 I5 H& ~3 ~( J6 [(setvar "cmdecho" 0)
/ |+ c- \4 k+ z1 W. N7 w% j; W(setq jd (getvar "auprec"))
) ]6 d! K& M7 ~- k- f(setvar "auprec" 5)
; v5 |! N; \9 k. C- |; h6 H(setq osm (getvar "osmode"))
0 m+ E g& H0 M; g. u5 r(princ "\n ***** 旋转复制实体程序 ***** ")
) |0 }3 R0 B$ i' a(princ "\n 请选择旋转复制的实体:")+ v: ~/ Z- o0 q3 ?% {
(setq ss (ssget))
( G/ P: D) {' F c" T" n1 Q(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
& \' H0 A$ r( p, P) x& p(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))6 ] [ z- q, O. P* x" k) ?1 | W
(setq p1 (getpoint "\n 请选择圆心点:"))
4 l7 c% {+ z7 g! n(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))% }4 I# `" d" q8 E
(command ".copy" ss "" p1 p1)
/ V+ A- d1 X7 M7 U' z(command ".rotate" ss "" p1 "r" "0" pause)
5 X& k7 a, s: _9 S4 F(princ "\n 旋转复制完成!"): q- [/ m* G$ X2 a
(command ".redraw")1 A( E) N/ q- g( h
(setvar "osmode" osm), u t" z$ V# E2 A# l) D
(setvar "auprec" jd). Q, E# B3 L l9 R
(princ)
N h5 k( ]! {4 h' |) N/ a) |
|
发表于 2007-12-30 15:08