|
|
;;;旋转复制实体(以角度）
2 I2 B) @6 h7 w; G+ @) n% x
4 r K# }: g, d4 A. R(defun c:copyrt(/ ss r p1 osm jd s)
, g* c5 p% K" G& R5 ]7 ^ E4 [(setvar "cmdecho" 0)
& {3 x+ P: P; H" f' f(setq jd (getvar "auprec"))
- F& ~/ ^( {& W- N(setvar "auprec" 5)
- Q& T+ t6 h& |. z0 I; y(setq osm (getvar "osmode"))3 D+ H; \# F3 N* m" E5 d/ }+ t
(princ "\n ***** 旋转复制实体程序 ***** ")
$ i0 y, e3 \3 V. A5 W(princ "\n 请选择旋转复制的实体:")0 E# Y! o) x; Q4 c A
(setq ss (ssget))* Y# Q! u! a+ ~8 y
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))% R# E0 [( u2 L3 I
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))), T0 I# v, B& _6 |: U* P& v
(setq p1 (getpoint "\n 请选择圆心点:"))4 I+ d- P/ j O( Y
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
. D: F" t; ^8 z( C(command ".copy" ss "" p1 p1)
7 ^7 k. `$ H- M3 \* T, \/ z(command ".rotate" ss "" p1 "r" "0" pause)
# F# F$ Q5 m% _4 L/ u(princ "\n 旋转复制完成!")
, L" Z! y% F9 h' D$ J(command ".redraw")
' B( I- H. |2 N(setvar "osmode" osm)2 B1 b/ T* J. Z5 H+ S
(setvar "auprec" jd)
# S3 @# a4 M* T. [) d: C$ M! d(princ)$ w9 X% @, U' e5 R
) |
|
发表于 2007-12-30 15:08