dwg转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 <> ""
        Set mydqwj = Documents.Open(lj & "\" & ljwj)
        mydqwj.SaveAs lj & "\" & Left(ljwj, Len(ljwj) - 4) & ".dxf", ac2004_dxf
         mydqwj.Close False
        ljwj = Dir
    Loop
MsgBox "已完成"
End Sub