Sub Example_ExportProfile()
    ' Этот пример экспортирует активную конфигурацию с новым названием.
    
    Dim preferences As AcadPreferences
    Dim currActiveProfile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение ActiveProfile
    currActiveProfile = preferences.Profiles.ActiveProfile
    MsgBox "Текущее ActiveProfile: " & preferences.Profiles.ActiveProfile, , "ExportProfile Пример"
    
    ' Экспортируйте активную конфигурацию
    preferences.Profiles.ExportProfile currActiveProfile, "TestProfile.arg"
    MsgBox "ActiveProfile экспортировался в: TestProfile.arg", , "ExportProfile Пример"
    
End Sub