批量修改海量cad文件名——vba实现

如果需要修改大量dwg文件名，可将dwg文件放入一个文件夹，采用此dvb插件加载到cad ，输入 vbaman加载插件，输入vbarun运行插件，根据提示选择文件夹，即可一键完成海量文件名的自动复制修改。具体需求可专门代写代码、插件。

 

 

部分代码如下:
 
Sub 批量dwg改名()
'yngqq
Dim folderPath As String
 
Dim counter As Integer
counter = 0 '计数器，记录替换的文字数量
Dim fileName As String
folderPath = "C:\Users\Administrator\Desktop\新建文件夹"
fileName = Dir(folderPath & "\*.dwg")  '获取文件夹中的DWG文件
Do While fileName <> ""
    counter = counter + 1
    Dim acadDoc As AcadDocument
    Set acadDoc = Documents.Open(folderPath & "\" & fileName)
   
    ThisDrawing.SaveAs folderPath & "\" & "图" & CStr(counter) & ".dwg"
    ThisDrawing.Close
    fileName = Dir()
Loop
MsgBox "共修改了 " & counter & " 个图 " & Space(20) & vbCr & "443440204", , "版权qq所有"
End Sub