|
|
;;;旋转复制实体(以角度）
" k7 ]) U- \0 L/ p/ d- c
( P, f. H! k. A7 [5 V+ L! Y(defun c:copyrt(/ ss r p1 osm jd s)
9 p% m \0 U, P0 W(setvar "cmdecho" 0). n+ y W7 X& b2 ^3 M
(setq jd (getvar "auprec")) Y; L! d' F9 c' c9 o1 f' W0 t
(setvar "auprec" 5)
* q/ I- Q: I: P- `/ ?. d(setq osm (getvar "osmode"))
& \' t. O7 D& ^& n(princ "\n ***** 旋转复制实体程序 ***** ")) l) ^8 W7 U5 r# ~9 ]$ b- A C$ l; y6 N
(princ "\n 请选择旋转复制的实体:")
, G+ g# y4 h, H$ K" L(setq ss (ssget))' r' @8 ^) X$ t6 B0 v8 U
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
6 P7 ^8 s: o& y' d+ n' m' A% Q(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
5 ~6 [$ ]( m. ~. D$ M3 J4 L. W(setq p1 (getpoint "\n 请选择圆心点:"))+ J. T) J' t) L7 z( |& D
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
( e) z9 E; ~4 w: h6 u" k7 _0 ~(command ".copy" ss "" p1 p1)7 O/ l* _: }1 b4 @4 h( ^8 [
(command ".rotate" ss "" p1 "r" "0" pause)+ s; i4 h" ?! s4 G# b% x& p( t# o
(princ "\n 旋转复制完成!")
7 ^3 v) m% u3 B$ ~(command ".redraw")9 u5 y) m$ R/ D+ S. `2 D/ {
(setvar "osmode" osm)1 k$ Z$ }% x; x1 d \% O
(setvar "auprec" jd)
! K0 J: ]8 l/ t+ X' p a w9 j Y(princ)% r3 r% w: N0 T1 m; u$ z
) |
|
发表于 2007-12-30 15:08