|
|
;;;旋转复制实体(以角度）6 s, k9 R! z3 ]9 n$ P; x
' z. i% W& [# S9 X(defun c:copyrt(/ ss r p1 osm jd s)
( B2 f: ?) G( M6 E% q(setvar "cmdecho" 0)
% D6 a& K' s; d6 \0 m, m* ~(setq jd (getvar "auprec"))
$ C+ E) F( a1 Z: Y6 G9 R5 p! r(setvar "auprec" 5)- i7 X+ Q3 t4 \. X% [+ y
(setq osm (getvar "osmode"))
X; f/ j' J) O0 C, n3 O. ](princ "\n ***** 旋转复制实体程序 ***** ")
- J& |! I5 W% _$ T" X(princ "\n 请选择旋转复制的实体:"). j3 k8 b% ~' K5 ]( K
(setq ss (ssget)); O' N# e5 G0 {" Y- Y# G
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
! w% s5 K1 G0 \7 O1 `4 X(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))* u" k/ {8 ]% D3 Z) Z
(setq p1 (getpoint "\n 请选择圆心点:")). u* d- S- W7 V: D/ Y# s! F
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
! w* e4 H( f5 y1 v; y$ b(command ".copy" ss "" p1 p1)9 V- u: l% Q8 _7 ^& i, U8 h0 \" T# R9 j
(command ".rotate" ss "" p1 "r" "0" pause)# E( ]" K: i* o `3 G. e2 H
(princ "\n 旋转复制完成!")
) ~5 V5 v5 u! @( u' W n7 q4 @(command ".redraw")# Z' {# m, }# t3 {7 A1 o9 G, v# ]
(setvar "osmode" osm)
7 D4 s% Q9 c& G# i(setvar "auprec" jd). S3 x9 S Q* m9 ^
(princ)' ^9 ^& V# b9 n
) |
|
发表于 2007-12-30 15:08