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