后期绑定 AxDb文档

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

我终于有一点时间玩2007年，再次出现了参考问题。
下面的函数似乎工作正常，但我认为我会得到一个perfermance命中。
虽然我以前写过函数来设置正确的引用，但我从未做过一个可靠的引用。
有没有人有适用于2006年和2007年的早期绑定解决方案？

copy

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

你好，Bryco
我不使用后期绑定
这里是一个技巧，我使用
定义ObjectDBX两次

copy

     Dim oDBX As AxDbDocument
     Set oDBX = New AxDbDocument
     Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.16")     '<--17 for A2006 and higher

我只有A2005在我的机器上
，虽然希望有所帮助
〜'J'~

后期绑定 AxDb文档

发表回复

精选推荐