|
|
;;;旋转复制实体(以角度）
! @: W9 u# C! m3 q% [* H: [
8 S% ]/ e6 a# Z1 I1 u7 ^6 s(defun c:copyrt(/ ss r p1 osm jd s)
5 ^: [; V% e" ] f" V5 ]* h(setvar "cmdecho" 0)
0 f( Z" J+ e) w8 a& d2 J- r1 T(setq jd (getvar "auprec"))
! O! T( D/ c7 ?) i(setvar "auprec" 5)
* T% \+ G% E1 T9 c+ _* w(setq osm (getvar "osmode"))8 |2 y9 M; C ]$ u; `
(princ "\n ***** 旋转复制实体程序 ***** ")
& y. m! G" r% R e. D6 O$ f# i/ D9 F, S(princ "\n 请选择旋转复制的实体:")
1 o2 d G! A0 T' x+ Z. p(setq ss (ssget))
: W( J5 d0 M# D& n$ {" U0 ^(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))
* T0 _% b: c; ~8 j& E(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))
6 N! e2 k% W" L7 d3 B" k(setq p1 (getpoint "\n 请选择圆心点:")) @( P, @3 @0 l0 E' V5 w: ^- A6 I; f
(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))6 R0 X1 T8 h1 m$ y1 p& L% H- ^
(command ".copy" ss "" p1 p1)6 z5 Y& K- k: H' X3 T( S; K# Y: T9 d
(command ".rotate" ss "" p1 "r" "0" pause)# {1 g3 p5 d6 t! a7 w# u6 k/ ^. f
(princ "\n 旋转复制完成!")0 r* _( g; i: Q% f
(command ".redraw")2 C2 Y) x2 v/ Q; K1 E
(setvar "osmode" osm)
! a0 L6 Y5 b1 \1 l3 @% {! Y(setvar "auprec" jd)4 G: ?5 U6 I+ C; C$ ^7 Q
(princ)6 F( y: W+ ~8 {& f
) |
|
发表于 2007-12-30 15:08