|
|
;;;旋转复制实体(以角度）4 H' R. y g' U- ~7 w" F- R. r" A
# T) H, i$ y! ?(defun c:copyrt(/ ss r p1 osm jd s)
* Z% {- R1 l# G7 l' B9 l# j(setvar "cmdecho" 0)
, P( f0 Z; L, \' Y(setq jd (getvar "auprec"))
3 v7 L( E# G1 e9 M(setvar "auprec" 5)# F+ s! A- X" R% ] r
(setq osm (getvar "osmode"))
. A: U- e. H7 \) k }(princ "\n ***** 旋转复制实体程序 ***** ")* z6 h% Y5 S+ l! J; f, e
(princ "\n 请选择旋转复制的实体:")
, w) F( [! v! x: Z) R* A3 n3 s0 r(setq ss (ssget))
: |& [. u6 x4 {7 W; m/ Q8 s5 I(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget)))), v9 ~! j/ d' F L, f `; n, m
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))), a9 `$ o. V' ^6 R: |
(setq p1 (getpoint "\n 请选择圆心点:"))9 J$ m9 }1 |) A8 _! E
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))$ t. }, {4 _6 h- b* G2 v! C* V
(command ".copy" ss "" p1 p1); j. D7 I% ^. I$ M' j8 P
(command ".rotate" ss "" p1 "r" "0" pause)
8 v. K1 V i/ |+ s! g- p(princ "\n 旋转复制完成!")8 n# [9 M. |7 |4 I% X/ u7 @
(command ".redraw") {& ~; I& W K
(setvar "osmode" osm)- J% [! d p9 E) R9 B% `- d
(setvar "auprec" jd)
* i6 h5 K4 x, o# }(princ)
% y/ o/ o+ r& ?; C) D5 o4 c) |
|
发表于 2007-12-30 15:08