|
|
;;;旋转复制实体(以角度）% h S# X; V) ~2 V
, i! f0 q$ v9 i
(defun c:copyrt(/ ss r p1 osm jd s)
) n g' U' |. \: G% M9 i7 u1 v0 x(setvar "cmdecho" 0)
& z* G# x3 o4 M1 T3 G(setq jd (getvar "auprec"))7 p% v6 y. R, | ~: Y
(setvar "auprec" 5)
. b4 M* F0 L3 t7 @2 A1 b2 b7 I: G(setq osm (getvar "osmode"))
8 ~+ V/ K) F2 d5 v( K: y(princ "\n ***** 旋转复制实体程序 ***** ")0 d" q; Y6 I: }. ~2 U
(princ "\n 请选择旋转复制的实体:")& [; m1 i2 U0 z' z+ R$ C$ c4 K
(setq ss (ssget))
) e0 {) {: C. k(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
6 J5 g- t. c. ?5 Z$ k* B, H(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget)))): n4 b" ~3 b8 X! L
(setq p1 (getpoint "\n 请选择圆心点:"))
- S/ H6 e: T; M" L& y. i. J(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))
" @' X$ x$ ]1 F2 d' B0 _(command ".copy" ss "" p1 p1); C& F. I) ]8 E0 V Q! o3 F: ?4 Q" Y% h
(command ".rotate" ss "" p1 "r" "0" pause)4 w( Q/ P/ R% E/ f$ x: |
(princ "\n 旋转复制完成!")
1 c% M( v* `4 V(command ".redraw")6 S' r8 i1 Y, p! B% v0 s7 M6 n* x: [
(setvar "osmode" osm)
4 r" [# e2 p0 t7 V, R" H(setvar "auprec" jd). n1 g; V3 a1 [* O7 X' N
(princ)5 R7 R6 P9 {4 J$ n
) |
|
发表于 2007-12-30 15:08