Sub Example_DeleteProfile()
    ' Этот пример удаляет конфигурацию.
    
    Dim preferences As AcadPreferences
    Dim strProfileToDelete As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Определите конфигурацию, чтобы удалить.
    strProfileToDelete = "TestProfile"
    
    ' Удалите конфигурацию
    ' Запрос вызовет сбой, если "TestProfile" не существует или если "TestProfile" - текущая конфигурация.
    On Error GoTo Error
    preferences.Profiles.DeleteProfile strProfileToDelete
    Exit Sub
Error:
        MsgBox "Удаление конфигурации " & strProfileToDelete & " неудалось." & Err.Description, , "DeleteProfile Пример"
        
End Sub

Сайт управляется системой uCoz