导入系统导入系统。text导入系统。IOImports系统。数据导入系统。LinqImports Autodesk。AutoCAD。运行时导入Autodesk。AutoCAD。DatabaseServicesImports Autodesk。AutoCAD。EditorInputImports Autodesk。AutoCAD。Geometry导入Autodesk。AutoCAD。ApplicationServices“”-----------------------------------------“”公共函数GetDirectoryDrawings（directoryFullName作为字符串，subDirsBrowse作为布尔值）作为列表（文件信息）Dim dir作为新的DirectoryInfo（directoryFullName），如果不是dir。如果Dim opt As SearchOption=SearchOption，则返回New DirectoryNotFoundException（）Nothing End。AllDirectories如果subDirsBrowse=False，则opt=SearchOption。TopDirectoryOnly返回目录。GetFiles（“*dwg”，opt）。AsEnumerable（）。OrderBy（函数（x）x.FullName）。ToList（）End Function“将命令名更改为适合\uPublic Sub testDirFiles（）Dim文件夹为String=“C:\Test”Dim csvfile为String=“C:\Test\atable.csv”Dim doc为Document=Autodesk。AutoCAD。应用程序服务。应用DocumentManager。MdiActiveDocument Dim db As Database=doc。数据库尺寸为Editor=doc。编辑器Dim fd As List（Of FileInfo）=GetDirectoryDrawings（folder，False）'True用于处理子目录Dim collect As New StringBuilder If fd。计数=0，然后返回尝试使用doclock作为DocumentLock=doc。n的LockDocument（），整数=0到fd。Count-1 Dim dwgname作为String=fd（n）。FullName使用newdb作为数据库=新数据库（False，True）ed.WriteMessage（vbLf+dwgname+vbLf）尝试使用newdb。ReadDwgFile（dwgname，FileOpenMode.OpenForReadAndAllShare，False，Nothing）Catch ex As Autodesk。AutoCAD。运行时。如果ex.ErrorStatus=ErrorStatus，则异常。如果End尝试使用newtr As Transaction=newdb，则DwgNeedsRecovery将继续用于End。TransactionManager。StartTransaction“打开字典以读取Dim layoutDict，因为DBDictionary=DirectCast（newtr.GetObject（newdb.LayoutDictionaryId，OpenMode.ForRead），DBDictionary）'遍历每个条目的字典条目作为字典进入layoutDict Dim ltr作为布局=DirectCast（newtr.GetObject（DirectCast（entry.Value，ObjectId），OpenMode。ForRead），Layout）Dim btr As BlockTableRecord=DirectCast（newtr.GetObject（ltr.BlockTableRecordId，OpenMode.ForRead），BlockTableRecord），每个id作为btr Dim obj中的ObjectId As DBObject=DirectCast（newtr.GetObject（id，OpenMode.ForRead），DBObject）如果对象的类型为Table，则Dim tbl为Table=TryCast（obj，Table），如果tbl不是Nothing，则收集。AppendLine（String.Format（“-----------------------------------------”）收集。AppendLine（String.Format（“绘图名称：{0}”，dwgname））收集。AppendLine（String.Format（“Tab:{0}”，ltr.LayoutName））Dim numrows As Integer=tbl。排。将Dim numcols计数为整数=tbl。柱。将i计数为整数=0到numrows-1 Dim行作为新列表（字符串的）Dim行作为字符串=字符串。对于j=0到numcols-1 Dim cel，为空，因为单元格=tbl。单元格（i，j）行线。添加（cel.TextString）行=行+单元格。text字符串+vbTab下一个collect。AppendLine（line.TrimEnd（vbTab））Next End If End If Next newtr。Commit（）End Using End Using Next End Using WriteTableToFile（csvfile，collect）Catch ex As System。异常ed.WriteMessage（vbLf+ex.ToString+vbLf）最终ed.WriteMessage（vbLf+vbTab+“-->文件另存为：{0}
置顶卡
