|
|
发表于 2011-7-27 15:08:44
|
显示全部楼层
来自： 中国台湾
http://www.cadtutor.net/forum/archive/index.php/t-40010.html1 e/ n" a/ H% R' a" q
Help Modifying Converting Arc to Circle Lisp Code Please!( z; K8 O2 z# Y
1 t) a$ }& b4 P1 p$ ~* n% g" y===========================================================: P! P8 Y/ @" f- T
;;; http://ww3.cad.de/foren/ubb/Forum145/HTML/001720.shtml
4 Z. {8 U$ `8 S5 f+ U6 X (defun c:Arc2Circle ()/ f& }. T" m/ H, W
(defun arc2Circle (OBJ / DATA R M)6 o Y; |/ c' G0 l# L
(if(and(=(type OBJ)'ENAME)
6 n) G: s; {* o (setq DATA(entget OBJ))
* I$ a1 P) o/ ~* N (=(cdr(assoc 0 DATA)) "ARC"): L0 r' w/ J; Q# [9 N, v0 r
(setq R (cdr(assoc 40 DATA)))
4 S% X& u4 ?7 l$ D$ g (setq M (cdr(assoc 10 DATA)))$ z. ]6 P: u2 q# d+ ~
)
( Z% H) `# ?& I0 U& H& r (progn7 B3 g' s, h2 x/ @/ Z) R3 P! }
(command "_circle" M R)
8 k1 m. }8 \: e6 }& U (command "_matchprop" OBJ (entlast)"")/ u) v Q' y$ E- T. Q
(entdel OBJ)
5 j8 U5 d+ D/ _$ f- |! l4 ~6 e )
; J$ \' a9 a" f" U% h# |/ x: ^ )0 U; J, F& k5 Y# ]! W u
) & i6 l/ ]) Y* d e4 ?
(Arc2Circle (car(entsel "\n请选择弧: ")))
, h: A$ b( o8 S& C! r/ k, H* i )& W }% s6 I$ j
" `5 A5 {+ y- i# A , {3 z0 ^5 M O, W& \. F" L- {
or
& D3 `( @" @0 H& w4 p( K2 j* C http://www.gocad.co.kr/qa_lisp/218868/page/186 |
评分
-
查看全部评分
|
发表于 2011-7-27 16:58:33