vbnet 在autocad当中提取所有zhix图层和dmx图层相交点坐标以此为中心点提取dmx图层多段线上所有变化点坐标数据输出到文本

以下是使用VB.NET在AutoCAD中提取所有zhix图层和dmx图层相交点坐标，以此为中心点，提取dmx图层多段线上所有变化点坐标数据，并输出到文本的示例代码：

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Class ExtractPoints
    <CommandMethod("ExtractPoints")>
    Public Sub ExtractPoints()
        ' 获取当前文档和数据库
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim db As Database = doc.Database

        ' 开始事务
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            ' 获取当前空间
            Dim spaceId As ObjectId = SymbolUtilityServices.GetBlockModelSpaceId(db)

            ' 打开当前空间的块表记录
            Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
            Dim btr As BlockTableRecord = trans.GetObject(spaceId, OpenMode.ForRead)

            ' 创建选择集过滤器来选择zhix图层的对象
            Dim zhixFilter As New SelectionFilter(New TypedValue() {New TypedValue(CInt(DxfCode.LayerName), "zhix")})

            ' 创建选择集过滤器来选择dmx图层的对象
            Dim dmxFilter As New SelectionFilter(New TypedValue() {New TypedValue(CInt(DxfCode.LayerName), "dmx")})

            ' 选择zhix图层的对象
            Dim zhixSelection As PromptSelectionResult = doc.Editor.GetSelection(zhixFilter)
            If zhixSelection.Status <> PromptStatus.OK Then
                Exit Sub
            End If

            ' 选择dmx图层的对象
            Dim dmxSelection As PromptSelectionResult = doc.Editor.GetSelection(dmxFilter)
            If dmxSelection.Status <> PromptStatus.OK Then
                Exit Sub
            End If

            ' 创建一个列表来存储相交点坐标
            Dim intersectionPoints As New List(Of Point3d)()

            ' 遍历zhix图层的对象
            For Each zhixId As ObjectId In zhixSelection.Value.GetObjectIds()
                Dim zhix As Entity = trans.GetObject(zhixId, OpenMode.ForRead)
                Dim zhixPolyline As Polyline = TryCast(zhix, Polyline)
                If zhixPolyline IsNot Nothing Then
                    ' 遍历dmx图层的对象
                    For Each dmxId As ObjectId In dmxSelection.Value.GetObjectIds()
                        Dim dmx As Entity = trans.GetObject(dmxId, OpenMode.ForRead)
                        Dim dmxPolyline As Polyline = TryCast(dmx, Polyline)
                        If dmxPolyline IsNot Nothing Then
                            ' 判断zhix图层的对象和dmx图层的对象是否相交
                            If zhixPolyline.IntersectWith(dmxPolyline, Intersect.OnBothOperands, Nothing) Then
                                Dim points As Point3dCollection = zhixPolyline.IntersectWith(dmxPolyline, Intersect.OnBothOperands, Nothing)
                                ' 将相交点坐标添加到列表中
                                For Each point As Point3d In points
                                    intersectionPoints.Add(point)
                                Next
                            End If
                        End If
                    Next
                End If
            Next

            ' 创建一个字符串来存储输出的文本
            Dim outputText As String = ""

            ' 遍历dmx图层的对象
            For Each dmxId As ObjectId In dmxSelection.Value.GetObjectIds()
                Dim dmx As Entity = trans.GetObject(dmxId, OpenMode.ForRead)
                Dim dmxPolyline As Polyline = TryCast(dmx, Polyline)
                If dmxPolyline IsNot Nothing Then
                    ' 遍历dmx图层多段线上的所有变化点坐标
                    For i As Integer = 0 To dmxPolyline.NumberOfVertices - 1
                        Dim vertex As Point2d = dmxPolyline.GetPoint2dAt(i)
                        ' 将变化点坐标添加到字符串中
                        outputText += "Vertex " & i & ": " & vertex.X & ", " & vertex.Y & vbCrLf
                    Next
                End If
            Next

            ' 提交事务
            trans.Commit()

            ' 将输出的文本保存到文件中
            Dim filePath As String = "C:\output.txt"
            System.IO.File.WriteAllText(filePath, outputText)

            ' 显示成功消息
            MsgBox("数据提取成功并保存到文件中！", MsgBoxStyle.Information, "成功")
        End Using
    End Sub
End Class

在AutoCAD中，你可以输入"ExtractPoints"命令来运行此代码。它将选择zhix和dmx图层的对象，并提取相交点坐标以及dmx图层多段线上的变化点坐标，并将结果保存到文件"output.txt"中。请记得修改文件路径为你所需的路径