mccad 发表于 2003-5-3 14:04:00

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

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

在CAD2004中运行，有点问题

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

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

不知如何解决？

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

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

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

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

斑竹老师，还请问：“修改之前的
“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

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

页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: [VBA]利用ObjectDbx技术在当前图形中插入其它未打开的图形中的图块