点と線分の距離
Sub get_distance_p_l(xx, yy, x1, y1, x2, y2, distance)
    dx = (x2 - x1): dy = (y2 - y1)
    a = dx ^ 2 + dy ^ 2: b = dx * (x1 - xx) + dy * (y1 - yy)
    t = -b / a
    If t < 0 Then t = 0
    If t > 1 Then t = 1
    tx = x1 + dx * t: ty = y1 + dy * t
    distance = Sqr((xx - tx) ^ 2 + (yy - ty) ^ 2)
End Sub

※distanceに距離が格納されます
こちらのサイトこちらのサイトを参考にさせていただきました
Hino 23:57 2007.01.24 Wednesday
 署名 
 内容 
      
新しい記事
 題名 
 署名   File
 本文