|
|
;;;旋转复制实体(以角度）
" N/ j3 y4 |0 I& ?, z
6 L7 V. Q" [$ k, `3 X# i- M(defun c:copyrt(/ ss r p1 osm jd s)1 q3 S5 u9 x- f! U( _! \
(setvar "cmdecho" 0)
0 C$ C1 Q) w- t+ V% f& j$ W1 I(setq jd (getvar "auprec"))
9 A- ~3 u' t% v# j(setvar "auprec" 5)
0 R, _/ d) ]. e, n2 y' O& c5 X(setq osm (getvar "osmode"))9 H+ u9 {1 h$ u4 ^' r: B
(princ "\n ***** 旋转复制实体程序 ***** ")% Z' H8 N/ c0 L' c7 G- A. c
(princ "\n 请选择旋转复制的实体:")# N7 l& y3 j- [4 |# ]" x
(setq ss (ssget))
* ]$ Q8 V# E! ~: m(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))& r/ F$ `5 b; r. d' z5 Z& |7 ^
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
" y' g! c# W, q: l& h; H(setq p1 (getpoint "\n 请选择圆心点:"))$ ?$ c4 x' f: [, {- V7 k7 ^& @2 v! J0 Q
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))8 Z2 f3 |% U! a2 \# O( l+ \
(command ".copy" ss "" p1 p1)
& H( e( l) d" j(command ".rotate" ss "" p1 "r" "0" pause)4 k6 [6 P) ?6 k: g
(princ "\n 旋转复制完成!")
( W" {' b# `' G6 B8 R(command ".redraw")3 Q, j$ q9 T, m9 N6 c( p5 X
(setvar "osmode" osm)
9 I( e/ k9 |# J* x(setvar "auprec" jd)1 y% i) _) C" l' t3 P
(princ)
, W9 X" l5 s: c8 V: f0 n) |
|
发表于 2007-12-30 15:08