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