|
先祝大家元旦快乐!
用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(, ".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
产生错误,但图块已经被插入了。请问我什么地方做错了?如何修改? |
|