|
|
;;;旋转复制实体(以角度）
- X, p F7 a; n5 B4 u
) f) k+ ] ^7 z/ Q(defun c:copyrt(/ ss r p1 osm jd s)
, ^, F0 m1 |7 {% o1 {& b' b(setvar "cmdecho" 0)- N7 @9 m! t3 N s+ H7 k& M% r+ y
(setq jd (getvar "auprec"))
2 i+ r' I2 `/ x/ s! q; a$ P(setvar "auprec" 5)( C6 N- X) V8 K6 Y# V
(setq osm (getvar "osmode"))
+ `8 e! j! E+ J! k# M" z- D(princ "\n ***** 旋转复制实体程序 ***** "). A( E- |0 a. k6 ^2 c3 `2 g1 n/ [7 ]
(princ "\n 请选择旋转复制的实体:")& Q( M) U/ H. `4 |; t6 h" Z! Q
(setq ss (ssget))
& r2 x0 p$ L) p7 h5 e* o0 x(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))% W9 {5 J3 M& e3 ?4 @
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))& f4 S# A- U, Z" x* ]4 J- ]
(setq p1 (getpoint "\n 请选择圆心点:"))
5 a" j9 H6 M `& e3 E(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))6 X+ E2 C; v% j
(command ".copy" ss "" p1 p1)
! `- d8 Y* T4 u(command ".rotate" ss "" p1 "r" "0" pause)
0 l# `3 {; J* i9 U(princ "\n 旋转复制完成!")
7 x+ R9 f( h8 q, n' i! U y& e(command ".redraw")- v; |/ m5 a+ a% ^9 Z3 H, e, O% l# x' L! h
(setvar "osmode" osm), q5 J( O0 L( F% N6 k" i
(setvar "auprec" jd): _- M+ e# t+ }
(princ)
* M) e$ p( C) K) |
|
发表于 2007-12-30 15:08