|
|
;;;旋转复制实体(以角度）0 e# `, ?/ U- E4 a! A! T1 i1 U' o
. K& k7 m) r: m$ H' W(defun c:copyrt(/ ss r p1 osm jd s)& @; @- ~ j- S- }1 W$ d
(setvar "cmdecho" 0)% P" Q( A8 s i% q& j& v
(setq jd (getvar "auprec"))0 c/ ]( z; K6 y# Q+ y, ^
(setvar "auprec" 5)) N( I0 `" O. K
(setq osm (getvar "osmode"))
2 j v9 U. ]( \; }(princ "\n ***** 旋转复制实体程序 ***** ") h. d. @( Q7 s6 H$ c
(princ "\n 请选择旋转复制的实体:"). a. K# B! l0 {5 V \7 ^. d3 z
(setq ss (ssget))5 v0 U' _% K( Z- W% i5 J
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))# b& @* B7 I$ E0 x; M, ~- L
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
- E4 q, q% Y! {3 C i" O(setq p1 (getpoint "\n 请选择圆心点:"))
$ C# h. W3 w" A& D. |# ^2 l(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))8 j; U. q+ K& j; N/ d
(command ".copy" ss "" p1 p1)
2 O) Q( E; g. a% E% w I(command ".rotate" ss "" p1 "r" "0" pause)
7 T u5 Q& {) k( O X(princ "\n 旋转复制完成!")
, j' h6 R( j# a' Q. g(command ".redraw")
+ g" z4 L) B/ G(setvar "osmode" osm)
! R& a+ j& t7 J- N- O8 O(setvar "auprec" jd)
0 e1 {. Q( r0 M6 O) z, c, E(princ)
$ C6 G, w. v# l7 ?8 X, ]) |
|
发表于 2007-12-30 15:08