[求助]：怎样判断？

suzhanli

怎样判断一个点在任意直线的哪一侧呢？

XDSoft

最初由 suzhanli 发布
[B]怎样判断一个点在任意直线的哪一侧呢？ [/B]

可以利用求点到直线的距离的计算公式，根据左下（右上），距离值的征服符号不同来判断。

Victorwu

准确的说，要分两种情况：
假设点为P1(X1,Y1)
（1）直线是x=a 的情况，
X1＞a时，点在线右侧；
X1＜a时，点在线左侧；
X1＝a时，点在线上；

（2）直线是y=kx+b 的情况
Y1＞kX1+b时，点在线上侧；
Y1＜kX1+b时，点在线下侧；
Y1＝kX1+b时，点在线上。

注意：发帖时“＜”符号要用全角，否则显示不正常。[/COLOR]

XDSoft

下面是求点到直线的距离的LSP代码，根据公式算法稍加转换就可以变成VBA代码

1、距离>0 点在直线（起点、终点）矢量方向的逆时针（左上方）
2、距离=0 , 点在直线上
3、距离<0, 点在直线（起点、终点）矢量方向的顺时针（右下方）

2. <normalfont>
   
3. ;;求点P0到P1,P2连直线距离.
   
4. (defun p2l (p0 p1 p2 / x1 y1 x2 y2 c1 c2 c3)
   
5.   (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2) c1 (- y2 y1)
   
6.         c2 (- x1 x2) c3 (sqrt (+ (* c1 c1)(* c2 c2))) c1 (/ c1 c3)
   
7.         c2 (/ c2 c3) c3 (/ (- (* x2 y1)(* x1 y2)) c3)
   
8.   )
   
9.   (+ (* c1 (car p0)) (* c2 (cadr p0)) c3)
   
10. )
    
11. </font>

<normalfont><br /> ;;求点P0到P1,P2连直线距离.<br /> (defun p2l (p0 p1 p2 / x1 y1 x2 y2 c1 c2 c3)<br />   (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2) c1 (- y2 y1)<br />         c2 (- x1 x2) c3 (sqrt (+ (* c1 c1)(* c2 c2))) c1 (/ c1 c3)<br />         c2 (/ c2 c3) c3 (/ (- (* x2 y1)(* x1 y2)) c3)<br />   )<br />   (+ (* c1 (car p0)) (* c2 (cadr p0)) c3)<br /> )<br /> </font>

Victorwu

多谢指教，这招不错，很明了

suzhanli

明白了！
下面是转换成VB.Net的代码：
Public Function ptToLineDistance(ByVal p0 As Object, ByVal p1 As Object, ByVal p2 As Object)   As Double
        Dim x1, y1, x2, y2 As Double
        Dim c1, c2, c3 As Double
        x1 = p1(0) : y1 = p1(1)
        x2 = p2(0) : y2 = p2(1)
        c1 = y2 - y1
        c2 = x1 - x2
        c3 = Math.Sqrt(c1 ^ 2 + c2 ^ 2)
        c1 = c1 / c3
        c2 = c2 / c3
        c3 = (x2 * y1 - x1 * y2) / c3
        Return c1 * p0(0) + c2 * p0(1) + c3
    End Function

不过，按上述代码，XD好像说反了！应为：
        1、距离<0 点在直线（起点、终点）矢量方向的逆时针（左上方）
        2、距离=0 , 点在直线上
        3、距离>0, 点在直线（起点、终点）矢量方向的顺时针（右下方）