Mrqq18 发表于 2005-12-8 12:56:00

[求助][VBA]从Excel启动AutoCAD...

<P>Dim CAD As AutoCAD.AcadApplication<BR>...<BR>On Error Resume Next<BR>Set CAD = GetObject(, "AutoCAD.AcadApplication.16")<BR>If Err &lt;&gt; 0 Then<BR>&nbsp;&nbsp;&nbsp; Err.Clear<BR>&nbsp;&nbsp;&nbsp; Set CAD = New AutoCAD.AcadApplication<BR>&nbsp;&nbsp;&nbsp; If Err &lt;&gt; 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "无法启动AutoCAD."<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<BR>&nbsp;&nbsp;&nbsp; End If<BR>End If<BR>代码有什么不对吗?可我就是不能成功启动CAD.但可以在系统任务栏中看到ACAD.exe的进程.</P>
<P>而我用createobject时就可以正常启动CAD了.</P>
<P>谢谢高手指教.</P>

雪山飞狐_lzh 发表于 2005-12-9 19:56:00

<P>Set CAD =&nbsp;createobject("AutoCAD.AcadApplication.16")</P>
<P>CAD.visible=true</P>

Mrqq18 发表于 2005-12-14 08:33:00

<P>我已声明了CAD为"AutoCAD.AcadApplication",不是可以直接用</P>
<P>Set CAD = New AutoCAD.AcadApplication</P>
<P>为CAD赋值了吗?我看Office2000的VBA参考中说是可以的.</P>

abc123 发表于 2010-7-29 09:32:00

<font face="Verdana">报表转绘王，全球领先的Excel&lt;-&gt;ACAD转化工具，简体中文版本，数万个忠实的用户。<br/>本文来自： http://www.meclab.cn/autocad/15428.html<br/></font>
页: [1]
查看完整版本: [求助][VBA]从Excel启动AutoCAD...