社区 › VB › 后期绑定 AxDb文档

Bryco 发表于 2007-2-13 23:23:56

后期绑定 AxDb文档

我终于有一点时间玩2007年，再次出现了参考问题。
下面的函数似乎工作正常，但我认为我会得到一个perfermance命中。
虽然我以前写过函数来设置正确的引用，但我从未做过一个可靠的引用。
有没有人有适用于2006年和2007年的早期绑定解决方案？
Function SetAxdb() As Object
    'Dim dbxDoc As New AxDbDocument
    Dim dbxDoc As Object
    Select Case AcadVer
      Case 2000
            Set dbxDoc = GetInterfaceObject("ObjectDBX.AxDbDocument")
      Case 2002, 2004, 2005, 2006
            Set dbxDoc = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
      Case 2007
            Set dbxDoc = GetInterfaceObject("ObjectDBX.AxDbDocument.17")
    End Select
   
    Set SetAxdb = dbxDoc
End Function
**** Hidden Message *****

Fatty 发表于 2007-2-14 05:09:24

你好，Bryco
我不使用后期绑定
这里是一个技巧，我使用
定义ObjectDBX两次
   Dim oDBX As AxDbDocument
   Set oDBX = New AxDbDocument
   Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.16")   '<--17 for A2006 and higher
我只有A2005在我的机器上
，虽然希望有所帮助
〜'J'~

查看完整版本: 后期绑定 AxDb文档