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