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