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