|
|
;;;旋转复制实体(以角度）; S" o" ]2 b6 h3 k( j2 Z1 L( ]
7 R. d/ _* ~( _7 ?4 R' F( x F(defun c:copyrt(/ ss r p1 osm jd s)- o( V3 [- b+ c
(setvar "cmdecho" 0)
6 y% k$ h/ H4 `4 I(setq jd (getvar "auprec"))0 H+ h+ H% F& H g5 {8 d0 [# m
(setvar "auprec" 5)
% z# ` D- a7 t9 Z: R* t(setq osm (getvar "osmode")), k0 h4 K" D- \9 F
(princ "\n ***** 旋转复制实体程序 ***** ")
8 S, ?) C0 V6 B. s(princ "\n 请选择旋转复制的实体:")# \! {* ]3 }3 [4 u7 M
(setq ss (ssget))
! T1 t. ]& t# J$ R6 @0 s& l' r(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
p& {/ ]8 Z/ c' r' f# I& J(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
- L2 l. C* u: g3 N) q# Y, [9 L(setq p1 (getpoint "\n 请选择圆心点:"))
; }; S( T$ m9 G! p) u(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))) c; J- O/ |, P% Y$ j4 S
(command ".copy" ss "" p1 p1): |8 h* Y$ n4 S! w! E
(command ".rotate" ss "" p1 "r" "0" pause)
: J. h/ ~; [, r(princ "\n 旋转复制完成!") B2 c) I6 b- t f$ [
(command ".redraw")1 r, [; u! B+ l$ |7 D8 c
(setvar "osmode" osm)' ?* N; y8 e) S: Z! s
(setvar "auprec" jd)
2 ~: _, R$ x' ~5 ~(princ). s8 H, b- q# ?4 @: h! `+ m: h
) |
|
发表于 2007-12-30 15:08