|
|
;;;旋转复制实体(以角度）
# ^: |9 t8 o$ r; y- G' ~- L- h: D0 a, ]9 ^
(defun c:copyrt(/ ss r p1 osm jd s)8 K. q& }& h2 v& B" p/ a2 M' U
(setvar "cmdecho" 0)9 k3 _9 X! ~% m
(setq jd (getvar "auprec"))1 e5 x, i+ b6 a6 h" U% N
(setvar "auprec" 5)0 `6 \; |- r9 S; P4 }
(setq osm (getvar "osmode"))
1 M3 N/ i' ]5 J }9 h(princ "\n ***** 旋转复制实体程序 ***** ")4 ?. e, M- a/ @) W; H$ A( `* h
(princ "\n 请选择旋转复制的实体:")
/ u6 {$ M( P8 z `* j+ } e! w(setq ss (ssget))
# _; h& }; y8 U# t. i/ Z# U(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
: c0 N7 t* k/ S(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
% u% Z" l) N N, `/ v(setq p1 (getpoint "\n 请选择圆心点:"))
" a( b4 W! A; u+ P% G# J(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
1 O7 J. u- D, q7 D(command ".copy" ss "" p1 p1)
7 ~/ p: Q1 R& }4 i2 i! i(command ".rotate" ss "" p1 "r" "0" pause)
8 v; N: {% Y. ^4 @( r2 m' U(princ "\n 旋转复制完成!")
- q9 h: Z/ D" g9 h(command ".redraw")
9 i5 q* M0 ?( _. o) B# ?4 | R(setvar "osmode" osm)
" P" t2 z: u+ N2 v0 m7 X(setvar "auprec" jd). P4 u9 D- O. s# h3 n
(princ)
. j" w' c2 H6 r+ Y( C4 r4 T# x) |
|
发表于 2007-12-30 15:08