|
|
;;;旋转复制实体(以角度）9 ^& _4 Q0 y8 D! ~8 R) V/ K
# B4 ^. e) x$ ~2 h- e, r
(defun c:copyrt(/ ss r p1 osm jd s)! P0 X; b; r- z3 F8 z. x
(setvar "cmdecho" 0)
F, w) X k/ J1 E(setq jd (getvar "auprec"))
/ H) O+ X0 d/ L" y! Y6 y(setvar "auprec" 5)
' S9 a6 y! M& L4 P7 q6 ~+ _' E(setq osm (getvar "osmode"))
% r& A: {& [+ {- Z Q(princ "\n ***** 旋转复制实体程序 ***** ")1 t, L2 P* s2 C
(princ "\n 请选择旋转复制的实体:")& d! E; ~0 i# _4 g9 u
(setq ss (ssget))
9 j' n1 y7 w2 k( h2 ^; s9 Y(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
$ D& f7 I, d* N& T0 \(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))1 Y% K9 Z+ H; d: |1 y
(setq p1 (getpoint "\n 请选择圆心点:"))
* `# G+ z4 F5 l(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))), C& \1 I2 ~$ ]5 \ S+ U7 B
(command ".copy" ss "" p1 p1)* |7 a+ G6 N. N0 D
(command ".rotate" ss "" p1 "r" "0" pause)2 x. ]5 n5 J0 t4 ?4 f
(princ "\n 旋转复制完成!")# F# ^/ _, i* u9 {" P
(command ".redraw")$ g s. v: X: }1 z
(setvar "osmode" osm)
" M: {3 e7 b+ [5 u* I$ B(setvar "auprec" jd)& I) V0 z$ j2 j4 m# b9 N/ R
(princ)' F0 K* D+ J% ?
) |
|
发表于 2007-12-30 15:08