判断pl线自相交

Free-Lancer

/db_自贡黄明儒_ 发表于 2013-11-30 08:12
aeo版主请看，不论是否自交，返回的结果不对

测试下这个

1. (defun Polyline:IsSelfIntersect        (e / obj pts ptl pams)
   
2.   (setq obj (vlax-eanme->vla-object e))
   
3.   (if (setq pts (vlax-invoke obj 'IntersectWith obj 0))
   
4.     (progn
   
5.       (while pts
   
6.         (setq ptl (cons (list (car pts) (cadr pts) (caddr pts)) ptl)
   
7.               pts (cdddr pts)
   
8.         )
   
9.       )
   
10.       (setq
    
11.         pams
    
12.          (mapcar '(lambda (x) (vlax-curve-getparamatpoint e x))
    
13.                  ptl
    
14.          )
    
15.       )
    
16.       (if (vlax-curve-isclosed e)
    
17.         (or (not (equal (vlax-curve-getendparam e) (length ptl)))
    
18.             (not (apply '> (reverse (cdr (reverse pams)))))
    
19.         )
    
20.         (or (not (apply '> pams))
    
21.             (member '0.0 pams)
    
22.             (member (vlax-curve-getendparam e) pams)
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27. )
    
28. 
    

(defun Polyline:IsSelfIntersect        (e / obj pts ptl pams)<br />   (setq obj (vlax-eanme->vla-object e))<br />   (if (setq pts (vlax-invoke obj 'IntersectWith obj 0))<br />     (progn<br />       (while pts<br />         (setq ptl (cons (list (car pts) (cadr pts) (caddr pts)) ptl)<br />               pts (cdddr pts)<br />         )<br />       )<br />       (setq<br />         pams<br />          (mapcar '(lambda (x) (vlax-curve-getparamatpoint e x))<br />                  ptl<br />          )<br />       )<br />       (if (vlax-curve-isclosed e)<br />         (or (not (equal (vlax-curve-getendparam e) (length ptl)))<br />             (not (apply '> (reverse (cdr (reverse pams)))))<br />         )<br />         (or (not (apply '> pams))<br />             (member '0.0 pams)<br />             (member (vlax-curve-getendparam e) pams)<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br />

st788796

Free-Lancer 发表于 2013-12-3 00:44
测试下这个

如果可行，用这个方法还可以做一个自交断开

/db_自贡黄明儒_

Free-Lancer 发表于 2013-12-3 00:44
测试下这个

有也问题(含测试文件)

st788796

/db_自贡黄明儒_ 发表于 2013-12-3 08:18
有也问题(含测试文件)

pline 的节点param为 (eq index (fix index))设是一个序列，自交总结几个情况，
1 交点的param不是"整数"，
2 在节点处，param为"整数"，此时得到的交点已经不是连续序列
3 不自交的闭合线intersectwith后的点 不是一个连续序列
4 单段pline求交为nil
待续…

牢固

/db_自贡黄明儒_ 发表于 2013-12-3 08:18
有也问题(含测试文件)

14#楼的版本测试结果都是对的！

st788796

/db_自贡黄明儒_ 发表于 2013-12-3 08:18
有也问题(含测试文件)

知道了非自交的 IntersectWith 规律, 那求出凡和这个不等的就是自交

1. (defun rrr (e / getlst ep obj pts ptl pams il)
   
2.   (defun Getlst        (n / i il)
   
3.     (setq i (fix n))
   
4.     (repeat i (setq il (cons (setq n (1- n)) il)))
   
5.     il
   
6.   )
   
7.   (setq        obj (vlax-ename->vla-object e)
   
8.         ep  (vlax-curve-getendparam e)
   
9.   )
   
10.   (if (setq pts (vlax-invoke obj 'IntersectWith obj 0))
    
11.     (progn
    
12.       (while pts
    
13.         (setq ptl (cons (list (car pts) (cadr pts) (caddr pts)) ptl)
    
14.               pts (cdddr pts)
    
15.         )
    
16.       )
    
17.       (setq il         (cdr (getlst ep))
    
18.             pams (mapcar '(lambda (x)
    
19.                             (vlax-curve-getparamatpoint e x)
    
20.                           )
    
21.                          ptl
    
22.                  )
    
23.       )
    
24.       (if (vlax-curve-isclosed e)
    
25.         (not (equal (reverse pams)
    
26.                     (cons 1. (cons 0. (cdr il)))
    
27.              )
    
28.         )
    
29.         (or (not (equal (reverse pams) il))
    
30.             (member '0.0 pams) ;_假闭合情况
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35. )

(defun rrr (e / getlst ep obj pts ptl pams il)<br />   (defun Getlst        (n / i il)<br />     (setq i (fix n))<br />     (repeat i (setq il (cons (setq n (1- n)) il)))<br />     il<br />   )<br />   (setq        obj (vlax-ename->vla-object e)<br />         ep  (vlax-curve-getendparam e)<br />   )<br />   (if (setq pts (vlax-invoke obj 'IntersectWith obj 0))<br />     (progn<br />       (while pts<br />         (setq ptl (cons (list (car pts) (cadr pts) (caddr pts)) ptl)<br />               pts (cdddr pts)<br />         )<br />       )<br />       (setq il         (cdr (getlst ep))<br />             pams (mapcar '(lambda (x)<br />                             (vlax-curve-getparamatpoint e x)<br />                           )<br />                          ptl<br />                  )<br />       )<br />       (if (vlax-curve-isclosed e)<br />         (not (equal (reverse pams)<br />                     (cons 1. (cons 0. (cdr il)))<br />              )<br />         )<br />         (or (not (equal (reverse pams) il))<br />             (member '0.0 pams) ;_假闭合情况<br />         )<br />       )<br />     )<br />   )<br /> )

/db_自贡黄明儒_

st788796 发表于 2013-12-3 17:24
知道了非自交的 IntersectWith 规律, 那求出凡和这个不等的就是自交

我提供样图的左上角情况不对，其它均可，（鼠标点取闭合情况不对）

st788796

/db_自贡黄明儒_ 发表于 2013-12-4 08:14
我提供样图的左上角情况不对，其它均可，（鼠标点取闭合情况不对）

这个是假闭合情况,如果排除, 第二个 Or 改成
(not (equal (vl-remove '0. (reverse pams)) il))

xvjiex

感谢分享判断pl线自相交 ！