mccad 发表于 2003-7-27 19:13:00

好好看看贴子，其中已经有该内容，而且可以把程序做成2002和2004都能用。
    If Left(Version, 2) = "15" Then
      Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
      Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If

mccad 发表于 2003-7-27 19:50:00

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

woaining 发表于 2003-8-6 14:18:00

jsyang_ren 发表于 2003-8-9 11:18:00

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

zhaoguo 发表于 2003-9-5 21:39:00

图库真棒

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

mccad 发表于 2003-9-5 21:53:00

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

gzy 发表于 2003-10-5 12:52:00

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

mccad 发表于 2003-10-5 19:54:00

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

WWWDONG 发表于 2003-10-12 19:24:00

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

QQ糖 发表于 2003-10-22 21:52:00

mccad发表于2003-9-5 21:53:00static/image/common/back.gif恭喜恭喜，已经可以用于实际应用了



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

当选取一个块名时在窗体上显示这个块的图形。就像打开文件时的预览一样。
页: 1 2 3 4 [5] 6 7 8 9 10 11
查看完整版本: [VBA]利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块