|
|
发表于 2011-7-27 15:08:44
|
显示全部楼层
来自： 中国台湾
http://www.cadtutor.net/forum/archive/index.php/t-40010.html
8 K0 ]/ l8 @) @) c yHelp Modifying Converting Arc to Circle Lisp Code Please!
) h- t$ n, w: E1 j/ ^2 v
$ K( f$ `& K9 \8 ^* c2 L===========================================================
9 U; k) M5 h7 Z2 Y" L0 R;;; http://ww3.cad.de/foren/ubb/Forum145/HTML/001720.shtml
. H, S" M. {, _; e* n (defun c:Arc2Circle ()
; ]# a# Y2 _+ k% _$ z4 V# k (defun arc2Circle (OBJ / DATA R M)! ]) S W, J% m: I7 B) F* o9 V* d
(if(and(=(type OBJ)'ENAME)
: U4 R6 u7 _. {* ? (setq DATA(entget OBJ))
. k( j. T ^7 A( g% Y/ ^ (=(cdr(assoc 0 DATA)) "ARC")
k ]; @& Z ^* l D* F (setq R (cdr(assoc 40 DATA)))( g6 h/ y& }4 h. g
(setq M (cdr(assoc 10 DATA)))( X9 F& E9 r# C
)% y; E+ w' ^0 I6 K( k: V; c6 m
(progn. ]% M+ I" S7 Y
(command "_circle" M R)
. O' I8 T- v8 t% i5 X! V9 P (command "_matchprop" OBJ (entlast)"")7 Y+ u9 [2 u% k' p$ T
(entdel OBJ)
$ i, ^- `) P8 {/ u ) % ^$ h& m; e& L
)/ Y# {% k+ \& c( o
) 6 G7 v, O7 Y. q
(Arc2Circle (car(entsel "\n请选择弧: ")))
7 w0 i3 }+ k' H )
$ n# u2 }% p- s$ ?& R4 o! h ; Z( j% G/ x5 L: B
5 U" |3 w' M! d; ^: m$ b: e* B or
; C+ P8 I/ s$ V3 z0 A0 p1 N http://www.gocad.co.kr/qa_lisp/218868/page/186 |
评分
-
查看全部评分
|
发表于 2011-7-27 16:58:33