|
|
;;;旋转复制实体(以角度）! h8 X" y5 H; w6 }; I
6 E0 a" g! w% x! d9 m
(defun c:copyrt(/ ss r p1 osm jd s)
& \4 D9 l5 _- t- y: Y(setvar "cmdecho" 0)
! W( w/ I4 |1 @! E3 C7 N# m(setq jd (getvar "auprec"))
4 N1 R& F8 e0 n o4 h* n(setvar "auprec" 5) W& t+ e, [ w
(setq osm (getvar "osmode"))
3 H! A% [6 @8 e, {( b1 r4 N3 A1 C( t(princ "\n ***** 旋转复制实体程序 ***** ")6 u7 f) @$ b8 S( F: P% Q1 p
(princ "\n 请选择旋转复制的实体:")
7 }4 @/ z: a& B F0 w(setq ss (ssget))' o% z# i c0 g3 t: d! o
(if (= ss nil)(progn (princ "\n 请选择旋转复制的实体:")(setq ss (ssget))))/ k! g' m% T3 A7 x- y8 E* y1 V
(if (= ss nil)(progn (alert "\n您未选择有效的复制实体!请选择!")(setq ss (ssget))))' ^4 }% D/ a3 h; p+ T9 R8 x
(setq p1 (getpoint "\n 请选择圆心点:"))
1 G% F8 A! z- X: \. [0 m, P(if (= p1 nil)(setq p1 (getpoint "\n 请选择圆心点:")))0 p6 M! m( A: I1 m! u
(command ".copy" ss "" p1 p1)
* h, R" `% ]! k1 Z5 @(command ".rotate" ss "" p1 "r" "0" pause)' C7 \7 H7 j3 U( Y$ i& c; n, s7 M
(princ "\n 旋转复制完成!")
7 b" S2 t- Q4 B! O; A(command ".redraw")
* K% n% r1 ~! G- r/ L. M(setvar "osmode" osm): A8 P7 d4 b" [
(setvar "auprec" jd)
8 Y. P( {0 i5 ^% }3 Y7 z* S% c( ~2 }(princ)
7 Y5 G/ s* a8 c- i) |
|
发表于 2007-12-30 15:08