|
|
;;;旋转复制实体(以角度）2 N6 h' U8 s: J4 y% S _. b+ [2 v) H
w9 b, d/ G6 B* W- `' M A6 Z(defun c:copyrt(/ ss r p1 osm jd s). T( M! F; N" h
(setvar "cmdecho" 0)5 P4 Y5 H) U: M* o
(setq jd (getvar "auprec"))' D. ?8 U( C% i7 [, g# p
(setvar "auprec" 5)* v; h0 {1 x; b% v
(setq osm (getvar "osmode")), V* w, {6 u. Y8 Q" u' s
(princ "\n ***** 旋转复制实体程序 ***** ")
3 E) ^$ ]1 Y4 S: ](princ "\n 请选择旋转复制的实体:")
1 F6 e) n" \/ j& n- r K% o(setq ss (ssget)) B3 A/ f! Q2 S: m
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))3 W# W" a3 E; E; o! M3 U- n
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))): |4 V0 N" K% V+ Y8 }; d
(setq p1 (getpoint "\n 请选择圆心点:"))6 h/ s$ O) j- n/ o
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
! U+ S u$ f0 m: h# s a(command ".copy" ss "" p1 p1)
$ n. @ E/ ^2 M# X1 Z% ~6 }8 t(command ".rotate" ss "" p1 "r" "0" pause)8 d. i# g: m/ @, }$ K/ U8 s
(princ "\n 旋转复制完成!")3 L4 F( a; g! x) F F
(command ".redraw"): P- v% V. N# G; C, d' y
(setvar "osmode" osm)7 u0 x7 D, R' e& m
(setvar "auprec" jd)
' _) s" {' x, D& [& b) J(princ)5 k4 U& i. h ^2 G* W
) |
|
发表于 2007-12-30 15:08