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

[复制链接]

mikewolf2k

发表于 2005-1-1 14:35:21 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

先祝大家元旦快乐！
用vb编译dll对acad进行插入图块、添加文本等操作，想后期绑定acadapp，使得程序不受cad版本的影响。我
的基本代码如下：
先在通用中定义：

Dim Acadapp As Object

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

运行中发现，如果当前打开的cad版本与引用的cad类型库一样的话则执行正确，不同的话则会在insertblock
产生错误，但图块已经被插入了。请问我什么地方做错了？如何修改？

acadapp, insertblock, Sub