好心人帮帮小弟吧关于ObjectDBX

gzhycsu · 发表于 2009-12-22 15:57:00

在窗体初始化的时候
Private Sub Form_Initialize()
If Left(Version, 2) = "15" Then
Set objDBX = CreateObject("ObjectDBX.AxDbDocument.1")
ElseIf Left(Version, 2) = "16" Then
Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")
End If
End Sub
为什么以上代码创建不了ObjectDBX.啊？
好心人帮帮我吧

liub951030 · 发表于 2009-12-22 17:09:00

Dim objDBX As AxDbDocument
On Error Resume Next
Set objDBX = CreateObject("ObjectDBX.AxDbDocument.1")
If err Then
      err.Clear
      Set objDBX = CreateObject("ObjectDBX.AxDbDocument.15")
      If err Then
         err.Clear
         Set objDBX = CreateObject("ObjectDBX.AxDbDocument.16")
         If err Then
            err.Clear
            Set objDBX = CreateObject("ObjectDBX.AxDbDocument.17")
            If err Then
                  err.Clear
                  Set objDBX = CreateObject("ObjectDBX.AxDbDocument.18")
            End If
         End If
      End If
End If
On Error GoTo 0
我一般是这样用的,因为我也分不清"."后面到底要多少才好!

英雄无敌 · 发表于 2009-12-24 11:28:00

用Create方法好像不能成功，不知道楼上的完整代码是怎样的，但通过acadobject对象可以
前提是要事先打开了CAD
Set AcadObj = GetObject(, "autocad.application.16")
If Err Then
      MsgBox "没有打开AutoCAD 2004"
      Unload Me
Else
   ' SetParent Me.hwnd, AcadObj.hwnd
End If
Set DbxObj = AcadObj.GetInterfaceObject("ObjectDBX.AxDbDocument.16")