[VBA]利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块

mccad

好好看看贴子，其中已经有该内容，而且可以把程序做成2002和2004都能用。

1.     If Left(Version, 2) = "15" Then
   
2.         Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
   
3.     ElseIf Left(Version, 2) = "16" Then
   
4.         Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
   
5.     End If

复制代码

mccad

使用VBA的方法注册控件，在实用函数中有相关函数：
[WEB]http://www.mjtd.com/function/list.asp?id=371&ordertype=byletter[/WEB]

jsyang_ren

请问能用VB直接打开CAD2004吗？我好象找不到响应的外部参照
是不是VB6.0不支持啊

zhaoguo

照mccad的思路，我已把我的程序中用到的块全部做成一个文件，大大缩短安装时间（原来有几十个文件）。
用autoregfile前最好先判断一下是否已经注册。

mccad

恭喜恭喜，已经可以用于实际应用了

gzy

我怎么还是不能运行啊（2000系统 2002版本）
提示无法创建对象。

mccad

详细看看贴子，可能是该控件没有注册

WWWDONG

在vb中可以使用吗？
以上的lisp程序该如何注册呢？

QQ糖

mccad发表于2003-9-5 21:53:00恭喜恭喜，已经可以用于实际应用了

能有办法实现这个功能吗？

当选取一个块名时在窗体上显示这个块的图形。就像打开文件时的预览一样。