延迟绑定AxDbDocument

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

I&#039；我终于有一点时间玩2007年，再次有参考问题
下面的函数似乎工作正常，但我认为我&#039；我将得到一个性能打击
尽管我&#039；我以前写过函数来设置正确的引用，我&#039；我从来没有做过一个可靠的
有人有一个适用于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

雯女 · 发表于 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

虽然我的机器上只有2005年的版本，但希望能有所帮助；J#039~

延迟绑定AxDbDocument

发表回复

精选推荐