|
|
;;;旋转复制实体(以角度）3 T8 C# N% P1 d9 q. N
9 ~8 g1 {- B* o: @( M, o(defun c:copyrt(/ ss r p1 osm jd s)
6 x) L* I& Z* z( L$ G(setvar "cmdecho" 0)
( A% U9 t& D. D: {% g0 O5 T/ G(setq jd (getvar "auprec"))
; u6 W. g `8 f(setvar "auprec" 5)
, }: v! t# ?( [) n(setq osm (getvar "osmode"))* ^0 y# ]0 [8 P0 Q: h
(princ "\n ***** 旋转复制实体程序 ***** ")
* C5 z h4 g, n+ ~(princ "\n 请选择旋转复制的实体:"). b$ l' L, @. T( J* [1 I4 Q
(setq ss (ssget))
: z) ^1 y2 z2 \* U(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))$ q- ]2 b; Z$ Y0 Y, [3 R
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
0 O9 ]- Z! G/ m$ y `(setq p1 (getpoint "\n 请选择圆心点:"))! p/ O6 L1 ~5 x$ G1 Q) q; i
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))4 b) H7 J. m: ]# N; c
(command ".copy" ss "" p1 p1); q% z- C/ {. T4 u& S
(command ".rotate" ss "" p1 "r" "0" pause)! X! M6 `9 B! P4 A& O$ N& k
(princ "\n 旋转复制完成!")& R: x# h, E# h. X! s& Z8 M) a
(command ".redraw")
& Z, R& H4 |" n# Q1 s, z(setvar "osmode" osm)4 e I9 K8 `! M; N5 o; |/ C
(setvar "auprec" jd)
' i! S0 D% z/ b( D/ H. [(princ)
( t& W4 u, J( q' |. {/ ?; i( W/ G9 b) |
|
发表于 2007-12-30 15:08