vb.net 批量获取坐标点在已知坐标链表里的垂足坐标

你可以使用以下步骤来批量获取坐标点在已知坐标链表里的垂足坐标：

1. 定义一个函数来计算两个坐标点之间的斜率。可以使用以下公式：

slope = (y2 - y1) / (x2 - x1)

2. 定义一个函数来计算一个坐标点到一条直线的垂足坐标。可以使用以下公式：

foot_x = (slope * (y - y1) + x + (1 / slope) * x1 - y) / (slope + 1 / slope)
foot_y = slope * (foot_x - x) + y

其中，(x1, y1) 和 (x2, y2) 是直线上的两个点，(x, y) 是需要计算垂足的点。

3. 对于每个需要计算垂足的点，遍历已知坐标链表，计算该点到每条线段的垂足坐标，并找到距离最近的一个垂足坐标。

4. 将每个点的垂足坐标保存到一个新的链表中，并返回该链表作为函数的结果。

以下是一个示例代码，你可以在此基础上进行修改和优化：

Public Function GetFootPoints(points As List(Of Point), lines As List(Of Line)) As List(Of Point)
    Dim footPoints As New List(Of Point)

    For Each point In points
        Dim minDistance As Double = Double.MaxValue
        Dim footPoint As Point

        For Each line In lines
            Dim slope As Double = (line.EndPoint.Y - line.StartPoint.Y) / (line.EndPoint.X - line.StartPoint.X)

            Dim foot_x As Double = (slope * (point.Y - line.StartPoint.Y) + point.X + (1 / slope) * line.StartPoint.X - line.StartPoint.Y) / (slope + 1 / slope)
            Dim foot_y As Double = slope * (foot_x - point.X) + point.Y

            Dim distance As Double = Math.Sqrt((foot_x - point.X) ^ 2 + (foot_y - point.Y) ^ 2)

            If distance < minDistance Then
                minDistance = distance
                footPoint = New Point(foot_x, foot_y)
            End If
        Next

        footPoints.Add(footPoint)
    Next

    Return footPoints
End Function