Sub Example_FontFileMap()
    ' Этот пример возвращает текущую установку FontFileMap. Затем
    ' изменяет значение, и наконец сбрасывает значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currFontFileMap As String
    Dim newFontFileMap As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение FontFileMap
    currFontFileMap = preferences.Files.FontFileMap
    MsgBox "Текущее значение для FontFileMap " & currFontFileMap, vbInformation, "FontFileMap Пример"
    
    ' Измените значение для FontFileMap
    newFontFileMap = "TestFontFileMap.fmp"
    preferences.Files.FontFileMap = newFontFileMap
    MsgBox "Новое значение для FontFileMap " & newFontFileMap, vbInformation, "FontFileMap Пример"
    
    ' Сбросьте FontFileMap к его первоначальному значению
    preferences.Files.FontFileMap = currFontFileMap
    MsgBox "Значение FontFileMap сброшено к " & currFontFileMap, vbInformation, "FontFileMap Пример"
End Sub