|
|
;;;旋转复制实体(以角度）' b! Z1 l$ P6 l6 c# p4 _1 F! q, I
# _, k7 z/ G1 t9 I5 c# T
(defun c:copyrt(/ ss r p1 osm jd s)
9 c) }4 Z9 F6 T! G% A3 S7 z9 s(setvar "cmdecho" 0)
8 z3 [2 r5 A4 ]4 [( i(setq jd (getvar "auprec"))& @! T9 }' L- d! E+ a8 I
(setvar "auprec" 5)$ W5 C: H' R4 I+ t) J) X( A
(setq osm (getvar "osmode"))+ ]; ~$ P8 b8 l4 q! O- W# K# T; B2 ~
(princ "\n ***** 旋转复制实体程序 ***** ")6 R( X7 Y- }' X# w; U4 z8 B
(princ "\n 请选择旋转复制的实体:")! F( k8 Z/ ]) D/ v4 ]
(setq ss (ssget))
1 o4 `! z" h6 D V! c(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))8 z, ]+ [( \8 Y
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))6 ?: d0 ?) v( c7 f# A/ `' ]% F
(setq p1 (getpoint "\n 请选择圆心点:")), e: @! {% p1 o0 Y% N- U6 s) h- b
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
3 [' M, r- X0 M: r+ D1 O(command ".copy" ss "" p1 p1)& N$ l4 q4 N0 u
(command ".rotate" ss "" p1 "r" "0" pause)
0 o1 `6 a( s7 O1 u(princ "\n 旋转复制完成!")
. U4 l) k3 F" S% R& K(command ".redraw")
' x4 j" q5 O" K& W9 a(setvar "osmode" osm)( R8 E' d9 x+ H& d+ m( ^
(setvar "auprec" jd)" C& R5 X) f/ W
(princ)
2 h! Z( @6 D) K! I; k) |
|
发表于 2007-12-30 15:08