|
|
;;;旋转复制实体(以角度）! p5 q3 }; r$ Q K. r7 d$ c
# L1 }, c2 U9 A! ]
(defun c:copyrt(/ ss r p1 osm jd s)% J" S6 ~- h& T( z$ [
(setvar "cmdecho" 0)
2 j! B% m, p0 i+ p6 Q(setq jd (getvar "auprec")). ?& X; P4 E4 R1 A, k0 d
(setvar "auprec" 5)
% p0 r' L! j6 ]( t. T(setq osm (getvar "osmode"))
0 S5 I) n6 D$ d9 F. {(princ "\n ***** 旋转复制实体程序 ***** ")0 Z# \: c) Y: { @" c' k$ I
(princ "\n 请选择旋转复制的实体:")
$ `) \3 w! T/ _) b, Z' i! g8 C% ](setq ss (ssget))8 S! N* U+ \ G& X& V5 F( {
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
4 y. B+ x) P+ @+ h(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
; \% p+ ]* j9 G4 x* x(setq p1 (getpoint "\n 请选择圆心点:"))( P( F% \) C! y8 ]
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))/ [8 D7 C* b- H1 C: o- H2 g
(command ".copy" ss "" p1 p1)
8 O" E2 {- C# d: U# I' Y(command ".rotate" ss "" p1 "r" "0" pause)* b6 B& C* ]* X' a
(princ "\n 旋转复制完成!")
X! K. Z% _2 e# |4 V(command ".redraw")/ K: _1 B G9 w1 }8 S8 }8 Q
(setvar "osmode" osm), ^+ _3 f" }) i" Z$ E4 _
(setvar "auprec" jd)& M, }, {% g' x# ]
(princ)" H; |. \2 k3 X. C' y
) |
|
发表于 2007-12-30 15:08