下記のサンプルソースでMicroStationの作業単位を設定することができます。
Sub SetUnits() Dim myUnit As MeasurementUnit myUnit.System = msdMeasurementSystemMetric myUnit.Base = msdMeasurementBaseMeter myUnit.Label = "mm" myUnit.UnitsPerBaseDenominator = 1 myUnit.UnitsPerBaseNumerator = 1000 ActiveModelReference.MasterUnit = myUnit SaveSettings End Sub