Sub Example_DeleteConfiguration()
    ' Этот пример создает новую область просмотра и разбивает область
    ' просмотра на 4 окна.
    ' Затем удаляет конфигурацию области просмотра
    Dim oldViewport As AcadViewport
    Set oldViewport = ThisDrawing.ActiveViewport
       
    ' Создайте новую область просмотра и cделайте её активной
    Dim newViewport As AcadViewport
    Set newViewport = ThisDrawing.Viewports.Add("TESTVIEWPORT")
    ThisDrawing.ActiveViewport = newViewport
    
    ' Разбейте область просмотра на 4 окна
    newViewport.Split acViewport4
    
    ' Активируйте область просмотра разбиения
    ThisDrawing.ActiveViewport = newViewport
    MsgBox "Разбиение конфигурации области просмотра в 4 окна."

    ' Удалите конфигурацию области просмотра
    ThisDrawing.ActiveViewport = oldViewport
    ThisDrawing.Viewports.DeleteConfiguration ("TESTVIEWPORT")
    ThisDrawing.Regen acAllViewports
    MsgBox "Конфигурация области просмотра была удалена."
End Sub