VBA AutoCAD:从两个给定点沿特定路径绘制多段线

Sub DrawPolyline()
    Dim startPoint As Variant
    Dim endPoint As Variant
    Dim polylineObj As AcadLWPolyline
    
    ' 获取起始点和终点坐标
    startPoint = ThisDrawing.Utility.GetPoint(, "请输入起始点坐标：")
    endPoint = ThisDrawing.Utility.GetPoint(startPoint, "请输入终点坐标：")
    
    ' 创建多段线对象
    Set polylineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(startPoint, endPoint)
    
    ' 设置多段线的路径点
    polylineObj.AddVertex ThisDrawing.Utility.GetPoint(startPoint, "请输入路径点坐标：")
    polylineObj.AddVertex ThisDrawing.Utility.GetPoint(startPoint, "请输入路径点坐标：")
    ' 可以根据需要添加更多的路径点
    
    ' 更新多段线对象
    polylineObj.Update
End Sub