在VB中如何判断一个文档是否被关闭？？

freshairfly

比如
Dim docNew=ACADDOCUMENT
Dim Documents=ACADDocuments
Set docNew=Documents.Add

docNew可能被用户关闭了
如果程序再对 docNew 进行操作的话就会出现错误

如何才能避免这样的错误呢？

mccad

efan2000

如果文档关闭时，那么对文档的操作就会无效，即出错，那么我们可以试着操作，如果出错，表示文档已经无效了。下面的函数是用于判断一个文档是否有效。
参数：AcadDoc 文档对象
返回值：True 有效
Private Function DocumentAvailable(ByVal AcadDoc As AcadDocument) As Boolean
    DocumentAvailable = False
    Dim Name As String
   
    On Error GoTo ErrTrap
    Name = AcadDoc.Name
    DocumentAvailable = True
    Exit Function
   
ErrTrap:
    On Error GoTo 0
End Function

freshairfly

两位斑竹的方法都可行
可是如何判断AutoCAD是否被关闭了呢?

freshairfly

两位斑竹，你们的方法对于AcadDocument可行，但对于AcadApplication好象都不可行！！[br]本来以为 efan2000 的方法对于AcadApplication对象也是可行的
可是试了以后发现不行（意外！！）

efan2000

参数：AcadApp 应用程序对象
返回值：True 有效
Private Function ApplicationAvailable(ByVal AcadApp As AcadApplication) As Boolean
    ApplicationAvailable = False
    Dim Caption As String
     
    On Error GoTo ErrTrap
    Caption = AcadApp.Caption
    ApplicationAvailable = True
    Exit Function
     
ErrTrap:
    On Error GoTo 0
End Function

freshairfly

再次感谢两位斑竹！！