|
|
;;;旋转复制实体(以角度）6 T7 g' Z& C+ B0 ]$ W
$ ^ t$ ?2 H9 D o8 w
(defun c:copyrt(/ ss r p1 osm jd s)) D& f; d1 j% f
(setvar "cmdecho" 0)
' ?7 i/ {) K0 f1 ~6 }% J) ?(setq jd (getvar "auprec"))' {" z5 Z' S6 }, b2 W3 j) q |
(setvar "auprec" 5)
/ i- U/ e/ H6 r& p, A# ]5 j(setq osm (getvar "osmode"))/ C/ T$ h, Q# x0 F" A( {- a
(princ "\n ***** 旋转复制实体程序 ***** ")/ a+ F9 f% S: }. E4 a+ w
(princ "\n 请选择旋转复制的实体:")
4 ?/ I# }( [7 H E; x(setq ss (ssget))- l# n3 B. i; e
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
1 x6 d1 ?2 d( O7 ?% y(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))+ A/ G: }& J9 p# y0 B' R9 {
(setq p1 (getpoint "\n 请选择圆心点:"))
/ g: g: O) v8 i(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
& i6 |3 ^9 z1 h" Y(command ".copy" ss "" p1 p1). I$ x+ H! i/ P/ {
(command ".rotate" ss "" p1 "r" "0" pause)' r& W4 X+ G3 H/ b: U, q, T+ J2 T
(princ "\n 旋转复制完成!")1 [' T% V0 ~0 m2 D9 J- u' v
(command ".redraw")* k3 y( a# z# i; [/ @
(setvar "osmode" osm)1 x+ z& \$ n# w7 B3 y
(setvar "auprec" jd)5 ~. \. a8 D6 |- M# ~5 n |
(princ)$ y O( g9 t x9 k5 U4 s6 h
) |
|
发表于 2007-12-30 15:08