|
|
;;;旋转复制实体(以角度）! s [6 Z' [' l3 I
$ s5 v1 v1 L4 Z9 B# D, ?. G7 z
(defun c:copyrt(/ ss r p1 osm jd s)
, o! i$ a( H) n6 b! h(setvar "cmdecho" 0)3 k- H) r Y* c6 e' N; _! j
(setq jd (getvar "auprec"))5 |; {6 W/ j( Y7 \* v. {5 i ~: U
(setvar "auprec" 5): W, l) j8 f& [& q" D
(setq osm (getvar "osmode"))' y5 W; g; h) W. F
(princ "\n ***** 旋转复制实体程序 ***** ")
* d/ [8 R! N( i* K# u" x(princ "\n 请选择旋转复制的实体:")& K9 M/ j. x. H G( t
(setq ss (ssget))
4 b5 w% O2 r; r8 S' d. g/ C' J3 o(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
( O5 Z7 A% [. D4 T3 {. U5 P* p* n(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))2 ~' @, V, |* X; _
(setq p1 (getpoint "\n 请选择圆心点:"))
7 M3 ^2 ?4 C: C' |) L7 B9 B% c6 w& S(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))3 g1 K; r6 L5 h- F/ C
(command ".copy" ss "" p1 p1)
7 R4 Q- e, \+ M5 ~" g8 ]$ V. i0 X5 M(command ".rotate" ss "" p1 "r" "0" pause)+ w) T* B+ @: T& ?
(princ "\n 旋转复制完成!")
8 @2 L* y" }4 |' c1 ?) [) S& v(command ".redraw")
. p' A6 F6 e: W, N9 W(setvar "osmode" osm)& j, K9 ^, C9 T5 z3 ~
(setvar "auprec" jd)% j$ H: |2 e# h7 ]/ s
(princ)
& B& [% f/ ~- Y) |
|
发表于 2007-12-30 15:08