|
|
;;;旋转复制实体(以角度）
7 ~9 ]2 |% ], V( u2 ~' p4 y0 v' Y5 J3 p
(defun c:copyrt(/ ss r p1 osm jd s)1 m% S$ I3 M% J
(setvar "cmdecho" 0)1 r$ c4 w/ j9 x
(setq jd (getvar "auprec"))
2 C: k+ [; Y8 v% K' ^0 z(setvar "auprec" 5) Y4 W, O3 B8 ?* O9 A g) B+ B0 s
(setq osm (getvar "osmode"))
7 ^& f( {: D' k1 _; N(princ "\n ***** 旋转复制实体程序 ***** ")
8 N+ _7 W; K, p5 R6 O6 K(princ "\n 请选择旋转复制的实体:")
8 ^9 U) p2 `, W& }. D(setq ss (ssget))0 P8 @* H4 C5 A6 k
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
' ?: |0 T6 |" y' O/ D(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
! ]8 b- Y( D1 \- U& ^(setq p1 (getpoint "\n 请选择圆心点:"))( N& d3 f/ T; l+ k: m1 z6 W8 h8 A, G
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
! L- ]1 K; D. ~, f5 g, Q(command ".copy" ss "" p1 p1)
6 Q+ ^ i+ z2 l* d( e(command ".rotate" ss "" p1 "r" "0" pause)8 v, t, r9 t; F3 H" r
(princ "\n 旋转复制完成!")
/ g( k$ Q5 g8 Y(command ".redraw")
7 U" {6 g$ I/ J/ S+ G' n(setvar "osmode" osm)4 \9 i! n& F1 \) N/ }9 K, g0 f& ^4 q
(setvar "auprec" jd): E0 j* I% l/ Q2 i' L9 _ T; z
(princ)# Q" ]7 p4 I& U. x" {
) |
|
发表于 2007-12-30 15:08