vb调用cad的问题!!
本帖最后由 作者 于 2007-9-26 7:34:14 编辑 <br /><br /> <p>各位高手,最近在用VB连接CAD2006的时候,遇到一个问题: 在模块内声明一个通用函数,用于连接cad: </p><p>public acadApp As object </p><p>public function ConnectToAcad(filename as string) as object </p><p>On Error Resume Next </p><p>Set acadApp = GetObject(, "AutoCAD.Application") </p><p>If Err Then </p><p>Err.Clear </p><p>Set acadApp = CreateObject("AutoCAD.Application")</p><p> If Err Then </p><p>MsgBox Err.Description </p><p>Exit Sub </p><p>End If</p><p> End If </p><p>MsgBox "Now running " + acadApp.Name + _ " version " + acadApp.Version </p><p>End Sub</p><p> 问题:在调用函数的内部过程未结束时,acadApp对象有值,但在函数调用完成后返回主程序时acadApp被清空了!!请教一下这是为什么??</p> 问题找到了，谢谢各位！！！ 什么问题，怎样解决的，搂住发上来学学阿，
页:
[1]