我终于有一点时间玩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
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |