关于r2004到r14的转换

WWWDONG

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

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

mccad

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

zeng29

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

yymaoqi

用Batch Drawing Converter 可以的