Sub Example_ConfigFile()
    ' Этот пример возвращает текущую установку ConfigFile.
    
    Dim preferences As AcadPreferences
    Dim currConfigFile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение ConfigFile
    currConfigFile = preferences.Files.ConfigFile
    If currConfigFile = "" Then
        MsgBox "ConfigFile в настоящее время не установлен.", vbInformation, "ConfigFile Пример"
    Else
        MsgBox "Текущее значение для ConfigFile " & currConfigFile, vbInformation, "ConfigFile Пример"
    End If
End Sub