批量清理CAD文件——vba实现（dvb插件）

此插件可批量处理文件夹下所有CAD文件，包括清理多余图层、快、线性等无效图元要素。

运行方法如下：cad控制栏输入"vbaman”加载此插件，输入"rbarun"运行此插件，选择需处理文件夹，即可自动完成所有cad文件清理工作。见下图：

 

文件夹内dwg文件已全部清理完成。

dvb插件可私本博，另附部分代码：

Sub purgeall()
'yngqq443440204@2024年7月24日16:18:44
'说明 选择文件夹，直接批量处理dwg和dxf文件，dwg文件名不变，dxf文件名前加日期前缀
'On Error Resume Next
Dim filepath As String
filepath = GOFOLDER
FileName = Dir(filepath & "\*.dwg")
Do While
'''''''''''''''
***************
   ZoomExtents
   ThisDrawing.Close True
   FileName = Dir
Loop
FileName = Dir(filepath & "\*.dxf")
Do While FileName <> ""
   '''''''''''''''
   ***************
    FileName = Dir
Loop
MsgBox "已完成!" & vbCr & "qq:443440204", , "版权所有qq:443440204"
End Sub