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

延迟绑定AxDbDocument

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

雯女 发表于 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 虽然我的机器上只有2005年的版本，但希望能有所帮助；J#039~
页: [1]
查看完整版本: 延迟绑定AxDbDocument