|
|
;;;旋转复制实体(以角度） \+ Z( O, M5 V1 Y! h. `
. B% u3 H) M7 N, e/ K4 N
(defun c:copyrt(/ ss r p1 osm jd s): ~( G, t L& b& W. h
(setvar "cmdecho" 0)
& V8 K$ |( K6 K+ ^/ `# v. |5 [(setq jd (getvar "auprec"))
) o6 G8 x2 B3 K+ Z3 Z8 x6 `$ F(setvar "auprec" 5)
5 x- L; f. s+ y$ ](setq osm (getvar "osmode"))- o/ G. [& K' i) m) {( P
(princ "\n ***** 旋转复制实体程序 ***** ")
: S5 k, H ]& Y, n. K(princ "\n 请选择旋转复制的实体:")
# C; Q3 L& C" }- N- _(setq ss (ssget)) O/ g: b2 A9 K% j+ `' M9 c: Y
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
0 H: w$ f8 I# x9 ](if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))7 ^1 V% S( z% w& c
(setq p1 (getpoint "\n 请选择圆心点:"))
* J w* [/ F8 Z9 e(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
6 J4 c5 V" R7 L8 {6 ]7 ]4 e+ C4 @(command ".copy" ss "" p1 p1)
* r, J( e2 X9 V: ^5 q! U# g(command ".rotate" ss "" p1 "r" "0" pause)1 D+ C7 ?2 g9 S, p K5 F5 f0 j
(princ "\n 旋转复制完成!")
9 G! M& w" f' F& |7 B: F7 V2 \% K w(command ".redraw")8 c6 R% e4 Y7 ?6 K+ e
(setvar "osmode" osm)
- Q2 k- U9 f1 a4 w t(setvar "auprec" jd)
- i! S# l% ~1 o) I(princ)$ d) ^* w9 {" h7 `- R
) |
|
发表于 2007-12-30 15:08