|
|
;;;旋转复制实体(以角度）
4 D5 h- w' F2 a$ Y& O0 W6 y" k; p
(defun c:copyrt(/ ss r p1 osm jd s)( w- L. a& I1 t$ t- M
(setvar "cmdecho" 0)
p7 W$ F' M3 m7 y7 |3 \(setq jd (getvar "auprec"))
r6 V" X! O4 T(setvar "auprec" 5)
( f$ w6 {4 {0 Z# u+ Q5 A; n& G2 \(setq osm (getvar "osmode"))8 J( L8 b# a3 ^ y2 r; r9 w0 f6 x
(princ "\n ***** 旋转复制实体程序 ***** ")( ~3 A F8 b1 w! k
(princ "\n 请选择旋转复制的实体:")0 _/ X' \( f" X
(setq ss (ssget))
; Z+ T$ T" e8 d2 C8 K4 u(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
- l! X$ l3 S0 V$ t$ Z6 ^(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
6 \# H8 A& t# H6 X% I9 d(setq p1 (getpoint "\n 请选择圆心点:"))
% q$ t5 m1 ?5 E, S4 z6 ](if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
, W3 k/ U" R8 g6 `$ M1 Q9 \. e(command ".copy" ss "" p1 p1)* k, d' z7 a2 o) w1 ?6 f* H
(command ".rotate" ss "" p1 "r" "0" pause)
* k' L8 v2 U$ Z8 t+ X5 G(princ "\n 旋转复制完成!")
1 ]7 [; }7 `( j% R. g(command ".redraw"), L9 G: I* V$ \" X' q, v
(setvar "osmode" osm)( {. j# }- D( o4 Q
(setvar "auprec" jd)
/ Q" o! M. h* p- W(princ)
5 y# g2 `8 G- I# t9 }8 t: I1 E) |
|
发表于 2007-12-30 15:08