Public Class tdb
    <CommandMethod("tdb")> _
    Public Sub TZBH()
        On Error Resume Next
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acEditor As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
        '过滤条件
        Dim acTypValAr(0) As TypedValue
        acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TCH_OPENING"), 0)
        'acTypValAr.SetValue(New TypedValue(DxfCode.Start, "BlockReference"), 0)
        Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
        Dim acSSPrompt As PromptSelectionResult = acEditor.GetSelection(acSelFtr)
        Dim acSSet As SelectionSet = acSSPrompt.Value
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim I As Long
            For I = 0 To acSSet.Count - 1
                Dim e As Entity = acTrans.GetObject(acSSet.Item(I).ObjectId, OpenMode.ForRead)
                Application.SetSystemVariable("LOGFILEMODE", 1) 'Log开
                e.List() '就是AutoCAD的list命令
                Application.SetSystemVariable("LOGFILEMODE", 0) 'Log关
                Dim LogPath As String = Application.GetSystemVariable("LOGFILENAME")
                acDoc.Editor.WriteMessage(vbCrLf + LogPath)
                MsgBox(LogPath)
                Dim DataString As Object
                DataString = ReadFile(LogPath)
                Dim J As Int16 = UBound(DataString)
                Dim N As Int16
                Dim Str As String = ""
                For N = J - 13 To J
                    Str = Str & vbCrLf & DataString(N)
                Next
                MsgBox(Str)
            Next
            acTrans.Commit()
        End Using
        MsgBox(Err.Source)
    End Sub
    Function ReadFile(ByVal Path As String) As Object
        Dim DataString() As String = Nothing
        Dim F As System.IO.StreamReader
        F = FileIO.FileSystem.OpenTextFileReader(Path, System.Text.Encoding.Default)
        Dim I As Long
        Do While Not F.EndOfStream
            ReDim Preserve DataString(I)
            DataString(I) = F.ReadLine
            I = I + 1
        Loop
        ReadFile = DataString
    End Function
End Class