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

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