mikewolf2k 发表于 2005-1-1 14:41:00

[求助]关于后期绑定的疑问

先祝大家元旦快乐！<BR>用vb编译dll对acad进行插入图块、添加文本等操作，想后期绑定acadapp，使得程序不受cad版本的影响。我


的基本代码如下：<BR>先在通用中定义：


Dim Acadapp As Object


Sub test()<BR>                       call linkacad(acadapp)<BR>                       call insertblock(acadapp)<BR>End Sub<BR>Sub linkacad(Acadapp)<BR>                       Set Acadapp = GetObject(, "AutoCAD.application")       <BR>End Sub<BR>Sub insertblock(Acadapp)<BR>                       dim blockrefobj As AcadBlockReference<BR>                       Set blockrefobj = Acadapp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "图块", 1,


1, 1, 0)<BR>End Sub


运行中发现，如果当前打开的cad版本与引用的cad类型库一样的话则执行正确，不同的话则会在insertblock


产生错误，但图块已经被插入了。请问我什么地方做错了？如何修改？

zhang007 发表于 2005-1-3 10:57:00

dim blockrefobj As Object

mikewolf2k 发表于 2005-1-3 17:46:00

原来就这样解决了，太谢谢了！！！
页: [1]
查看完整版本: [求助]关于后期绑定的疑问