Sub Example_PostScriptPrologFile()
    'Этот пример возвращает текущую установку PostScriptPrologFile. Затем 
    'изменяет значение и наконец сбрасывает значение назад к оригинальной 
    'установке.
    
    Dim preferences As AcadPreferences
    Dim currPostScriptPrologFile As String
    Dim newPostScriptPrologFile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение PostScriptPrologFile
    currPostScriptPrologFile = preferences.Files.PostScriptPrologFile
    If currPostScriptPrologFile = "" Then
        MsgBox "PostScriptPrologFile в настоящее время не установлен.", vbInformation, "PostScriptPrologFile Пример"
    Else
        MsgBox "Текущее значение для PostScriptPrologFile " & currPostScriptPrologFile, vbInformation, "PostScriptPrologFile Пример"
    End If
    
    'Измените значение для PostScriptPrologFile
    newPostScriptPrologFile = "TestPostScriptPrologFile"
    preferences.Files.PostScriptPrologFile = newPostScriptPrologFile
    MsgBox "Новое значение для PostScriptPrologFile " & newPostScriptPrologFile, vbInformation, "PostScriptPrologFile Пример"
    
    'Сбросьте PostScriptPrologFile к его оригинальному значению
    preferences.Files.PostScriptPrologFile = currPostScriptPrologFile
    If currPostScriptPrologFile = "" Then
        MsgBox "PostScriptPrologFile сброшен к NULL.", vbInformation, "PostScriptPrologFile Пример"
    Else
        MsgBox "Значение PostScriptPrologFile сброшено к " & currPostScriptPrologFile, vbInformation, "PostScriptPrologFile Пример"
    End If
End Sub