好的..我必须承认,这个问题难住了我...我将给出这个场景,您可以在您的安装上测试它,看看结果是否相同...
场景:
VBA自动打开DXF文件并将版本备份到R12
用户通过公共对话框选择文件(在本论坛的其他地方可以找到)
VBA指示AutoCAD打开DXF文件并使其成为活动图形
VBA试图另存为以前的版本,但出现了错误...
-
- Sub DXF2R12()
- Set DXFDoc = Application.Documents.Open ("C:\MYFILE.DXF")
- DXFDoc.Saveas "C:\MYFILE.DXF", acR12_dxf
- End Sub
反正保存“dwg到dwg”、“dwg到dxf”或“dxf到dwg”没有问题只有“dxf到dxf”失败...
同时,我已经通过使用此变通方法解决了这个问题...
-
- Sub DXF2R12()
- Set DXFDoc = Application.Documents.Open ("C:\MYFILE.DXF")
- DXFDoc.Saveas Environ("TEMP") & "\MYFILE.DWG, acR15_dwg
- DXFDoc.Saveas "C:\MYFILE.DXF, acR12_dxf
- Kill Environ("TEMP") & "\MYFILE.DWG"
- End Sub
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |