|
|
;;;旋转复制实体(以角度）
" U9 j5 v5 o# G! D- l
$ H! f2 w; z# j1 G# V0 N(defun c:copyrt(/ ss r p1 osm jd s)
* z- X# N* b5 w X, O(setvar "cmdecho" 0)- G0 g) P/ ^+ _3 ], a) \3 g' y
(setq jd (getvar "auprec"))
+ A0 y! ^& a; d8 c. o(setvar "auprec" 5)
9 ?8 P$ T% k+ o1 y# \. p. s. k(setq osm (getvar "osmode"))) ~' X+ y4 m" d6 A& i3 B
(princ "\n ***** 旋转复制实体程序 ***** ")
( D) C$ F( @: Q9 K) ^! D(princ "\n 请选择旋转复制的实体:")
6 A: ~$ }; V5 d0 E) T( C- S(setq ss (ssget))
- n% ]' }& T) ^& b(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))( ^2 s: |# q {- `
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
& F7 o1 L/ y4 ?(setq p1 (getpoint "\n 请选择圆心点:"))
9 P1 n$ i" {7 Z9 h' a2 u: v(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))0 w3 b ]: P* d2 ^
(command ".copy" ss "" p1 p1)
* N; ^' ~/ K o# L(command ".rotate" ss "" p1 "r" "0" pause)2 @+ |) }7 C2 P7 w! q j& D
(princ "\n 旋转复制完成!")& W: i7 y" R; u' Y; V ^% j. G& O
(command ".redraw")3 U, ~- |- d0 ~; I' _7 P
(setvar "osmode" osm)
% P# g1 o i$ e5 L8 X(setvar "auprec" jd)
" l. g9 [9 Z2 t7 F) }(princ)
3 ]/ I- x& J, v) |
|
发表于 2007-12-30 15:08