hxlpss 发表于 2010-9-10 12:46:00

[求助]VB程序调用CAD2000无法打开图纸

本帖最后由 作者 于 2010-9-13 14:13:50 编辑 <br /><br /> <p>&nbsp;</p>
<p><font face="Verdana">Public AcadApp As Object</font></p>
<p><font face="Verdana">Public acadDoc As Object</font></p>
<p><font face="Verdana">Public strFileName&nbsp; As <font face="Verdana">String</font></font></p>
<p><font face="Verdana">Set AcadApp = CreateObject("AutoCAD.Application.15")</font></p>
<p><font face="Verdana">AcadApp.Visible = True&nbsp;&nbsp;&nbsp;&nbsp; 'CAD2000可以正常调用</font></p>
<p><font face="Verdana">Set acadDoc = AcadApp.ActiveDocument</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">acadDoc.Open strFileName</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'strFileName已经有值&nbsp; ,OPEN文件时出错</p>
<p>&nbsp;</p>
<p>以上代码改了版本号用在R14中是可以正常OPEN文件的.</p>
<p>&nbsp;</p>
<p>请各位大大指教,不胜感激.</p>

chmenf087 发表于 2010-9-10 15:50:00

<p>acadapp.documents.open "FilenameAndPath"</p>
<p>set acadDoc=activedocument</p>

chmenf087 发表于 2010-9-10 15:58:00

<p>对不起上面第二句错了是</p>
<p>set acaddoc=acadapp.activedocument</p>

hxlpss 发表于 2010-9-13 14:12:00

本帖最后由 作者 于 2010-9-13 15:28:55 编辑 <br /><br /> chmenf087发表于2010-9-10 15:50:00static/image/common/back.gifacadapp.documents.open \"FilenameAndPath\"
set acadDoc=activedocument


<p>感谢你的帮助.用你的方法可以打开图纸了. </p>
<p>&nbsp;</p>
<p>&nbsp;<font face="Verdana"><font face="Verdana"><br/></font></font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
页: [1]
查看完整版本: [求助]VB程序调用CAD2000无法打开图纸