判断曲线是否封闭

iLisp

nj-zx05 发表于 2014-11-14 11:46
这个函数对不用Close形成的闭合图形有异正常啊，是否要改判断起止点重复更好一点

从一楼往下数到16 看一看

fuckdavidwkj

居然还得回复！

熊掌设计

不错   谢谢分享~~~~~~~~~~~

bonny123

       想学学这个如何编译

kkt123

写得很棒，学习了:o

若水无形

学习啊 ，感谢楼主的分享{:soso_e113:}

edata

椭圆弧并不是闭合的，应该改成这样。

1. ;|
   
2. 判断曲线是否封闭
   
3. |;
   
4. (defun XD::Curve:isClosed (e / ed ise)
   
5.   (setq ed (entget e)
   
6.         na (cdr (assoc 0 ed))
   
7.   )
   
8.   (cond
   
9.     ((wcmatch na "CIRCLE")
   
10.       t
    
11.     )
    
12.     ((wcmatch na "ELLIPSE")
    
13.       (if(equal (abs (- (cdr (assoc 41 ed)) (cdr (assoc 42 ed))) )(* pi 2) 1e-8)
    
14.         t nil)
    
15.     )
    
16.     ((wcmatch na "SPLINE,*POLYLINE")
    
17.       (= 1 (logand (cdr (assoc 70 ed)) 1))
    
18.     )
    
19.     (t
    
20.       nil
    
21.     )
    
22.   )
    
23. )
    
24. ;(XD::Curve:isClosed (car(entsel)))

;|<br /> 判断曲线是否封闭<br /> |;<br /> (defun XD::Curve:isClosed (e / ed ise)<br />   (setq ed (entget e)<br />         na (cdr (assoc 0 ed))<br />   )<br />   (cond<br />     ((wcmatch na "CIRCLE")<br />       t<br />     )<br />     ((wcmatch na "ELLIPSE")<br />       (if(equal (abs (- (cdr (assoc 41 ed)) (cdr (assoc 42 ed))) )(* pi 2) 1e-8)<br />         t nil)<br />     )<br />     ((wcmatch na "SPLINE,*POLYLINE")<br />       (= 1 (logand (cdr (assoc 70 ed)) 1))<br />     )<br />     (t<br />       nil<br />     )<br />   )<br /> )<br /> ;(XD::Curve:isClosed (car(entsel)))

czcxxx_01

真是好东西，谢谢高手

tianbeiyuan

隐什么东西啊看看

fsyuwenjiang

学习一下，感谢提供

jiang__jin

看各位的分析受益匪浅