如下MVBA代码可以对当前模型重新设置其工作单位（Working Unit）。注意代码结尾处对SaveSettings的调用很重要，否则设置的工作单位将不被保存。

Sub Main()
    Dim masterUnit As MeasurementUnit
    Dim subUnit As MeasurementUnit
    masterUnit.System = msdMeasurementSystemMetric
    masterUnit.Base = msdMeasurementBaseMeter
    masterUnit.Label = "m"
    masterUnit.UnitsPerBaseDenominator = 1
    masterUnit.UnitsPerBaseNumerator = 1
    
    subUnit.System = msdMeasurementSystemMetric
    subUnit.Base = msdMeasurementBaseMeter
    subUnit.Label = "mm"
    subUnit.UnitsPerBaseDenominator = 1
    subUnit.UnitsPerBaseNumerator = 1000
    
    ActiveModelReference.masterUnit = masterUnit
    ActiveModelReference.subUnit = subUnit
    ActiveModelReference.StorageUnit = masterUnit
    ActiveModelReference.UORsPerStorageUnit = 10000
    SaveSettings
End Sub