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

在 VB.NET 中，可以使用 AutoCAD 的 COM 接口来读取 dmx 图层每条多段线的交点坐标，并将每条多段线的交点坐标分别存入数组，然后分行输出到文本文件中。下面是一个示例代码：

Imports System.IO
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 AcadModelSpace = 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 points As Object = polyline.GetCoordinates()

                ' 将交点坐标转换成字符串，并添加到数组中
                For i As Integer = 0 To points.Length - 3 Step 2
                    Dim x As Double = points(i)
                    Dim y As Double = points(i + 1)
                    Dim pointString As String = String.Format("( {0}, {1} )", x, y)
                    intersectionPoints.Add(pointString)
                Next
            End If
        Next

        ' 将交点坐标数组写入文本文件
        Using writer As New StreamWriter("output.txt")
            For Each pointString As String In intersectionPoints
                writer.WriteLine(pointString)
            Next
        End Using

        ' 关闭AutoCAD应用程序
        acadApp.Quit()
    End Sub

End Module

请注意，以上代码使用了 AutoCAD 的 COM 接口，所以在运行之前，请确保已经安装了 AutoCAD 应用程序，并且引用了 AutoCAD 的 COM 组件。