如何做一个程序同时支持两个版本的AutoCAD？

xys1995

请问如何在VB6中做一个画园的程序，使得它可以同时支持AutoCAD2005和AutoCAD2007？

wyj7485

打开或获取cad时不要指定版本就可以啊

tcsl9621

如下就好了。

Dim obj_Acad As Object
Dim obj_Doc  As Object

'''
Sub Main()
On Error Resume Next
Set obj_Acad = GetObject(, "autocad.application")
If Err Then
   Err.Clear
   On Error Resume Next
   Set obj_Acad = CreateObject("autocad.application")
   If Err Then
      Err.Clear
      MsgBox "不能运行AutoCAD,请检查是否安装！", vbOKOnly, "警告！"
      Exit Sub
      End If
End If
obj_Acad.Visible = True
obj_Acad.WindowState = autocad.acwindowstate.acmax
AppActivate (obj_Acad.Caption)
Set obj_Doc = obj_Acad.ActiveDocument
obj_Doc.SendCommand ("(setq p2c::filepath """ + Replace(App.Path, "\", "\\") + "\\"") ")
obj_Doc.SendCommand ("(load (strcat p2c::filepath ""Part2CAM.fas"")) ")
obj_Doc.SendCommand ("(princ) ")
End Sub