Sub Example_ActiveProfile()
    ' Этот пример возвращает установку текущего ActiveProfile.
    
    Dim preferences As AcadPreferences
    Dim currActiveProfile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Восстановите текущее значение ActiveProfile
    currActiveProfile = preferences.Profiles.ActiveProfile
    MsgBox "Текущее значение для ActiveProfile " & currActiveProfile, vbInformation, "ActiveProfile Пример"
End Sub