|
|
;;;旋转复制实体(以角度）
$ p# ^6 S1 v, H9 ]+ W) C Z
, u' W' Y3 V& U6 J(defun c:copyrt(/ ss r p1 osm jd s)0 x1 B& B# g* F0 y3 v: h( v8 X
(setvar "cmdecho" 0)
% u+ r' z/ U& o. A2 E0 G: S5 e, S(setq jd (getvar "auprec"))
' p: ^0 v K8 I1 w1 B(setvar "auprec" 5)
- X0 {8 e2 `1 s/ i* X1 W4 K( d(setq osm (getvar "osmode"))
2 J6 R, F+ o7 ]1 Q+ V# G(princ "\n ***** 旋转复制实体程序 ***** ")' y$ O+ X' E" z
(princ "\n 请选择旋转复制的实体:")9 R+ B; d1 B# v* o! X0 B. l* J
(setq ss (ssget))
$ I: f |0 w2 l& I& t1 g. x(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))3 f. G5 N7 X8 t* B. ?, q
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
4 s1 u5 }, C1 k% j0 A(setq p1 (getpoint "\n 请选择圆心点:")) y! S" q2 U9 g
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))) }, R$ c! H7 p4 h# G
(command ".copy" ss "" p1 p1)3 `6 O: ^5 m. L
(command ".rotate" ss "" p1 "r" "0" pause)
" b# R1 I! ?. c' \* O3 a. T(princ "\n 旋转复制完成!")2 N* k( v H2 J/ ]" x( P8 m
(command ".redraw")4 G" Z8 o3 C. i& y2 l# o: \
(setvar "osmode" osm)
- v1 M; p$ y! e4 s4 ]6 W3 Y(setvar "auprec" jd)
/ L$ Y# w4 H0 t* @# o6 p(princ)
% F3 p s$ Y7 p- b" P7 b) |
|
发表于 2007-12-30 15:08