vbnet 在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应用程序才能正确执行代码。