|
|
;;;旋转复制实体(以角度）
# d5 t; S- n8 R- w) |
% V: Y7 Y& |0 m( T, t& U0 Z. P: C3 e(defun c:copyrt(/ ss r p1 osm jd s)
4 z6 O' t, I7 P# N( D$ Z(setvar "cmdecho" 0)( u. }2 n+ L% V' Y
(setq jd (getvar "auprec"))/ ]: `% w; m$ d5 l3 c$ s! _
(setvar "auprec" 5)
' S' m7 A( {1 I. k, F5 n: p+ Z" @2 w(setq osm (getvar "osmode"))
# q: W: E/ x8 ^8 w9 X(princ "\n ***** 旋转复制实体程序 ***** ")
2 @5 p4 C# k$ G9 _9 r Y0 p" @# g(princ "\n 请选择旋转复制的实体:")
. d+ r5 a# b2 G/ Z% E(setq ss (ssget))9 b D$ }$ S3 S7 C, A0 j8 o
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))* K$ a+ f9 n9 |
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
- D4 W7 Y( \7 q" p) \0 N8 m3 @# ](setq p1 (getpoint "\n 请选择圆心点:"))
: T% k( a' {% T) A$ l" C0 s(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). P/ u+ g# `7 x e3 J
(command ".copy" ss "" p1 p1)
, F' O5 |( Z4 |0 r(command ".rotate" ss "" p1 "r" "0" pause)
5 ~; _4 r& e9 @$ W) B1 ?/ h6 G(princ "\n 旋转复制完成!")( I) e. {1 c% Z! L
(command ".redraw")
9 l9 I' j& |' z( O! `/ \/ m, d) x(setvar "osmode" osm)
% r$ v* s2 Q. Y* Z6 R, r! k(setvar "auprec" jd)! k$ [# i5 A7 ` N6 I
(princ)
4 Z; |" G# D# u& E) h) R% Y) |
|
发表于 2007-12-30 15:08