怎么判断两多段线相交点？只是接触、叠合不算，并标出相交处。

st788796 · 发表于 2013-9-6 15:52:43

求两线上所有交点，按param排序，两两判断跨越顶点的标记

牢固 · 发表于 2013-9-6 20:14:11

本帖最后由牢固于 2013-9-6 20:20 编辑

soly2006 发表于 2013-9-6 15:29
版主麻烦看一下，就是这样的图，检查错误处

你要早给出这样的图，大家就知道你要干什么了！大家会根据你的需求给出不同的思路和方法！不要拿你解决问题的思路放上来提问，有可能你的思路根本就有问题！提问也是一门艺术，要学会怎样去提问！
我提供用面域法可以计算出两封闭区间的相交情况：
思路：
1、将多边形1 和多边形2转成面域，计算出面积s1 和 s2,
2、将面域1 和面域2 做布尔和运算，得到新面域，计算出面积s3
3、分析面积S3和 S1 + S2的关系，你自己画个图分析下，就能得出他们之间的逻辑关系！
这个帖子里有讨论：http://www.xdcad.net/forum/thread-667514-1-1.html

Free-Lancer · 发表于 2013-9-6 20:23:48

LZ 的图很多线标高不同不能直接求交点！

soly2006 · 发表于 2013-9-6 22:11:41

标高都不是问题，主要是算法，以上的思路，数据大了运行都很慢，且都不理想，我抛出这话题就是想引出个好的算法，看是不是我太笨没找到现存的函数，

牢固 · 发表于 2013-9-6 23:04:46

soly2006 发表于 2013-9-6 22:11
标高都不是问题，主要是算法，以上的思路，数据大了运行都很慢，且都不理想，我抛出这话题就是想引出个好的 ...

要考虑效率问题，进行大量数据的判断，那还是放弃Lisp吧，Lisp的效率问题是短板！

Free-Lancer · 发表于 2013-9-7 03:28:30

soly2006 发表于 2013-9-6 15:29
版主麻烦看一下，就是这样的图，检查错误处

CAD 2011+ and xdapi

(defun c:tt (/ oldlyr)
(if (tblsearch "layer" "$tmpcheck")
(setq oldlyr (getvar "clayer"))
(progn
(setq oldlyr (getvar "clayer"))
(vl-cmdf ".layer" "m" "$tmpcheck" "c" "1" "" "")
)
)
(xdrx_undostart)
(vl-catch-all-apply
(function
(lambda (/ ss el e1 el1 e2 pts pams z1 z2 tf pams1 s)
(if (setq ss (ssget '((0 . "*polyline") (8 . "JMD"))))
(progn
(setvar "clayer" "$tmpcheck")
(setvar "pdmode" 35)
(setvar "pdsize" 1)
(setq el (xdrx_pickset->ents ss))
(xdrx_setmark)
(while el
(setq e1 (car el)
el1 (cdr el)
z1 (getpropertyvalue e1 "Elevation")
)
(while el1
(setq e2 (car el1)
z2 (getpropertyvalue e2 "Elevation")
)
(if (/= z2 z1)
(progn
(setpropertyvalue e2 "Elevation" z1)
(setq tf t)
)
)
(if (setq pts (xdrx_curve_getinters e1 e2 0))
(progn
(setq
pams (vl-remove
nil
(mapcar
'(lambda (x)
(vlax-curve-getparamatpoint e1 x)
)
pts
)
)
pams1 (mapcar
'(lambda (x)
(vlax-curve-getparamatpoint e2 x)
)
pts
)
)
(if (and pams pams1)
(mapcar
'(lambda (x y z)
(if
(not (or
(and (= (fix x) x) (/= (fix z) z))
(and (/= (fix x) x) (= (fix z) z))
(and (= (fix x) x) (= (fix z) z))
)
)
(xdrx_point_make y)
)
)
pams
pts
pams1
)
)
)
)
(if tf
(setpropertyvalue e2 "Elevation" z2)
)
(setq el1 (cdr el1)
tf nil
)
)
(setq el (cdr el))
)
(if (setq s (xdrx_getss))
(sssetfirst nil s)
)
)
)
)
)
)
(xdrx_undoend)
(setvar "clayer" oldlyr)
(princ)
)

(defun c:tt (/ oldlyr) 
  (if (tblsearch "layer" "$tmpcheck") 
    (setq oldlyr (getvar "clayer")) 
    (progn 
      (setq oldlyr (getvar "clayer")) 
      (vl-cmdf ".layer" "m" "$tmpcheck" "c" "1" "" "") 
    ) 
  ) 
  (xdrx_undostart) 
  (vl-catch-all-apply 
    (function 
      (lambda (/ ss el e1 el1 e2 pts pams z1 z2 tf pams1 s) 
 (if (setq ss (ssget '((0 . "*polyline") (8 . "JMD")))) 
   (progn 
     (setvar "clayer" "$tmpcheck") 
     (setvar "pdmode" 35) 
     (setvar "pdsize" 1) 
     (setq el (xdrx_pickset->ents ss)) 
     (xdrx_setmark) 
     (while el 
       (setq e1 (car el) 
      el1 (cdr el) 
      z1 (getpropertyvalue e1 "Elevation") 
       ) 
       (while el1 
  (setq e2 (car el1) 
        z2 (getpropertyvalue e2 "Elevation") 
  ) 
  (if (/= z2 z1) 
    (progn 
      (setpropertyvalue e2 "Elevation" z1) 
      (setq tf t) 
    ) 
  ) 
  (if (setq pts (xdrx_curve_getinters e1 e2 0)) 
    (progn 
      (setq 
        pams  (vl-remove 
         nil 
         (mapcar 
    '(lambda (x) 
       (vlax-curve-getparamatpoint e1 x) 
     ) 
    pts 
         ) 
       ) 
        pams1 (mapcar 
         '(lambda (x) 
     (vlax-curve-getparamatpoint e2 x) 
          ) 
         pts 
       ) 
      ) 
      (if (and pams pams1) 
        (mapcar 
   '(lambda (x y z) 
      (if 
        (not (or 
        (and (= (fix x) x) (/= (fix z) z)) 
        (and (/= (fix x) x) (= (fix z) z)) 
        (and (= (fix x) x) (= (fix z) z)) 
      ) 
        ) 
         (xdrx_point_make y) 
      ) 
    ) 
   pams 
   pts 
   pams1 
        ) 
      ) 
    ) 
  ) 
  (if tf 
    (setpropertyvalue e2 "Elevation" z2) 
  ) 
  (setq el1 (cdr el1) 
        tf  nil 
  ) 
       ) 
       (setq el (cdr el)) 
     ) 
     (if (setq s (xdrx_getss)) 
       (sssetfirst nil s) 
     ) 
   ) 
 ) 
      ) 
    ) 
  ) 
  (xdrx_undoend) 
  (setvar "clayer" oldlyr) 
  (princ) 
)

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

[求助] 怎么判断两多段线相交点？只是接触、叠合不算，并标出相交处。

点评