[求助]：这样判断两个线段是否共线为什么会经常漏掉一些？

aeo

最初由 陌生人 发布
[B]用xd说的方法,在简化一下，不求距离，直接判断点是否相等：
[code]
(defun atline (e1 e2 / p2s p2e)
  (setq p2s (vlax-curve-getstartpoint e2)
        p2e (vlax-curve-getendpoint e2))
  (and (equal p2s (vlax-... [/B]

用vlisp,是有好处，速度还快:)
还可以，延伸相交，没交点的方法

不过就知道四个点，这么做，就不见的好.

陌生人

前提不同，方法当然就可以不一样。
楼主的前提是已知两线。
不过还是希望aeo把你的四点方法贴出来（好像你以前贴过，就麻烦再贴一次），也算丰富一下这个命题贴子的内容。

lsjjm

知道四个点, 能否这样: ?
[PHP]
(defun c:test (p1 p2 p3 p4)
  (and (or (equal (angle p1 p2)(angle p3 p4) 0.001)
               (equal (angle p1 p2)(angle p4 p3) 0.001))
          (equal (angle p1 p2)(angle p1 p3) 0.001))
)
[/PHP]

lijiao

最初由 lsjjm 发布
[B]知道四个点, 能否这样: ?
[PHP]
(defun c:test (p1 p2 p3 p4)
  (and (or (equal (angle p1 p2)(angle p3 p4) 0.001)
               (equal (angle p1 p2)(angle p4 p3) 0.001))
          (equal (angle p1... [/B]

知道四点，这样可能会更简单：

2. 
   
3.   [FONT=courier new]
   
4. (defun gx (p1 p2 p3 p4 /)
   
5.   (and (not (inters p1 p3 p1 p4 nil))
   
6.        (not (inters p2 p3 p2 p4 nil))
   
7.   )
   
8. )
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun gx (p1 p2 p3 p4 /)<br />   (and (not (inters p1 p3 p1 p4 nil))<br />        (not (inters p2 p3 p2 p4 nil))<br />   )<br /> )<br />   [/FONT]<br />

陌生人

用inters会不会有误差？

lijiao

我只是大致测试一下，没有详细测试。

陌生人

我以前学lsp的时候用inters做过，但是总是有漏网之鱼，也许那个时候技术水平比较低，也没有解决这个问题就不了了之了，后来就再没考虑过用inters来做

lijiao

经过测试，INTERS方法不可取，会有很多的漏网之鱼。

liuyj

明白了，我说为什么老是会漏掉一些，是用了inters的原因，谢谢各位！