Sub Example_AltFontFile()
    ' Этот пример возвращает текущую установку AltFontFile. Затем изменяет
    ' значение, и наконец сбрасывает значение назад к первоначальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currAltFontFile As String
    Dim newAltFontFile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Восстановите текущее значение AltFontFile
    currAltFontFile = preferences.Files.AltFontFile
    MsgBox "Текущее значение для AltFontFile " & currAltFontFile, vbInformation, "AltFontFile Пример"
    
    ' Измените значение для AltFontFile
    newAltFontFile = "C:/AutoCAD/Fonts/gothice.shx"
    preferences.Files.AltFontFile = newAltFontFile
    MsgBox "Новое значение для AltFontFile " & newAltFontFile, vbInformation, "AltFontFile Пример"
    
    ' Сбросьте AltFontFile к его первоначальному значению
    preferences.Files.AltFontFile = currAltFontFile
    MsgBox "Значение AltFontFile сброшено к " & currAltFontFile, vbInformation, "AltFontFile Пример"
 End Sub

Сайт управляется системой uCoz