|
|
;;;旋转复制实体(以角度）8 X$ E: `- O( H+ P2 G
9 |0 r7 m8 Y, E
(defun c:copyrt(/ ss r p1 osm jd s)
! Y) S) Q$ _4 X(setvar "cmdecho" 0), n' `4 e. ] Y, E6 e; u# N
(setq jd (getvar "auprec"))% M$ l# w7 H7 Q' d
(setvar "auprec" 5)- @ I% o `) G8 ]6 I
(setq osm (getvar "osmode"))
4 R+ C# b- U& F' S' d* Z(princ "\n ***** 旋转复制实体程序 ***** ")
- B! h9 h; ]% V* \: m; @ W(princ "\n 请选择旋转复制的实体:")# ]( U0 I( L Q2 z8 g+ y% _
(setq ss (ssget))1 n! P6 { U4 Y- X1 N+ H) y
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
& P H% e7 ^, j w- ](if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
8 W$ N0 w. m& t$ _(setq p1 (getpoint "\n 请选择圆心点:"))" z% A8 s) `# [ I J# _* v& F- ?
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
9 A( T8 S# p( P/ @9 t(command ".copy" ss "" p1 p1)
, K( r- y% L% N& h6 q. C(command ".rotate" ss "" p1 "r" "0" pause)
4 p3 Z/ a' g% D( Z- V8 [$ T(princ "\n 旋转复制完成!")
" S" U$ q! f5 J" w, w/ s, [(command ".redraw")
) Q- @% k: W. V r7 h. E, C(setvar "osmode" osm)
4 G+ v6 S1 A% [* x+ a, M0 g(setvar "auprec" jd)0 G5 h$ G! C$ H' \4 F
(princ)
( c4 z! C2 h1 y) |
|
发表于 2007-12-30 15:08