[求助]：大家来编一个程序“判断点是否在一条直线上”？

xxming

大家来编一个程序“判断点是否在一条直线上”？

陌生人

是多个点是否在一条直线上，还是点是否在某一条直线上？

xxming

是点是否在某一条直线上

fools

假设需要判断的点为(X0,Y0),直线的起点为(X1,Y1),终点为(X2,Y2)
(Y0-Y1)/(X0-X1)=(Y2-Y0)/(X2-X0)则该点在直线上。
必要是加一个误差允许值。

XDSoft

最初由 xxming 发布
[B]大家来编一个程序“判断点是否在一条直线上”？ [/B]

用数学公式的“点到直线的距离”是否为0，来判断。

xxming

大家说的有道理

PLgis

同意4楼的意见，本问题的关键是要根据工作实际，确定适当的误差值
注意, 给定的误差值必须>0
;------------------------------------------------------------
;pt    点
;eLine 直线图元名
;ep    给定的误差>0, 如0.0000001
(defun IsOnLine(pt eLine ep / ed x0 y0 x1 y1 x2 y2 dk)
        (setq x0(car pt) y0(cadr pt))
        (setq ed(entget eLine))
        (setq x1(cadr(assoc 10 ed)) y1(caddr(assoc 10 ed)))
        (setq x2(cadr(assoc 11 ed)) y2(caddr(assoc 11 ed)))
        (setq dk(abs(-(/ (- y0 y1)(- x0 x1))(/ (- y2 y0)(- x2 x0)))))
        (if(<= dk ep)
                t
                nil
        )
)
;--------------------------------------------------------------
供参考。

fools

7楼的兄弟给一个小建议，直接用angle可以简化一些
若(angle p0 p1)=(angle p2 p0)，则点在直线上
若不等，但两角度之差的绝对值等与PI，则在直线的延长线上
不过这个程序只考虑到了二维的关系，若加入z坐标的因素，则xd兄的说法更全面些，但xd兄的方法可能较难判断点是在直线上，还是在延长线上
由于受三维的影响，角度即斜率的算法不准确，所以我想换一个方法，但不知是否有问题。
就是用distance函数，distance可以返回两个三维点之间的距离
若(distance p1 p0)+(distance p0 p2)=(distance p1 p2),则点在直线上
若不等,但 (abs ((distance p1 p0)-(distance p0 p2)))=(distance p1 p2),则在直线的延长线上

f5612140

如果用
  (ssget ss (ssget "f" (list pt1 pt2))))
  (ssget ss (ssget "p" '((0 . "POINT"))))
是否更明確得到穿越 pt1 pt2 (線兩端點)有選到物件 "point"

aeo

5贴 8贴可以
还可以:求p在p1 p2上   三角型原理:两边长和大于第三边
(equal (-(+ (distance p p1 )(distance p p2))(distance p1 p2))  1e-5)

fools

7楼的朋友，你的程序还要注意当x0=x1=x2时，程序会出错，建议改用angle和distance试试。
这个程序好象不难，但不知有什么用？

陌生人

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
功能
     返回曲线上离指定点最近的点（在 WCS 上）。
说明
1）参数 curve-obj 为要测量的 VLA 对象。
2）参数 givenPnt 为点（在 WCS 上），寻找曲线上距该点最近的点。
3）参数 extend 若指定该参数且其值不为 nil，那么 vlax-curve-getClosestPointTo  在搜索最近点时扩展曲线。
返回值：
若成功则返回表示曲线上一点的三维点表，否则返回 nil。


程序：

2. 
   
3. ;|pti-----判断一点是否在另一曲线上－－－－－－陌生人.2003.09
   
4. 支持所有类型曲线的判定
   
5. 一。 使用:
   
6.   eg:
   
7.   (setq pt (getpoint) obj (vlax-ename->vla-object (car (entsel))) )
   
8. 1。判断点在上
   
9.   (pti pt obj nil)
   
10. 2。判断点在曲线延长线上
    
11.   (pti pt obj T)
    
12. 二。程序中0.00001是必须的，因为不同的计算方法导致点的微小误差，这个误差通常在表中不表现出来（精度决定）
    
13. |;
    
14. (defun pti (pt obj key /)
    
15.   (if (equal pt (vlax-curve-getClosestPointTo obj pt key) 0.00001)
    
16.              'T
    
17.              'nil
    
18.   )
    
19. )
    

<br /> ;|pti-----判断一点是否在另一曲线上－－－－－－陌生人.2003.09<br /> 支持所有类型曲线的判定<br /> 一。 使用:<br />   eg:<br />   (setq pt (getpoint) obj (vlax-ename->vla-object (car (entsel))) )<br /> 1。判断点在上<br />   (pti pt obj nil)<br /> 2。判断点在曲线延长线上<br />   (pti pt obj T)<br /> 二。程序中0.00001是必须的，因为不同的计算方法导致点的微小误差，这个误差通常在表中不表现出来（精度决定）<br /> |;<br /> (defun pti (pt obj key /)<br />   (if (equal pt (vlax-curve-getClosestPointTo obj pt key) 0.00001)<br />              'T<br />              'nil<br />   )<br /> )<br />

使用环境：cad2kx
cad2002下测试通过

e2002

没那么复杂,使用vlax-curve-getDistAtPoint函数,返回nil就不在曲线上

陌生人

2。判断点在曲线延长线上
  (pti pt obj T)

luoyaya

如果要判断20个点和20个线的话,不知道会是哪个快~