vb调用cad的问题!!

ZKSJLL

各位高手,最近在用VB连接CAD2006的时候,遇到一个问题: 在模块内声明一个通用函数,用于连接cad:

public acadApp As object

public function ConnectToAcad(filename as string) as object

On Error Resume Next

Set acadApp = GetObject(, "AutoCAD.Application")

If Err Then

Err.Clear

Set acadApp = CreateObject("AutoCAD.Application")

 If Err Then

MsgBox Err.Description

Exit Sub

End If

 End If

MsgBox "Now running " + acadApp.Name + _ " version " + acadApp.Version

End Sub

 问题:在调用函数的内部过程未结束时,acadApp对象有值,但在函数调用完成后返回主程序时acadApp被清空了!!请教一下这是为什么??

ZKSJLL

问题找到了，谢谢各位！！！

dgw

什么问题，怎样解决的，搂住发上来学学阿，