Sub Example_DemandLoadARXApp()
    ' Этот пример возвращает текущую установку DemandLoadARXApp. Затем
    ' изменяет значение, и наконец сбрасывает значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currDemandLoadARXApp As Integer
    Dim constant As String
    Dim newConstant As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение DemandLoadARXApp
    currDemandLoadARXApp = preferences.OpenSave.DemandLoadARXApp
    MsgBox "Текущее значение для DemandLoadARXApp " & currDemandLoadARXApp, vbInformation, "DemandLoadARXApp Пример"
    
    ' Измените значение для DemandLoadARXApp
    newConstant = acDemandLoadCmdInvoke
    preferences.OpenSave.DemandLoadARXApp = acDemandLoadCmdInvoke
    MsgBox "Новое значение для DemandLoadARXApp " & newConstant, vbInformation, "DemandLoadARXApp Пример"
    
    ' Сбросьте DemandLoadARXApp к его первоначальному значению
    preferences.OpenSave.DemandLoadARXApp = currDemandLoadARXApp
    MsgBox "Значение DemandLoadARXApp сброшено к " & currDemandLoadARXApp, vbInformation, "DemandLoadARXApp Пример"
End Sub