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

HQ_2003 · 发表于 2003-5-3 19:29:00

开始运行，提示“类型不匹配“
我在“UserForm_Initialize“过程中加“Dim objDbx“语句可以运行
但当我浏览图形文件运行到“objDbx.Open Me.TextBox1.Value“语句时提示如下错误：

运行时错误‘91’
对象变量或with块变量未设置

不知如何解决？

mccad · 发表于 2003-5-3 19:51:00

HQ_2003 · 发表于 2003-5-3 20:07:00

斑竹老师，还请问：“修改之前的
“Dim objDbx As AxDbDocument“声明语句代表何意

mccad · 发表于 2003-5-3 20:12:00

用
Dim objDbx As AxDbDocument
时必须在工具菜单中先引用类型库，这样就可以直接使用定义该类型的对象了。
而如果没有使用引用，而在程序中完成的话，则使用那个语句定义会出错，所以只定义变量。

HQ_2003 · 发表于 2003-5-3 20:37:00

本帖最后由作者于 2003-5-3 20:37:11 编辑

此工程，加载图形文件时，首先必须保证此文件里的图形必须是块
当然必须包含图形
那如果此文件为空文件或者此文件里的图形非“块“图形
如果点击“插入“按钮则会出现错误，我想能不能在程序中增加判断“dwg文件是否为空或不包含块图形“的语句

还有，在选择完图块名称后，能否在程序中加上预览图块的功能

mccad · 发表于 2003-5-3 20:37:00

你只需要在
blkName = Me.ComboBox1.SelText
dwgName = Me.TextBox1.Value
后加以判断此两变量是否为空字符串，如果为空，则什么都不要做退出

HQ_2003 · 发表于 2003-5-3 20:41:00

mccad · 发表于 2003-5-3 20:44:00

HQ_2003 · 发表于 2003-5-3 20:51:00

账号		自动登录	找回密码
密码			注册

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

该方法在AutoCAD2002及2004上调试均获成功

在CAD2004中运行，有点问题

我把改过的程序发过来，你试试，Dim objDbx应该放在窗体开始的声明段中

本帖子中包含更多资源

OK！OK！OK！OK！爽极了！多谢！

因为这是两种不同意义的引用

谢了

因为这只是个简单的例子

嗯！请问预览图块的功能如何实现呢？

可能做不到

唉！太失望了。如果图块很多的话......，那只能用繁琐的中文名字识别了。