|
|
;;;旋转复制实体(以角度）2 x* c& A& L' T. F1 h' J
9 ]2 t$ m; u8 K( o- _
(defun c:copyrt(/ ss r p1 osm jd s). u1 J$ k& ?5 \. \- W3 M, {' D/ r
(setvar "cmdecho" 0): m; ]: b- u( o$ M2 Z
(setq jd (getvar "auprec"))" A. _9 I, l0 _0 C' y4 C; ^8 j
(setvar "auprec" 5)8 x: k: U" I$ Q' z
(setq osm (getvar "osmode"))* W1 K, Q) f5 r E- @
(princ "\n ***** 旋转复制实体程序 ***** ")$ D+ a0 h; f2 ^+ u9 G
(princ "\n 请选择旋转复制的实体:")
" W% \, C X {* j4 f" }# j(setq ss (ssget))+ ?; i+ ]% F1 g8 @3 |
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
2 y0 A P7 p. w" s9 Q( Z' N(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))1 }+ Z, d% T0 W
(setq p1 (getpoint "\n 请选择圆心点:"))) l5 P/ g. N( P2 Q
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))): }. p- a/ m/ j- F7 f
(command ".copy" ss "" p1 p1)$ J( `+ ?( ]' l! s) C Q' O
(command ".rotate" ss "" p1 "r" "0" pause)
! V' I) T- {! o2 M8 f! G! I! P(princ "\n 旋转复制完成!")( N& M! P7 R6 A7 D' n
(command ".redraw")
; a& J7 D/ X/ I' A3 R; @0 Z, k4 f(setvar "osmode" osm)
) V% ?& q0 S1 j) Q" F(setvar "auprec" jd): r9 v% l" w+ l; M7 C, C$ R/ a
(princ), v1 y A( o( D! ]$ k
) |
|
发表于 2007-12-30 15:08