如下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