Gets the identifier for the measurement unit. | |
Syntax: | String = object.UnitID |
Description: | The UnitID property gets the identifier of
the measurement unit. Example: Dim project As CimProject Set project = CreateObject("CimProject") project.OpenLocalProject "d:\classes\classes.gef" Dim measurementManager As CimMeasurementManager Dim measurementAssocList As
CimMeasurementAssociationList Dim measurementAssoc As CimMeasurementAssociation Dim measurementUnitList As CimMeasurementUnitList Dim measurementUnit As CimMeasurementUnit Set measurementManager =
project.MeasurementManager Set measurementUnitList = measurementManager.Units Set measurementUnit =
measurementUnitList.Item("METER") Set measurementAssocList =
measurementUnit.SystemAssociations Set measurementAssoc =
measurementAssocList.Item("Metric") MsgBox measurementAssoc.UnitID |