VB.NET 读取 AutoCAD 多段线交点坐标并输出到文本文件

在 VB.NET 中，可以使用 AutoCAD 的 COM 接口来读取多条多段线的交点坐标。以下是一个示例代码：

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Module Module1

    Sub Main()
        ' 创建 AutoCAD 应用程序对象
        Dim acadApp As New AcadApplication
        ' 启动 AutoCAD
        acadApp.Visible = True
        ' 获取当前文档对象
        Dim acadDoc As AcadDocument = acadApp.ActiveDocument
        ' 获取模型空间块对象
        Dim modelSpace As AcadBlock = acadDoc.ModelSpace
        ' 创建交点数组
        Dim intersectionPoints As New List(Of String)()

        ' 遍历所有多段线
        For Each entity As AcadEntity In modelSpace
            If TypeOf entity Is AcadLWPolyline Then
                Dim polyline As AcadLWPolyline = DirectCast(entity, AcadLWPolyline)
                ' 获取多段线的顶点数组
                Dim vertices As Double() = polyline.Coordinates
                ' 获取多段线的交点数组
                Dim intersections As Object() = polyline.IntersectWith(modelSpace, AcExtendOption.acExtendNone)

                ' 遍历交点数组
                For Each intersection As Object In intersections
                    ' 将交点坐标转换为字符串，并添加到交点数组中
                    Dim point As AcadPoint = DirectCast(intersection, AcadPoint)
                    intersectionPoints.Add(point.CoordinateString)
                Next
            End If
        Next

        ' 将交点数组输出到文本文件
        Using writer As New System.IO.StreamWriter('交点坐标.txt')
            For Each point As String In intersectionPoints
                writer.WriteLine(point)
            Next
        End Using

        ' 退出 AutoCAD
        acadApp.Quit()
    End Sub

End Module

在代码中，我们首先创建了 AutoCAD 应用程序对象 acadApp，并将其设置为可见。然后获取当前文档对象 acadDoc，以及模型空间块对象 modelSpace。接下来，我们使用 For Each 循环遍历模型空间中的所有实体，判断是否为多段线。如果是多段线，我们获取其顶点数组和交点数组，并将交点坐标转换为字符串后添加到交点数组 intersectionPoints 中。最后，我们将交点数组输出到文本文件 交点坐标.txt 中，并退出 AutoCAD 应用程序。

请注意，以上代码使用的是 AutoCAD 的 COM 接口，需要引用 Autodesk.AutoCAD.Interop 和 Autodesk.AutoCAD.Interop.Common 命名空间，并将 Interop.AcadXXX 类型转换为 AcadXXX 类型使用。此外，还需要安装 AutoCAD 并启动 AutoCAD 应用程序才能正确执行代码。