|
|
;;;旋转复制实体(以角度）
) i+ O; A8 D) o& ]& _* B6 h( M
% d; L( O6 ~% |(defun c:copyrt(/ ss r p1 osm jd s)
" g$ ?4 M3 B5 q- E! s- L, X2 R; E(setvar "cmdecho" 0)- e* ^1 w% w/ n; Y( \% _" @
(setq jd (getvar "auprec"))
, N5 V8 Y9 {5 O2 q(setvar "auprec" 5)1 b. w1 U7 q& o+ W1 I: t+ U4 P
(setq osm (getvar "osmode"))! U! y6 K/ d* r/ O0 G, w
(princ "\n ***** 旋转复制实体程序 ***** ")
% L: _7 h1 A8 s# y3 } X(princ "\n 请选择旋转复制的实体:")' z; A8 Z( C$ z( h: j' D0 T- A
(setq ss (ssget))
: w/ i, U1 Q/ s& ~7 C* ^1 H) J(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))6 `4 Z0 L- A( E) |: d$ M6 n
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))). `- D" i/ b6 }) O
(setq p1 (getpoint "\n 请选择圆心点:"))
$ M* S5 b) p2 r6 L(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))1 U' A- M$ C0 s( J! n7 L
(command ".copy" ss "" p1 p1)
* r( y/ c c T% f: L) L(command ".rotate" ss "" p1 "r" "0" pause)4 f$ p1 j0 A: L# a! F
(princ "\n 旋转复制完成!")
3 B: i$ B; a7 W! l- _; d4 N(command ".redraw")( g& m) P- l" {! ]! ~' l
(setvar "osmode" osm)
5 ~' F4 ^, C N9 n t# e# K(setvar "auprec" jd)! y! @) P/ u8 m
(princ)
: Q0 Z, Q! }) S' g. }) |
|
发表于 2007-12-30 15:08