|
|
发表于 2011-7-27 15:08:44
|
显示全部楼层
来自： 中国台湾
http://www.cadtutor.net/forum/archive/index.php/t-40010.html
4 |8 C% b, G2 T, [. P% B# ^Help Modifying Converting Arc to Circle Lisp Code Please!
; \! U/ @* K A* t" \( J# V, F o9 T) \( l$ s
===========================================================( m8 X) L% M$ \, { _( f$ {% h
;;; http://ww3.cad.de/foren/ubb/Forum145/HTML/001720.shtml3 `3 j/ h2 e) y1 ~
(defun c:Arc2Circle ()1 ?& I- y4 |4 k8 e
(defun arc2Circle (OBJ / DATA R M)3 Y) O1 \# f# P2 m; y0 G' g
(if(and(=(type OBJ)'ENAME)" A( a$ C0 w) E5 O
(setq DATA(entget OBJ))
3 b% \! Y( N; _ (=(cdr(assoc 0 DATA)) "ARC")
0 j5 ~3 r( J' O& J( |. T# o (setq R (cdr(assoc 40 DATA)))
7 x* w3 o1 S' A: D (setq M (cdr(assoc 10 DATA)))
- R7 [6 o5 U7 Y' S# L1 Q: Z) B ) y: [4 S( r& G9 P9 z Y1 l3 s& r
(progn
8 R& k3 N0 y- T4 I8 n/ d/ M (command "_circle" M R)
) I( h" |& H, u; ~& x5 N5 c (command "_matchprop" OBJ (entlast)"")
' B: c0 t. b" F (entdel OBJ)
( E+ |: _9 X4 L! M, K ) , C, Z- h2 L4 `% d- J4 W
)
) ^: i4 N/ Z5 s. p3 F9 Y- z ) , k# n3 g& C% Z; f' D& c
(Arc2Circle (car(entsel "\n请选择弧: ")))
O' R! N; m5 J& s+ T2 N, W )4 p$ n& w9 ~9 _3 @# O
, T4 ^; t- O! M. v6 |3 V6 i3 z. ^" w
1 O( Z2 ?8 y& p* }9 e or
! u( R' T" q( P& }, E: t, l V http://www.gocad.co.kr/qa_lisp/218868/page/186 |
评分
-
查看全部评分
|
发表于 2011-7-27 16:58:33