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