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