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

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