最近拜读了论坛极力推荐的《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 |