|
|
;;;旋转复制实体(以角度）
' i' ~/ k7 n1 Z8 K: P/ \) N0 q' E, g! t+ [4 G
(defun c:copyrt(/ ss r p1 osm jd s)1 @8 e% G$ l) N& i% A6 U
(setvar "cmdecho" 0)
2 t2 s4 ^2 E& x, y5 s% D(setq jd (getvar "auprec"))7 Z+ v* D" L6 ^. [6 ~. ~
(setvar "auprec" 5)8 C) Q- t, Q% v. b- `
(setq osm (getvar "osmode"))
0 T* u! D1 u" B8 `(princ "\n ***** 旋转复制实体程序 ***** ")1 }1 P& u' u3 x9 g+ b/ u
(princ "\n 请选择旋转复制的实体:")
$ U$ x f% H4 @( a. o2 J" `9 }(setq ss (ssget))
1 e7 y) P, F" a! }$ X3 F$ {(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
. v5 u/ C: R% U) Z/ P(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
3 f& U G. W; u6 K1 f(setq p1 (getpoint "\n 请选择圆心点:"))' j# I4 a$ m; Q( ]! _
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:"))). }7 x- l+ j$ ]2 A8 k1 u
(command ".copy" ss "" p1 p1)
% C$ s* p0 ?, ^ x7 P; D% m(command ".rotate" ss "" p1 "r" "0" pause)
' |, c' l+ G$ f' c+ o `(princ "\n 旋转复制完成!")+ h5 \5 u' q R2 n) s
(command ".redraw")
7 i0 [/ ]- j$ d; O* o( h: {) Q(setvar "osmode" osm): g. \ M4 W! n& ~
(setvar "auprec" jd)
7 S& F6 q3 S; |$ Y, V# R(princ)9 C: [4 \% H+ q
) |
|
发表于 2007-12-30 15:08