|
|
;;;旋转复制实体(以角度）0 M" q& ?. c" D. ]' ]" y, |
& X0 h0 M. c2 ~1 U(defun c:copyrt(/ ss r p1 osm jd s)# \. ]9 j& a1 s' B6 s1 O
(setvar "cmdecho" 0)' r D+ I' l. i2 j
(setq jd (getvar "auprec"))8 t5 Q2 W1 M3 Z O* x) x( h
(setvar "auprec" 5)
' Z: T" f: M9 N5 H4 T(setq osm (getvar "osmode")). D# f3 N1 @) T5 h5 f# N1 {2 N! a
(princ "\n ***** 旋转复制实体程序 ***** ")
2 K9 a& I5 W/ t& T \. g(princ "\n 请选择旋转复制的实体:")
( @7 P8 r' r# B: y) W G(setq ss (ssget))
# `* D, V- [; ](if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
2 X) [7 c' h& s& b(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))# w" B1 l/ W/ @$ ]# G
(setq p1 (getpoint "\n 请选择圆心点:"))
1 U' V1 `9 t% |2 k; I: A(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))) c2 u" X( h( j' m' `8 v, ~
(command ".copy" ss "" p1 p1) u; d+ |% A: ^: q- y
(command ".rotate" ss "" p1 "r" "0" pause)
2 E2 o0 s( N, P- \(princ "\n 旋转复制完成!")
# B& N- E0 d0 e3 c7 S" E$ \) L(command ".redraw")
8 M8 Z" k- J# X4 L& @* l(setvar "osmode" osm)2 V0 O; T* i; ]- L8 g+ r9 j
(setvar "auprec" jd)
+ t. a3 d V! l% J' G(princ)
2 t( a# @. {( _1 X* l# t9 q( ]' J) |
|
发表于 2007-12-30 15:08