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

xys1995 发表于 2006-11-6 16:16:00

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

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

wyj7485 发表于 2006-11-7 08:17:00

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

tcsl9621 发表于 2006-11-7 11:41:00

如下就好了。
Dim obj_Acad As Object
Dim obj_DocAs 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

查看完整版本: 如何做一个程序同时支持两个版本的AutoCAD？