WWWDONG 发表于 2003-10-12 20:52:00

关于r2004到r14的转换

2004的使用带来的便捷是显著的
单麻烦也随之而来
能有相当的用户使用r14，而2004无法直接转为r14需转为r2000再转为r14,
费时费力，笔者想通过程序将r2004直接转为r14,遇到一些困难，请大伙帮助解决！
   Dim acadapp As AcadApplication
   Dim acaddoc As AcadDocument
   On Error Resume Next
   Set acadapp = GetObject(, "AutoCAD.application.16")
   If Err Then
   Err.Clear
   Set acadapp = CreateObject("AutoCAD.application.16")
      If Err Then
         MsgBox Err.Description
         Exit Sub
      End If
   End If
   acaddoc.apen ("c:\1.dwg")
   Set acaddoc = acadapp.ActiveDocument
      MkDir "d:\wd"
    acaddoc.SaveAs "d:\wd\1.dwg", ac2000_dwg
    acadapp.Quit
    Set acadapp = Nothing
    Set acaddoc = Nothing
    On Error Resume Next
   Set acadapp = GetObject(, "AutoCAD.application")
   If Err Then
   Err.Clear
   Set acadapp = CreateObject("AutoCAD.application")
      If Err Then
         MsgBox Err.Description
         Exit Sub
      End If
   End If
   acadapp.Activate
   acadapp.Application.Visible = True
   acadapp.Documents.Open ("d:\wd\1.dwg")
   Set acaddoc = acadapp.ActiveDocument
   acaddoc.SaveAs "d:\wd\1.dwg" ac14_dwg
   
'acadapp.Quit

efan2000 发表于 2003-10-12 21:02:00

R2004的文件不能直接通过程序来转换成R14的，因为AutoDesk已不再对R14进行支持。
可以安装一个工具Batch Drawing Converter ，它支持各个版本之间的转换。

mccad 发表于 2003-10-12 21:56:00

你的想法我们早就想过了，当时主要是想通过ObjectDBX来解决，但DBX的SaveAs方法没有版本参数，也就是在DBX没有办法保存到其它版本。

zeng29 发表于 2003-10-13 20:26:00

仅仅靠AutoCAD2K4似乎很难,安装多个版本通过创建不同版本的实例理论上还可以,但这样的话用程序来实现似乎还不如直接用2K2,或2K来转换.

yymaoqi 发表于 2004-2-25 18:46:00

用Batch        Drawing        Converter        可以的
页: [1]
查看完整版本: 关于r2004到r14的转换