|
|
;;;旋转复制实体(以角度）
& c) |7 e# S. o2 o0 S) h8 a, ]9 S
(defun c:copyrt(/ ss r p1 osm jd s)
# u# L3 U0 m- A4 d4 a& O(setvar "cmdecho" 0). D( @9 e. v& s. X1 d" t, _$ f4 p
(setq jd (getvar "auprec"))
- x4 z# M7 x+ Z. g; ^# V0 @(setvar "auprec" 5)
& W3 ~* [# }+ X* [(setq osm (getvar "osmode"))
% M3 F# t$ g/ h0 R(princ "\n ***** 旋转复制实体程序 ***** ")0 D) `: t# B) i/ U; I2 n: j
(princ "\n 请选择旋转复制的实体:")
' D! |+ T8 S# f" w, R& W(setq ss (ssget))
2 A& u, R% O2 t; \4 m(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
u3 z& c. W7 V5 y(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))6 [+ J8 P" Z1 d( W
(setq p1 (getpoint "\n 请选择圆心点:"))4 ?" u0 O/ I$ j/ J
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
/ i9 q/ G+ B" V- l# T/ S7 O' X(command ".copy" ss "" p1 p1)
7 i5 O- Z+ L( }3 v1 f(command ".rotate" ss "" p1 "r" "0" pause)2 P$ ^) {( ]2 r
(princ "\n 旋转复制完成!")
! N+ s, n/ v" ?5 X" i- k+ ]8 j(command ".redraw")9 W0 u; ?5 o3 \9 K
(setvar "osmode" osm)
* P; M$ D4 q1 R; g( F(setvar "auprec" jd)
! {3 f( p6 v9 U4 a1 r7 J3 Z(princ)7 Z9 P2 u8 ` p2 j$ q! s: }( }# U
) |
|
发表于 2007-12-30 15:08