判断同一条多段线是否有交叉点，并求出其坐标点

荒野孤行 · 发表于 2014-6-20 22:00

要求如下，请高手给出思路。

nzl1116 · 发表于 2014-6-20 22:00

(defun GetPts (Lst)
(if (caddr Lst)
(cons
(list (car Lst) (cadr Lst) (caddr Lst))
(GetPts (cdddr Lst))
)
)
)
(defun intersectPts (vlaobj1 vlaobj2 / ptsVar ptsArray ptsList)
(setq ptsVar (vla-intersectwith vlaobj1 vlaobj2 acExtendNone)
ptsArray (vlax-variant-value ptsVar)
ptsList (vl-catch-all-apply 'vlax-safeArray->list (list ptsArray))
)
(if (vl-catch-all-error-p ptsList)
nil
(GetPts ptsList)
)
)
(defun RemoveParam (EndPrm Pline / SomPrm)
(cond ((= EndPrm 0) nil)
((= (setq SomPrm (vlax-curve-GetParamAtPoint
Pline
(vlax-curve-GetPointAtParam Pline EndPrm)
)
)
EndPrm
)
(RemoveParam (1- EndPrm) Pline)
)
((/= SomPrm EndPrm)
(cons SomPrm (RemoveParam (1- EndPrm) Pline))
)
)
)
(defun GetAllSelfInters (Ename / VlaObj PrmLst)
(setq VlaObj (vlax-ename->vla-object Ename))
(setq
PrmLst (append
(vl-remove-if
(function (lambda (x) (= (fix x) x)))
(mapcar
(function
(lambda (x) (vlax-curve-GetParamAtPoint VlaObj x))
)
(intersectPts VlaObj VlaObj)
)
)
(RemoveParam (vlax-curve-GetEndParam VlaObj) VlaObj)
)
)
(mapcar (function (lambda (x) (vlax-curve-GetPointAtParam VlaObj x))
)
(vl-sort PrmLst '<)
)
)

(defun GetPts (Lst) 
  (if (caddr Lst) 
    (cons 
      (list (car Lst) (cadr Lst) (caddr Lst)) 
      (GetPts (cdddr Lst)) 
    ) 
  ) 
) 
(defun intersectPts (vlaobj1 vlaobj2 / ptsVar ptsArray ptsList) 
  (setq        ptsVar         (vla-intersectwith vlaobj1 vlaobj2 acExtendNone) 
        ptsArray (vlax-variant-value ptsVar) 
        ptsList         (vl-catch-all-apply 'vlax-safeArray->list (list ptsArray)) 
  ) 
  (if (vl-catch-all-error-p ptsList) 
    nil 
    (GetPts ptsList) 
  ) 
) 
(defun RemoveParam (EndPrm Pline / SomPrm) 
  (cond        ((= EndPrm 0) nil) 
        ((= (setq SomPrm (vlax-curve-GetParamAtPoint 
                           Pline 
                           (vlax-curve-GetPointAtParam Pline EndPrm) 
                         ) 
            ) 
            EndPrm 
         ) 
         (RemoveParam (1- EndPrm) Pline) 
        ) 
        ((/= SomPrm EndPrm) 
         (cons SomPrm (RemoveParam (1- EndPrm) Pline)) 
        ) 
  ) 
) 
(defun GetAllSelfInters        (Ename / VlaObj PrmLst) 
  (setq VlaObj (vlax-ename->vla-object Ename)) 
  (setq 
    PrmLst (append 
             (vl-remove-if 
               (function (lambda (x) (= (fix x) x))) 
               (mapcar 
                 (function 
                   (lambda (x) (vlax-curve-GetParamAtPoint VlaObj x)) 
                 ) 
                 (intersectPts VlaObj VlaObj) 
               ) 
             ) 
             (RemoveParam (vlax-curve-GetEndParam VlaObj) VlaObj) 
           ) 
  ) 
  (mapcar (function (lambda (x) (vlax-curve-GetPointAtParam VlaObj x)) 
          ) 
          (vl-sort PrmLst '<) 
  ) 
)

Gu_xl · 发表于 2014-6-21 00:28

逐段计算与其不相邻的线段交点！

自贡黄明儒 · 发表于 2014-6-21 08:06

nzl1116,看看下面的图，仍有自交点，其实没有

love1030312 · 发表于 2014-6-21 08:15

不懂~~~~纯支持

自贡黄明儒 · 发表于 2014-6-21 08:18

nzl1116 发表于 2014-6-21 02:18

我在http://bbs.mjtd.com/thread-108149-1-1.html收录有st788796的作品，据一个网友说有问题。今天试了一下，如下图，确实有问题。
你的程序也同样有这个问题
你们两大高手如果不能解决，其他也解决不了啦。
其他高手比你们的更粗糙。

nzl1116 · 发表于 2014-6-21 09:02

自贡黄明儒发表于 2014-6-21 08:18
我在http://bbs.mjtd.com/thread-108149-1-1.html收录有st788796的作品，据一个网友说有问题。今天试了一 ...

是不是点重合不算自交？

自贡黄明儒 · 发表于 2014-6-21 09:06

nzl1116 发表于 2014-6-21 09:02
是不是点重合不算自交？

这个命题倒是有点困难哈
对于一般绘图而言，只要是肉眼看不到有交点，应该就不算自交。

nzl1116 · 发表于 2014-6-21 09:23

自贡黄明儒发表于 2014-6-21 09:06
这个命题倒是有点困难哈
对于一般绘图而言，只要是肉眼看不到有交点，应该就不算自交。

其实象楼主的"8"字型也有两种情况，一种是交叉部分"X"型，另外一种是两个"V"字型，如果点重合不算自交，那两个"V"字型应该也不算。这样的话，倒是增加了困难。

xhq1954425 · 发表于 2014-6-21 09:42

随便说说：凡是面域后创建0个面域不是有自交就是有重叠，对于开口的可用先使其闭合再面域……

账号		自动登录	找回密码
密码			注册

[已解答] 判断同一条多段线是否有交叉点，并求出其坐标点

最佳答案

相关帖子

本帖子中包含更多资源

点评