【VB6】判断点是否在线段上的简单算法

设平面上有点A(xa,ya),点B(xb,yb),点C(xc,yc),连接AB,问:如何用VB代码判断C点是否在线段AB上?

代码如下:

Public Function JudgmentPointOnline(xa As Single, ya As Single, xb As Single, yb As Single, xc As Single, yc As Single,Optional fuzzyDistance As Single) As Boolean
    If Sqr((xa- xb) ^ 2 + (ya- yb) ^ 2) + fuzzyDistance >= Sqr((xa- xc) ^ 2 + (ya- yc) ^ 2) + Sqr((xb- xc) ^ 2 + (yb- yc) ^ 2) Then
        JudgmentPointOnline = True
    End If
End Function

原理很简单:

原理基础:三角形两边之和必定大于第三边。

通过判断线段AB的长与线段AC+BC的长度关系,就能确定点C与线段AB的大致距离。如果C在AB上,则AC+BC=AB;只要C不在AB上,AC+BC>AB。

因为有时候需要近似在AB上就可以了,故上述代码中加入了一个可选参数fuzzyDistance(模糊距离)用来增加判定范围。

你可能感兴趣的:(VB遇到的那些事)