CimMeasurementSystemList.Item (read-only property)

Gets the a measurement system by name.
Syntax: Set CimMeasurementSystem = object.Item ( SystemID )
SystemID As String - Measurement system to be retrieved.
Description: CimMeasurementSystemList.Item returns a CimMeasurementSystem by name. Use this method to obtain an existing measurement system.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim measurementManager As CimMeasurementManager
Dim measurementSystemList As CimMeasurementSystemList
Dim measurementSystem As CimMeasurementSystem
Set measurementManager = project.MeasurementManager
Set measurementSystemList = measurementManager.Systems
Set measurementSystem = measurementSystemList.Item("Metric")
MsgBox measurementSystem.IsActive