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