Sub Example_ADCInsertUnitsDefaultSource()
    ' Этот пример читает и изменяет значение
    ' параметра ADCInsertUnitsDefaultSource.
    ' Когда закончено, этот пример сбрасывает значение параметра назад
    ' к его первоначальному значению.
    
    Dim ACADPref As AcadPreferencesUser
    Dim originalValue As Integer, newValue As Integer
    
    ' Получите пользовательский объект параметров

    Set ACADPref = ThisDrawing.Application.preferences.User
    
    ' Читайте и показывайте первоначальное значение
    originalValue = ACADPref.ADCInsertUnitsDefaultSource
    MsgBox "Параметр ADCInsertUnitsDefaultSource установлен в: " & originalValue

    ' Измените параметр ADCInsertUnitsDefaultSource, переключая значение
    ACADPref.ADCInsertUnitsDefaultSource = acInsertUnitsMillimeters

    MsgBox "Параметр ADCInsertUnitsDefaultSource был установлен в: " & ACADPref.ADCInsertUnitsDefaultSource

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