|
|
各位高手,最近在用VB连接CAD2006的时候,遇到一个问题: 在模块内声明一个通用函数,用于连接cad:
public acadApp As object
public function ConnectToAcad(filename as string) as object
On Error Resume Next
Set acadApp = GetObject(, ".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被清空了!!请教一下这是为什么??
|
|
置顶卡
