如何用vb实现插入外部图形的图块？

willisbai

最近拜读了论坛极力推荐的《AutoCAD VBA 开发精彩实例教程》，对其中的“5.5利用ObjectDBX技术在当前图形中插入其他未打开图形的图块“一篇非常佩服，但我希望能用VB来实现，拜托各位大侠了！

注：

我将以下程序插入但是没有实现

On Error Resume Next
Set acadAPP = GetObject("AutoCAD.Application")
If Err Then
Err.Clear
Set acadAPP = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If

英雄无敌

你加上版本号试试，如是CAD2004

On Error Resume Next
Set acadAPP = GetObject("AutoCAD.Application.16")
If Err Then
Err.Clear
Set acadAPP = CreateObject("AutoCAD.Application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If

a2109

拜读了，这本书真的很不错