Sub Example_Close()
    ' Этот пример циклически проходит коллекцию документов и закрывает все
    ' открытые рисунки, используя метод Close.

    Dim DOC As AcadDocument
    
    ' Если нет никаких открытых документов, то выйдите
    If Documents.count = 0 Then
        MsgBox "Нет никаких открытых документов! "
        Exit Sub
    End If
    
    ' Закройте все открытые документы
    For Each DOC In Documents
        If MsgBox("Закрыть документ: " & DOC.WindowTitle, vbYesNo & vbQuestion) = vbYes Then
            If DOC.FullName <> "" Then
                DOC.Close
            Else
                MsgBox DOC.name & " не был сохранен, закрытие отменено."
            End If
        End If
    Next
End Sub