solidworks vba 随机获取选择边线上三个点的坐标

在SolidWorks VBA中，如果你想随机获取所选边界线上的三个点的坐标，你可以编写一段脚本，如下所示，假设我们已经有一个`SelectedEdges`数组存储了所有选中的边缘对象：

Sub GetRandomPoints()
    Dim edge As PartEdge
    Dim startPoint As Point3d
    Dim midPoint As Point3d
    Dim endPoint As Point3d
    
    ' 获取选中边界的第一个点作为起点
    For Each edge In SelectedEdges(0).Edges
        startPoint = edge.StartPoint
        Exit For
    Next edge
    
    ' 随机生成中间点
    Dim randomRange As Double
    randomRange = edge.Length / 3 ' 边界长度除以3作为随机范围
    Dim rand As Double
    rand = Rnd * randomRange ' 生成介于0到随机范围内的一数值
    midPoint = startPoint + rand * edge.DirectionVector
    
    ' 结束点为边界终点
    endPoint = edge.EndPoint
    
    ' 输出三点坐标
    Debug.Print "Start Point: (" & startPoint.X & ", " & startPoint.Y & ", " & startPoint.Z & ")"
    Debug.Print "Middle Point: (" & midPoint.X & ", " & midPoint.Y & ", " & midPoint.Z & ")"
    Debug.Print "End Point: (" & endPoint.X & ", " & endPoint.Y & ", " & endPoint.Z & ")"
End Sub

这个脚本会选取选定边界的第一点作为起点，然后沿着边界方向随机选择一个中间点，并最终获取边界终点。注意，这只是一个基本示例，实际应用中可能需要处理边界为空、无合适中间点等异常情况。