CAD批量去除教育版VBA程序.doc

《CAD批量去除教育版VBA程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、总体思路就是记录下要去除教育版的dwg文件的文件夹位置，然后对整个文件夹的所有dwg进行打开，存dxf，删除dwg，打开dxf，存dwg操作，就可以去除教育版。PrivateSubCommandButton11_Click()'选择文件，记录文件地址CommonDialog2.CancelError=TrueWithCommonDialog2.Filter="*.dwg

2、*.dwg".ShowSaveDimAAsStringA=Trim(.FileName)i=InStrRev(A,"")MyPath=Mid(A,1,i)'文件目录EndWithUserForm1.

3、hideDimMyFile,MyNameAsStringMyFile=Dir(MyPath&"*.dwg")DoWhileMyFile<>""'开始循环。nextline=Trim(MyFile)gangwei=InStr(nextline,".dwg")MyName1=Mid(nextline,1,gangwei-1)ThisDrawing.Application.Documents.OpenMyPath&MyName1&".dwg"ThisDrawing.Application.Documents(MyName1&".dwg").SaveAsMyPath&MyNa

4、me1,ac2004_dxf'存DXFThisDrawing.CloseKill(MyPath&MyName1&".dwg")'删除DWGThisDrawing.Application.Documents.OpenMyPath&MyName1&".dxf"'打开dxfThisDrawing.Application.Documents(MyName1&".dxf").SaveAsMyPath&MyName1,ac2004_dwg'存dwgThisDrawing.CloseKill(MyPath&MyName1&".dxf")MyFile=DirLoopEndSub