使用 VBA 以外的其它编程语言

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