Sub Example_Profiles()
    ' Этот пример получает ссылку к объекту Profiles Preferences от объекта
    ' Application Preferences, и читает один из параметров Profiles
    
    Dim ACADPref As AcadPreferencesProfiles
    
    ' Получите ссылку к объекту Profiles Preferences
    Set ACADPref = ThisDrawing.Application.preferences.Profiles
    
    MsgBox "Вы теперь имеете доступ к свойствам и методам объекта Profiles Preferences!"
    MsgBox "Параметр Profiles ActiveProfile установлен в: " & ACADPref.ActiveProfile
    
    ' Освобождаем объект Profiles Preferences
    Set ACADPref = Nothing
    MsgBox "Объект Profiles Preferences освобождён!"
End Sub