|
|
;;;旋转复制实体(以角度）
3 }, s6 A+ |; ]. }1 k$ ?
' A$ ^3 F% @* K(defun c:copyrt(/ ss r p1 osm jd s)! Y- m0 z9 t/ m: I# X- E
(setvar "cmdecho" 0)
1 W5 j3 N! }, t; H(setq jd (getvar "auprec"))
- p7 `% {; `5 w( T(setvar "auprec" 5)
/ d: f, x0 e) W8 t' u+ e(setq osm (getvar "osmode"))& _/ r' S t; x! P
(princ "\n ***** 旋转复制实体程序 ***** ")
( u( Y( L* x1 w. G6 {(princ "\n 请选择旋转复制的实体:")8 }5 T0 V3 d) r' c' ~- P
(setq ss (ssget))# Q* |& s6 U6 N3 w0 H6 P8 j
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))/ E6 D' z* |0 W0 L* D
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
4 V1 W9 e- J) E3 Z+ Y, C(setq p1 (getpoint "\n 请选择圆心点:"))" I, t6 x; ]$ L |, U
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
6 y* X7 @6 f; O: M1 q! ]) Q(command ".copy" ss "" p1 p1)$ {+ `0 A4 ?. H0 g7 p
(command ".rotate" ss "" p1 "r" "0" pause)
. H( E: q# t: w+ ~% F) e- o(princ "\n 旋转复制完成!")
/ i* R# C8 W7 U# F$ @* R9 l2 D(command ".redraw")
( U2 ? c4 V ^( o/ {(setvar "osmode" osm) B. U& O( n2 y9 F$ e4 r
(setvar "auprec" jd): A5 ?2 a- o3 T% q/ S1 G
(princ)0 {( ?; ?8 D" |# r& x/ g$ i" }# e
) |
|
发表于 2007-12-30 15:08