CimMeasurementUnitList.Item (read-only property)

Gets the a measurement unit by name.
Syntax: Set CimMeasurementUnit = object.Item ( UnitID )
UnitID As String - Measurement unit to be retrieved.
Description: CimMeasurementUnitList.Item returns a CimMeasurementUnit by name. Use this method to obtain an existing measurement unit.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim measurementManager As CimMeasurementManager
Dim measurementUnitList As CimMeasurementUnitList
Dim measurementUnit As CimMeasurementUnit
Set measurementManager = project.MeasurementManager
Set measurementUnitList = measurementManager.Units
Set measurementUnit = measurementUnitList.Item("METER")
MsgBox measurementUnit.Description