关于用VB 2012进行CAD2012二次开发的问题

shindo_ku

在不打开外部图形的情况下将图形中的块插入到当前文档中需要用到ObjectDBX技术，然而在输入如下代码：
Dim objDBX As AxDbDocument
objDBX = CreateObject("ObjectDBX.AxDbDocument.18")
调试时显示“无法创建ActiveX组件”
不知什么原因？
另外还有别的方法解决图块插入问题吗，谢谢各位~~
搜索

复制

zzyong00

ObjectDBX不能这样调用，他不离开Autocad环境，所以得用GetInterfaceObject
Set objDbx = objCad.GetInterfaceObject("ObjectDBX.AxDbDocument.18"）
objCad是autocad的application对象实例

shindo_ku

zzyong00 发表于 2015-5-18 12:04
ObjectDBX不能这样调用，他不离开Autocad环境，所以得用GetInterfaceObject
Set objDbx = objCad.GetInter ...

呵呵~按照您的指点，问题解决啦~
非常感谢~