dwg转dxf（批量转dxf） —— CAD-VBA实现

 批量dwg文件转dwg文件方法：

将所有待转换dwg文件放入一个文件夹，代码中路径改为你的dwg文件所在路径，运行此vba代码即可自动将所有dwg文件转换为同名的dxf文件。

代码如下:

Sub dwg_to_dxf()
'yngqq443440204@2024年5月29日10:49:50
    ' The following example saves current drawing as "test.dwg"
    On Error Resume Next
    Dim lj As String, ljwj As String, mydqwj As AcadDocument
    lj = "D:\ZD\空白" '换成你的dwg文件路径
    ljwj = Dir(lj & "\*.dwg")
    Do While ljwj <> ""
     '''''''''''''''''''''''''''''''''''''''''''''''
'''完整代码联系本博qq443440204
'''
''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Loop
MsgBox "已完成"
End Sub

如图所示：文件夹下所有dwg已转为dxf格式，且文件名相同。