CimMeasurementAssociation.EquivalentUnitID (property)

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