vb.net导出cad所有多段线顶点、长度、面积、图层、图元id等到txt

实现这个功能需要用到CAD的API，同时需要用到vb.net对文件的读写操作。以下是一个简单的实现步骤：

1. 在vb.net中添加对CAD的引用。

2. 创建一个CAD应用程序对象。

3. 打开需要导出的CAD文件。

4. 遍历CAD文件中的所有多段线对象，获取它们的顶点、长度、面积、图层和图元id等信息。

5. 将这些信息写入到txt文件中。

6. 关闭CAD文件，退出CAD应用程序。

下面是一个示例代码，可以根据自己的需求进行修改和完善：

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '创建CAD应用程序对象
        Dim oApp As New Autodesk.AutoCAD.Interop.AcadApplication
        oApp.Visible = True

        '打开需要导出的CAD文件
        Dim sFileName As String = "D:\test.dwg"
        Dim oDoc As Autodesk.AutoCAD.Interop.AcadDocument = oApp.Documents.Open(sFileName)

        '创建txt文件
        Dim sExportFileName As String = "D:\export.txt"
        Dim sw As StreamWriter = File.CreateText(sExportFileName)

        '遍历CAD文件中的所有多段线对象
        Dim oEnt As Autodesk.AutoCAD.Interop.AcadEntity
        For Each oEnt In oDoc.ModelSpace
            If TypeOf oEnt Is Autodesk.AutoCAD.Interop.AcadLWPolyline Then
                Dim oLWPolyline As Autodesk.AutoCAD.Interop.AcadLWPolyline = oEnt
                Dim sLayer As String = oLWPolyline.Layer
                Dim dLength As Double = oLWPolyline.Length
                Dim dArea As Double = oLWPolyline.Area
                Dim sObjectId As String = oLWPolyline.ObjectID.ToString

                '获取多段线的顶点信息
                Dim sVertices As String = ""
                Dim dVertex As Double()
                For i = 0 To oLWPolyline.NumberOfVertices - 1
                    dVertex = oLWPolyline.GetPoint(i)
                    sVertices = sVertices & dVertex(0) & "," & dVertex(1) & ";"
                Next
                sVertices = sVertices.TrimEnd(";")

                '将多段线的信息写入到txt文件中
                sw.WriteLine(sLayer & vbTab & dLength & vbTab & dArea & vbTab & sVertices & vbTab & sObjectId)
            End If
        Next

        '关闭txt文件
        sw.Close()

        '关闭CAD文件，退出CAD应用程序
        oDoc.Close()
        oApp.Quit()

    End Sub

End Class

以上代码仅供参考，具体实现还需要根据实际情况进行修改和完善。