|
|
;;;旋转复制实体(以角度）! e7 ]& \: q6 R, ]% c/ e7 _
1 g) @) t1 Z7 y
(defun c:copyrt(/ ss r p1 osm jd s)
' ~2 R. R; U/ ?$ i5 I(setvar "cmdecho" 0) L1 U- L* R9 [/ Y6 p8 u1 z
(setq jd (getvar "auprec")). D/ B* p$ o2 h( q
(setvar "auprec" 5)- B& O3 i" g# Z
(setq osm (getvar "osmode"))
7 y2 V- m- E" B; C7 n5 `' B5 C. I(princ "\n ***** 旋转复制实体程序 ***** ")
: K; g( d6 {4 B$ x8 A2 ~(princ "\n 请选择旋转复制的实体:")4 q. a6 l5 @5 [
(setq ss (ssget))9 g5 R" \4 D# a- x. F
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
+ @+ `" V& x( C9 T+ E3 n4 \$ I' J& O(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
1 `# V1 n: N: x" K/ K(setq p1 (getpoint "\n 请选择圆心点:"))
) U4 M% `% c+ i2 G" {2 f4 |(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
; X" p8 h4 l" T, O- Z$ X(command ".copy" ss "" p1 p1)
1 b+ T* d( |: U2 V7 l! B! K* G(command ".rotate" ss "" p1 "r" "0" pause). V2 ^) B6 w6 ~1 [$ Z8 x5 `+ X/ T
(princ "\n 旋转复制完成!")
* U4 H5 ?3 }) ~7 N. N: e(command ".redraw")" f; ?. b3 P, [/ \& e
(setvar "osmode" osm); ~0 Z0 q7 |7 {0 A% b4 ]
(setvar "auprec" jd)
8 m0 \9 K7 ?) V5 _- ?% A- N(princ)) ]( W" |& Z. `9 E8 s
) |
|
发表于 2007-12-30 15:08