|
|
;;;旋转复制实体(以角度）
; y3 k6 \& K2 t+ z: B2 N
: N- B6 v+ U2 h/ o6 Q(defun c:copyrt(/ ss r p1 osm jd s)& m: E3 J: s6 G
(setvar "cmdecho" 0)' X: X S4 E) l' c
(setq jd (getvar "auprec"))
8 M' l6 h) D+ d) h4 W6 I# Z6 u(setvar "auprec" 5)5 l% k1 o% q9 Y1 w, R
(setq osm (getvar "osmode"))
1 F8 o! X" p7 i$ e( x(princ "\n ***** 旋转复制实体程序 ***** ")
8 C" |9 } @& r(princ "\n 请选择旋转复制的实体:"), }6 t: V1 U' b0 c% K2 `
(setq ss (ssget))2 L! Z( U0 S. z# V. ^
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))7 z0 G2 U+ E% E5 s3 ]* s# J
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))3 b. N4 O8 j5 t' Z) O: k; g
(setq p1 (getpoint "\n 请选择圆心点:"))
2 z: g' J/ ~. w(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))% j' S' }" g' }) g
(command ".copy" ss "" p1 p1)2 [3 z4 g% d! N! d" M |7 s& n7 o
(command ".rotate" ss "" p1 "r" "0" pause): j7 K8 A$ z: M) W
(princ "\n 旋转复制完成!"): T, y5 `" |! |
(command ".redraw")
: N0 B) m7 G: g8 Q(setvar "osmode" osm)
. l& N2 t3 [$ b(setvar "auprec" jd)- V- W9 \5 |8 v9 x; V1 Z" W
(princ)9 {. f" v7 Y) |( m/ R, o# N% A
) |
|
发表于 2007-12-30 15:08