|
|
;;;旋转复制实体(以角度）
' G: m: u7 e0 S* J( n
' f% ?/ `" `" I$ `% x5 R; X1 B(defun c:copyrt(/ ss r p1 osm jd s)
! Z. G- T' `1 u% { J1 ?; ~) Z( b(setvar "cmdecho" 0)1 a, n5 d6 J6 C! }* D/ K4 R
(setq jd (getvar "auprec"))8 z# n+ t" h$ T+ r6 C% }
(setvar "auprec" 5)( D+ O. Q# q; G, D
(setq osm (getvar "osmode"))! ~) D% D, z( P6 \
(princ "\n ***** 旋转复制实体程序 ***** ")' W, P3 X5 U# X) j. W: @' Y' d& s
(princ "\n 请选择旋转复制的实体:")# Z* O8 N7 G6 O q* u) k U
(setq ss (ssget))9 b& G+ c$ T8 D0 _! F b7 }
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
0 ]$ y# O. c+ D' K$ U. J/ F/ J4 v(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
1 y. M8 g7 w0 B# Z3 y(setq p1 (getpoint "\n 请选择圆心点:"))6 x% I% w% U, R
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). ]( _/ P6 E: U
(command ".copy" ss "" p1 p1)9 D; k/ `! r1 W+ ~ P
(command ".rotate" ss "" p1 "r" "0" pause)
2 r d9 N, E* k7 q1 s7 f(princ "\n 旋转复制完成!")
- f3 N/ B/ T3 L* b8 A( }7 m(command ".redraw")
) N5 }: z. [% I( P! N# ^ Q$ y(setvar "osmode" osm)
. N S$ o7 S; k& O$ S(setvar "auprec" jd)6 {: }! w8 c v% ?# X8 b' i
(princ)/ |0 I8 H' `1 `7 I) C
) |
|
发表于 2007-12-30 15:08