Sub Example_XRefDemandLoad()
    'Этот пример возвращает текущую установку XRefDemandLoad. 
    'Затем изменяет значение и наконец сбрасывает значение к оригинальной установке.
    
    Dim preferences As AcadPreferences
    Dim currXRefDemandLoad As Integer
    Dim constant As String
    Dim newConstant As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    'Получите текущее значение XRefDemandLoad
    currXRefDemandLoad = preferences.OpenSave.XrefDemandLoad
    constant = Choose(currXRefDemandLoad + 1, "acDemandLoadDisabled", "acDemandLoadEnabled", "acDemandLoadEnabledWithCopy")
    MsgBox "Текущее значение для XRefDemandLoad " & constant, vbInformation, "XRefDemandLoad Пример"
    
    'Измените значение для XRefDemandLoad
    newConstant = "acDemandLoadEnabledWithCopy"
    preferences.OpenSave.XrefDemandLoad = acDemandLoadEnabledWithCopy
    MsgBox "Новое значение для XRefDemandLoad " & newConstant, vbInformation, "XRefDemandLoad Пример"
    
    'Сбросьте XRefDemandLoad к его оригинальному значению
    preferences.OpenSave.XrefDemandLoad = currXRefDemandLoad
    MsgBox "Значение XRefDemandLoad сброшено к " & constant, vbInformation, "XRefDemandLoad Пример"
End Sub