社区 › 编程申请 › 如何用vb实现插入外部图形的图块？

willisbai 发表于 2009-3-11 19:17:00

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

本帖最后由 作者 于 2009-3-11 19:21:05 编辑 <br /><br /> <p>最近拜读了论坛极力推荐的《AutoCad VBA 开发精彩实例教程》，对其中的“5.5利用ObjectDBX技术在当前图形中插入其他未打开图形的图块“一篇非常佩服，但我希望能用VB来实现，拜托各位大侠了！</p><p>注：</p><p>我将以下程序插入但是没有实现</p><p>On Error Resume Next<br/>Set acadAPP = GetObject("AutoCAD.Application")<br/>If Err Then<br/>Err.Clear<br/>Set acadAPP = CreateObject("AutoCAD.Application")<br/>If Err Then<br/>MsgBox Err.Description<br/>Exit Sub<br/>End If<br/>End If</p>

英雄无敌 发表于 2009-3-31 15:31:00

<p>你加上版本号试试，如是CAD2004</p><p>On Error Resume Next<br/>Set acadAPP = GetObject("AutoCAD.Application.16")<br/>If Err Then<br/>Err.Clear<br/>Set acadAPP = CreateObject("AutoCAD.Application.16")<br/>If Err Then<br/>MsgBox Err.Description<br/>Exit Sub<br/>End If<br/>End If</p>

a2109 发表于 2011-8-4 18:32:35

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

查看完整版本: 如何用vb实现插入外部图形的图块？