xxxtttxxx 发表于 2008-1-1 22:48:00

vb连接cad错误为什么？

本帖最后由 作者 于 2008-4-25 20:44:07 编辑 <br /><br /> <p></p><p>新问题：</p><p>用这段代码连接cad2006没有问题，在大部分cad2004中问题也不大，</p><p>但是我有碰到几台电脑的cad2004无法连接上。</p><p>请问是程序的问题？</p><p>还是cad2004没有安装完整？</p><p>还是cad2004中的某些dll没有注册？</p><p>望高手指点！</p><p>----------------------------------以下是原来的问题。</p><p>为免开新帖子，就在这里发了。</p><p></p><p>以前用下面一段连接cad从来没有任何问题</p><p>不知道为什么，今天运行的时候显示：&nbsp; 编译错误&nbsp;&nbsp; 必选参数</p><p>错误指到了两句红色的的语句。</p><p>为什么啊？</p><p></p><p>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp; <font color="#ff3300">Set Acad = GetObject(, "AutoCAD.Application")</font><br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#f70909">Set Acad = CreateObject(, "AutoCAD.Application")</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Err Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Clear<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "找不到AutoCAD程序！"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End If</p><p></p><p></p><p></p>

jkbanana 发表于 2008-1-2 08:20:00

<p><font color="#f70909">Set Acad = CreateObject(, "AutoCAD.Application")</font></p><p><font color="#f70909">是不是应改为</font></p><p><font color="#f70909">Set Acad = CreateObject("AutoCAD.Application")</font></p>

xxxtttxxx 发表于 2008-1-2 21:24:00

<p>楼上纠正了偶的一个错误，谢谢！</p><p>问题已经解决，不小心导入一个模块，这个模块里面有一个api声明是getobject</p><p></p>

xxxtttxxx 发表于 2008-4-25 20:44:00

<p></p><p>新问题：</p><p>用这段代码连接cad2006没有问题，在大部分cad2004中问题也不大，</p><p>但是我有碰到几台电脑的cad2004无法连接上。</p><p>请问是程序的问题？</p><p>还是cad2004没有安装完整？</p><p>还是cad2004中的某些dll没有注册？</p><p>望高手指点！</p>
页: [1]
查看完整版本: vb连接cad错误为什么？