|
|
;;;旋转复制实体(以角度）
: V% p# \* S7 A* A8 q, ~' I3 N+ Z; B+ K
(defun c:copyrt(/ ss r p1 osm jd s)
2 B: k5 g% ^, R# c+ f3 l(setvar "cmdecho" 0)
8 C2 O b# \6 c' S G% b(setq jd (getvar "auprec"))# E$ a9 M; E' H, L! D$ y8 Z
(setvar "auprec" 5)) M8 L4 z+ v/ v3 y f# t, P
(setq osm (getvar "osmode"))5 J* J6 F; K0 o- R
(princ "\n ***** 旋转复制实体程序 ***** ")
, ]+ h$ Y: o. s6 g(princ "\n 请选择旋转复制的实体:")/ _, V8 o8 u1 v) H; B0 X; K9 K
(setq ss (ssget)): q# {+ A: M" I9 q4 P4 R/ p" k5 P
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))- i! E" p+ x# z+ Y) z- c
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
+ Q9 s9 N A) \3 Q# X4 Z(setq p1 (getpoint "\n 请选择圆心点:")) Q, _3 B* t/ q5 c) z
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))3 ?# `4 M$ x5 U! x. z+ j% l# ]$ e0 a1 N. F
(command ".copy" ss "" p1 p1): ^2 E0 r5 t4 s9 C3 x
(command ".rotate" ss "" p1 "r" "0" pause)
- z! c, F2 l* P, N* ^(princ "\n 旋转复制完成!")7 ]5 C1 _4 O0 N# p( p1 O
(command ".redraw")7 ], L( n+ W; s2 f/ @8 V) r7 k/ y
(setvar "osmode" osm)
. [% q1 u! S$ e0 f) D+ a(setvar "auprec" jd)% o* x7 o" W/ e$ c1 q" b. u
(princ)
6 f$ {7 W& @9 b/ ]$ S) |
|
发表于 2007-12-30 15:08