Sub Example_Preferences()
    ' Этот пример возвращает установку потока LogFilePath от объекта preferences.
    
    Dim preferences As AcadPreferences
    Set preferences = ThisDrawing.Application.preferences
    
    ' Восстановите поток значение LogFilePath
    MsgBox "Текущее значение для LogFilePath - " & preferences.Files.LogFilePath, , "Preferences Пример"
    
End Sub