Sub Example_Quit()
    ' Предупреждение: Этот пример закроет AutoCAD и VBA.
    
    ThisDrawing.Application.Quit
    
End Sub