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