判断曲线是否封闭

XDSoft

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,ELLIPSE")
   
10.       t
    
11.     )
    
12.     ((wcmatch na "SPLINE,*POLYLINE")
    
13.       (= 1 (logand (cdr (assoc 70 ed)) 1))
    
14.     )
    
15.     (t
    
16.       nil
    
17.     )
    
18.   )
    
19. )
    

;|<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,ELLIPSE")<br />       t<br />     )<br />     ((wcmatch na "SPLINE,*POLYLINE")<br />       (= 1 (logand (cdr (assoc 70 ed)) 1))<br />     )<br />     (t<br />       nil<br />     )<br />   )<br /> )<br />

laibinwu

不是有那个vlax-curve-isclosed函数吗

vlax-curve-isClosed  确定指定曲线是否闭合（即起点与端点是否重合）

XDSoft

laibinwu 发表于 2013-6-13 22:52
不是有那个vlax-curve-isclosed函数吗

vlax-curve-isClosed  确定指定曲线是否闭合（即起点与端点是否重 ...

是的，这个是纯LISP的组码判断的。

st788796

参数为 Ent？既然用 Alisp，判断了后续多数要用到 elist ，所以这个函数的参数用 elist 更佳，尤其在排量操作中，函数内部就不要再浪费一次 entget 了

XDSoft

st788796 发表于 2013-6-14 00:35
参数为 Ent？既然用 Alisp，判断了后续多数要用到 elist ，所以这个函数的参数用 elist 更佳，尤其在排量操 ...

基于对象的操作，概念更清晰些。让用户那边少行代码。

zyhandw

写得很棒，学习了

xshrimp

绘制pline是.不是用c选项闭合,而实际是闭合的pline如何界定? 是闭合还是不闭合啊?

(< (distance (vlax-curve-getStartPoint obj) (vlax-curve-getEndPoint obj)) 0.0001)
可以认为是闭合的?

dnbcgrass

当多段线最后一点与第一个重合时，70的组码值为0，难道这多段线不算闭合？例如下的数据：
((-1 . <图元名: 7ef62e80>) (0 . LWPOLYLINE) (330 . <图元名: 7ef62cf8>) (5 . 90)
(100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbPolyline) (90 . 5)
(70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 16.4267 21.7325) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 23.3582 22.425) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
21.9719 15.5459) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 15.7335 17.3465) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 16.4267 21.7325) (40 . 0.0) (41 . 0.0) (42 .
0.0) (210 0.0 0.0 1.0))

dnbcgrass

大家讨论一下，如此造成的图形算不算闭合？

1. 
   
2. (entmake '((0 . "LWPOLYLINE")(100 . "AcDbEntity")(100 . "AcDbPolyline") (90 . 5)
   
3.            (10 16.4267 21.7325)
   
4.            (10 23.3582 22.425)
   
5.            (10 21.9719 15.5459)
   
6.            (10 15.7335 17.3465)
   
7.            (10 16.4267 21.7325)
   
8.           )
   
9. )
   

复制代码

dnbcgrass

个人认为不能称为“曲线”，例如圆、椭圆等没有70的组码，但它是闭合的，“曲线”的范围应该是很大。

XDSoft

dnbcgrass 发表于 2013-6-14 12:35
个人认为不能称为“曲线”，例如圆、椭圆等没有70的组码，但它是闭合的，“曲线”的范围应该是很大。

曲线类(AcDbCurve)是圆、椭圆、弧线、多段线、SPLINE线的父类，之所以放入名称CURVE，是因为不能对SPLINE,多段线都单独提供这样的函数。
就是ObjectARX对象类的方法里面，isClosed 也是放入曲线的基类 AcDbCurve类里面的。

对于具体LISP使用而言，应该在调用该函数时候，就应该判断出是否是对圆和椭圆进行操作，所以没有加入对圆、椭圆的判断。不过，我可以加入些代码，让函数对圆和椭圆等直接返回T。

XDSoft

dnbcgrass 发表于 2013-6-14 12:18
大家讨论一下，如此造成的图形算不算闭合？

可以试试 vlax-curve-isClosed方法，对这样的返回是不是重合。

我觉得，你举的例子，应该在这个函数使用前LISP自己判断，不应该和曲线类的是否闭合放到一起，哪怕另外定义函数。 你这个例子可以用函数

http://bbs.xdcad.net/thread-668703-1-1.html

(setq lst (XD::PnTs:Close lst)) 来另外处理。

Free-Lancer

端点重合也不一定是闭合，在lisp没必要写这些太通用的，但是没有这个过程也体会不到lisp的内涵和局限来自: Android客户端

q3_2006

组码判断，新手好理解！

守仁格竹GM

老大看看这样行不行，
改进了起点端点一样但是不闭合的判断
把利用率较高的情况放到了前面

游客，如果您要查看本帖隐藏内容请回复