Sub Example_ImportProfile()
    ' Этот пример импортирует конфигурацию.
    ' ОБРАТИТЕ ВНИМАНИЕ: Имя конфигурации используется так, чтобы
    ' ваши существующие конфигурации были не изменены.
    
    Dim preferences As AcadPreferences
    Dim strProfileToImport As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Определите конфигурацию, чтобы удалить.
    strProfileToImport = "TestProfile"
    
    ' Удалите конфигурацию
    ' Запрос будет терпеть неудачу, если "TestProfile" не существует
    On Error GoTo Error
    preferences.Profiles.ImportProfile strProfileToImport, "TESTPROFILE.ARG", True
    
    Exit Sub
Error:
        MsgBox "ImportProfile " & strProfileToImport & " 
неудавшийся. " & Err.Description, , "ImportProfile Example"
        
End Sub

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