|
|
;;;旋转复制实体(以角度）! B( G! Y' q, H
1 B) A" B1 _/ U3 f1 W(defun c:copyrt(/ ss r p1 osm jd s): J0 T7 n4 Q/ s+ {
(setvar "cmdecho" 0)
( K9 I) \2 N" S1 S(setq jd (getvar "auprec"))/ ^3 S+ R' I3 M |3 e& ^
(setvar "auprec" 5)' Q( q* S7 I, q5 ^" S- ~" r
(setq osm (getvar "osmode"))
) k! E6 }& x7 l: d& Q+ _(princ "\n ***** 旋转复制实体程序 ***** ")# G2 c8 A- E( d6 M+ z
(princ "\n 请选择旋转复制的实体:")
' U# I2 V, H+ |9 |(setq ss (ssget))
/ a: A9 p$ Q! `" E4 O0 d(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
8 h; ~! P" W$ U3 K; h7 g7 x* \& E( |(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
" U$ E; r1 [, H/ Z7 n, z [(setq p1 (getpoint "\n 请选择圆心点:"))
! G) c; V H$ |% I* F(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))& V& x+ b5 e0 f" t8 V8 F" ?: [" n
(command ".copy" ss "" p1 p1)8 |+ d! D) g# ?4 x( ^( z8 K8 M" Z! G# {
(command ".rotate" ss "" p1 "r" "0" pause)
+ [/ h$ T& U3 L' F; |(princ "\n 旋转复制完成!")
, B% H& S- C; z/ D) v) u(command ".redraw")
3 B& M8 Z% U# t1 w" g1 o(setvar "osmode" osm)8 }/ b* W+ \; P9 m
(setvar "auprec" jd)
. a# L; X; s: m* q: o" X(princ)' x0 k9 i* p8 f* m8 H: Y
) |
|
发表于 2007-12-30 15:08