|
|
;;;旋转复制实体(以角度）2 z8 r1 B# C$ e! T& q, T' M3 [
$ E1 }6 n$ g, f$ q/ O! {6 }% }
(defun c:copyrt(/ ss r p1 osm jd s)0 }" e2 V' H; [! f
(setvar "cmdecho" 0): ]; `. [. x* _
(setq jd (getvar "auprec"))
9 w1 G0 Y' a. j$ f3 r(setvar "auprec" 5)8 \, |. ]2 ~3 y1 B/ X7 `
(setq osm (getvar "osmode"))
- h# b* y, D% b4 F1 r# u e(princ "\n ***** 旋转复制实体程序 ***** ")) F+ F4 _% ^# d* h' d, Z r: b
(princ "\n 请选择旋转复制的实体:")
7 |8 ]. `9 e0 R! y(setq ss (ssget))
/ y. ~8 M4 y8 ]3 }+ R8 I(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))) g* N+ c3 _* D# @& T( A
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))). b/ e3 u: u. D/ t5 [' A
(setq p1 (getpoint "\n 请选择圆心点:"))
# @4 D* `9 b# S(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
- J7 H8 w- P% x# O(command ".copy" ss "" p1 p1)/ s: D; y3 r+ w* q, s/ I0 o. ?
(command ".rotate" ss "" p1 "r" "0" pause)
3 T) e. Q7 e/ m4 l* F$ l(princ "\n 旋转复制完成!")* @( Q$ z; s& H X7 i
(command ".redraw")
8 x+ Q$ v7 e3 w" L9 c0 ](setvar "osmode" osm)
2 c: c+ v+ F: g$ F v7 Z4 g(setvar "auprec" jd)+ D% J- T/ b+ ?7 s/ N. k
(princ)# b: t0 N' a8 k3 f
) |
|
发表于 2007-12-30 15:08