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

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

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

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

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