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

edata · 发表于 2014-6-21 12:13

9楼说得极是。。。。

荒野孤行 · 发表于 2014-6-21 12:45

nzl1116 发表于 2014-6-21 09:23
其实象楼主的"8"字型也有两种情况，一种是交叉部分"X"型，另外一种是两个"V"字型，如果点重合不算自交，那 ...

如果多段线自交点那里是圆弧呢？

edata · 发表于 2014-6-21 12:57

如果是圆弧的话，估计得先用凸度算出弧arc，再计算交点。

edata · 发表于 2014-6-21 13:01

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

本来是算的，后面看到9楼所言，改的。
如果两V算交点，是算一个还是算两个，目前是两个。

nzl1116 · 发表于 2014-6-21 14:26

本帖最后由 nzl1116 于 2014-6-21 14:58 编辑

获取外观交点，如果存在节点交叉共线的，要先移除多余的节点。

(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 GetSelfInters (Ename / VlaObj PrmLst EndPrm)
(setq VlaObj (vlax-ename->vla-object Ename))
(setq EndPrm (vlax-curve-GetEndParam VlaObj))
(if (= (vlax-curve-GetParamAtPoint VlaObj (vlax-curve-GetPointAtParam VlaObj EndPrm)) 0)
(setq EndPrm (1- EndPrm))
)
(setq PrmLst (append
(vl-remove-if
(function (lambda (x) (= (fix x) x)))
(mapcar
(function
(lambda (y)
(vlax-curve-GetParamAtPoint VlaObj y)
)
)
(intersectPts VlaObj VlaObj)
)
)
(mapcar 'fix (RemoveParam EndPrm 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 GetSelfInters (Ename / VlaObj PrmLst EndPrm) 
  (setq VlaObj (vlax-ename->vla-object Ename)) 
  (setq EndPrm (vlax-curve-GetEndParam VlaObj)) 
  (if (= (vlax-curve-GetParamAtPoint VlaObj (vlax-curve-GetPointAtParam VlaObj EndPrm)) 0) 
    (setq EndPrm (1- EndPrm)) 
  ) 
  (setq PrmLst (append 
                 (vl-remove-if 
                   (function (lambda (x) (= (fix x) x))) 
                   (mapcar 
                     (function 
                       (lambda (y) 
                         (vlax-curve-GetParamAtPoint VlaObj y) 
                       ) 
                     ) 
                     (intersectPts VlaObj VlaObj) 
                   ) 
                 ) 
                 (mapcar 'fix (RemoveParam EndPrm VlaObj)) 
               ) 
  ) 
  (mapcar (function (lambda (x) (vlax-curve-GetPointAtParam VlaObj x))) 
          (vl-sort PrmLst '<) 
  ) 
)

xyp1964 · 发表于 2014-6-21 14:28

荒野孤行 · 发表于 2014-6-21 19:28

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

黄师傅，您怎么看？

Gu_xl · 发表于 2014-6-21 21:24

Gu_xl的个人空间：计算多段线自交点函数

llsheng_73 · 发表于 2014-6-23 10:59

个人认为，如果只用那个多线段可以做出面域的数量多于(rem(cdr(assoc 70(entget e)))2)就应该是自相交的，也就是说不闭合多线段有一个及以上封闭区域或者闭合多线段有两个及以上闭合区域，那么这条多线段自相交

Gu_xl · 发表于 2014-6-23 12:15

llsheng_73 发表于 2014-6-23 10:59
个人认为，如果只用那个多线段可以做出面域的数量多于(rem(cdr(assoc 70(entget e)))2)就应该是自相交的，也 ...

判断多段线是否自交：
(if (> (length (setq l (vlax-invoke obj 'offset 1e-6))) 1)
(princ "\n自交")
(princ "\n不自交")
)
(mapcar 'vla-delete l)

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

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

本帖子中包含更多资源

点评

点评

评分

本帖子中包含更多资源