|
|
;;;旋转复制实体(以角度）( w& B' j1 j2 g9 M- f; d5 O
5 D- g9 _+ v( ?: I: T$ e(defun c:copyrt(/ ss r p1 osm jd s)6 `1 `0 w" L& P' z! ?
(setvar "cmdecho" 0)% X* u0 V% C/ L: u# u: g
(setq jd (getvar "auprec"))- m" c. e, p# W+ J1 T2 K
(setvar "auprec" 5)
* \/ J* J b4 {4 B8 ]( U(setq osm (getvar "osmode"))( |0 a' r8 B! Q/ S
(princ "\n ***** 旋转复制实体程序 ***** ")
3 z5 Z9 `1 h4 V1 S# ^(princ "\n 请选择旋转复制的实体:")
6 \' X2 P/ X& z(setq ss (ssget))
# y6 k' O1 j2 ]& ?6 j(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
$ q) i$ m, n* P(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
- x+ }- L2 h$ L g. n; N2 L(setq p1 (getpoint "\n 请选择圆心点:"))
# W, k5 F, C. {9 b0 {9 s* u- r! ?(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
( A) v5 b$ s; S9 ~9 o3 J" A(command ".copy" ss "" p1 p1)* q. ]) q. M- i# S
(command ".rotate" ss "" p1 "r" "0" pause); [4 ~. f1 j3 t# Z& E
(princ "\n 旋转复制完成!")4 b. i" X# c( u$ c! u
(command ".redraw")
' ~. g" l r! N- a(setvar "osmode" osm)
2 d! m' B" G. Q7 s(setvar "auprec" jd)
$ W' b9 `9 M" \# j' E/ [( W(princ)" p% z% Y; J2 D" L$ V
) |
|
发表于 2007-12-30 15:08