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