Sub Example_SCMTimeMode()
    'Этот пример читает и изменяет свойство SCMTimeMode.
    'Затем свойство сброшено к его оригинальному значению.
    
    Dim ACADPref As AcadPreferencesUser
    Dim originalValue As Boolean, newValue As Boolean
    
    'Получите объект UserPreferences
    Set ACADPref = ThisDrawing.Application.Preferences.User
    
    originalValue = ACADPref.SCMTimeMode
    MsgBox "Свойство SCMTimeMode: " & originalValue
    
    newValue = IIf(originalValue, False, True)
    ACADPref.SCMTimeMode = newValue
    
    MsgBox "Свойство SCMTimeMode теперь: " & ACADPref.SCMTimeMode

    'Сбросьте параметр назад к его оригинальному значению
    ACADPref.SCMTimeMode = originalValue
    MsgBox "Свойство SCMTimeMode было сброшено назад к: " & originalValue
End Sub