1、总体思路就是记录下要去除教育版的 dwg 文件的文件夹位置，然后对整个文件夹的所有dwg 进行打开，存 dxf，删除 dwg，打开 dxf，存 dwg 操作，就可以去除教育版。Private Sub CommandButton11_Click() 选择文件，记录文件地址CommonDialog2.CancelError = TrueWith CommonDialog2.Filter = “*.dwg|*.dwg“.ShowSaveDim A As StringA = Trim(.FileName)i = InStrRev(A, “)MyPath = Mid(A, 1, i) 文件目录End W
2、ithUserForm1.hideDim MyFile, MyName As StringMyFile = Dir(MyPath & “*.dwg“)Do While MyFile “ 开始循环。nextline = Trim(MyFile)gangwei = InStr(nextline, “.dwg“)MyName1 = Mid(nextline, 1, gangwei - 1)ThisDrawing.Application.Documents.Open MyPath & MyName1 & “.dwg“ThisDrawing.Application.Documents(MyName1 &
3、 “.dwg“).SaveAs MyPath & MyName1, ac2004_dxf 存 DXFThisDrawing.CloseKill (MyPath & MyName1 & “.dwg“) 删除 DWGThisDrawing.Application.Documents.Open MyPath & MyName1 & “.dxf“ 打开dxfThisDrawing.Application.Documents(MyName1 & “.dxf“).SaveAs MyPath & MyName1, ac2004_dwg 存 dwgThisDrawing.CloseKill (MyPath & MyName1 & “.dxf“)MyFile = DirLoopEnd Sub
