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