|
|
;;;旋转复制实体(以角度）
' ^( a; K1 ?6 l3 m- Q* f
" s* f. W7 s! U(defun c:copyrt(/ ss r p1 osm jd s)
% f* Q, {5 C B(setvar "cmdecho" 0)
; F- e8 Y( _+ R' g, ~ k) n' b(setq jd (getvar "auprec"))2 Y0 x2 L9 M+ l
(setvar "auprec" 5)$ y+ o& u: F$ q' C* H
(setq osm (getvar "osmode")); o; k6 }* a2 ?8 B
(princ "\n ***** 旋转复制实体程序 ***** ")
' `' y$ {* j, F$ d' u(princ "\n 请选择旋转复制的实体:")
: p8 l/ p! v/ H9 l+ A5 t! G; v" y(setq ss (ssget))
* s$ V- B- p* B) m% G(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget)))); a0 U4 ?3 E1 V0 ]5 _. H( _" m3 b6 [
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
7 L+ I9 m% A. ~( E+ O {(setq p1 (getpoint "\n 请选择圆心点:")), P: e+ S8 y6 h7 P: \" F% p1 X( Z
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))/ b' e4 G# E" g' }/ f% _ g4 H' T
(command ".copy" ss "" p1 p1)7 j+ o4 T0 ^1 }$ e7 |% j
(command ".rotate" ss "" p1 "r" "0" pause)7 D8 y; g. G! Q3 l) h) P
(princ "\n 旋转复制完成!")
' n: i6 q, q; B* M; \(command ".redraw")& S. T5 n" Z, |( J) d8 l" |4 @
(setvar "osmode" osm)1 s" {( A1 n- I, n( C1 r
(setvar "auprec" jd)0 ^0 a1 E2 R3 }5 F7 }
(princ)
4 R: e2 q5 {9 L/ Y# i+ W) |
|
发表于 2007-12-30 15:08