[求助]在VB程序中怎样做才能调用CAD2007

ngeqt521

如下语句可调用CAD2004以下版本,怎样才可调用CAD2007, help me

-------------------------------------------------------------------------------------------------------------------

Option Explicit
Dim DotCAD As AcadApplication

Private Sub Command1_Click()

Dim L As Double
Dim w As Double
Dim a As Double
Dim b As Double
Dim Dmin As Double
Dim Dmax As Double

L = Me.Text1(0)
w = Me.Text1(3)
a = Me.Text1(1)
Dmin = Me.Text1(2)
b = Me.Text1(4)
Dmax = Me.Text1(5)

Dim returnpnt As Variant
AppActivate DotCAD.Caption
returnpnt = DotCAD.ActiveDocument.Utility.GetPoint(, "插入点:")

......(程序略过)
Private Sub Form_Load()
On Error Resume Next
 Set DotCAD = GetObject(, "AutoCAD.Application")
 If Err Then
 Err.Clear
 Set DotCAD = CreateObject("AutoCAD.Application")
 If Err Then
      MsgBox ("please install AutoCAD2004")
      Unload Me
      Exit Sub
      End If
      End If
DotCAD.WindowState = acMax

ngeqt521

问题已解决,谢谢明经的兄弟支持我.

wyj7485

怎么解决的啊，让大家也学学

ngeqt521

如上程序并未指定AUTO CAD版本,只要在工程----->引用内引用ATUO CAD2007就行了,把原来的乱码引用项不钩选就OK,

If Err Then
      MsgBox ("please install AutoCAD2004")

这个调用错误信息窗可以改为2007,不改也行,就这样弄好了,大哥们不要吐我口水哟!

wyj7485

那如果同时装了多个cad版本呢,引用中只有高版本的，要引用低版本的就成问题了

ngeqt521

这是个问题,企待高手,

StartMe

wyj7485发表于2007-1-29 9:00:00那如果同时装了多个cad版本呢,引用中只有高版本的，要引用低版本的就成问题了

2000-2002为同一引用，2004-2006为一个，2007单独一个，作三个版本的程序，程序中判断CAD版本后自启动相适应于CAD版本的那个程序，我是这么做的。