Gets and sets the identifier for the equivalent measurement unit. | |
Syntax: | String =
object.EquivalentUnitID object.EquivalentUnitID = String |
Description: | The UnitID property gets and sets the
identifier of the equivalent 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.EquivalentUnitID |