Close method example

The following example demonstrates how to use the Close method.

Sub Close_Example()

' This example cycles through the documents collection

' and closes all open drawings using the Close method.    

    ' If there are no open documents, then exit

    If ThisDrawing.Application.Documents.Count = 0 Then

        MsgBox "There are no open documents!"

        Exit Sub

    End If

    ' Close all open documents

    Dim thisDoc As AcadDocument

    For Each thisDoc In ThisDrawing.Application.Documents

        If MsgBox("Do you wish to close the document: " & thisDoc.Name, vbYesNo) = vbYes Then

            If thisDoc.FullName <> "" Then

                thisDoc.Close False

            Else

                MsgBox thisDoc.Name & " has not been saved yet, so it will not be closed."

            End If

        End If

    Next

End Sub