|
|
发表于 2011-7-27 15:08:44
|
显示全部楼层
来自： 中国台湾
http://www.cadtutor.net/forum/archive/index.php/t-40010.html
; `$ b; r0 L( X8 z6 rHelp Modifying Converting Arc to Circle Lisp Code Please!" Z- u: v3 k; K2 ]" C [$ V, X9 G
' r0 q; O1 x* O* j$ \. d7 B===========================================================
2 |. t7 @5 v( v" m6 Z3 L/ z7 I;;; http://ww3.cad.de/foren/ubb/Forum145/HTML/001720.shtml! @+ h3 B! n6 I( }' m& G
(defun c:Arc2Circle ()
/ B6 y3 V+ S% ~* S (defun arc2Circle (OBJ / DATA R M)
0 u* y; \5 o9 v; n& h (if(and(=(type OBJ)'ENAME)
0 U+ G9 a* \& n) S (setq DATA(entget OBJ))" h# t0 v% _$ Z8 ?
(=(cdr(assoc 0 DATA)) "ARC")
7 ?; t; I) P _" f (setq R (cdr(assoc 40 DATA)))
7 H* ^: @7 l1 F& M# j (setq M (cdr(assoc 10 DATA)))
1 V/ p2 J8 I4 {6 Q )$ L! N! {7 z: y; d' m
(progn
9 D6 \' w) O9 J2 o, m: V, ~: A (command "_circle" M R) " X. |# X; O( r V5 k5 R
(command "_matchprop" OBJ (entlast)"")
( Z7 B, b7 @4 I" V/ j. L (entdel OBJ)
0 C# R2 k/ n- Y o )
6 C1 n Y$ o8 ~, b7 Y) H )! T5 i: D% \& h% N6 w
)
2 `4 \- k4 x# k Z, z v, X! g (Arc2Circle (car(entsel "\n请选择弧: ")))4 C* ^4 d: s1 k
); ?* _, _6 K2 ^ V9 Q+ Q7 Z, u
4 n# E- x; L0 X/ J7 K 4 M( P9 L: i1 F2 T) U
or- U& t7 P5 a' V' [
http://www.gocad.co.kr/qa_lisp/218868/page/186 |
评分
-
查看全部评分
|
发表于 2011-7-27 16:58:33