Gets the Alarm Class List object. | |
Syntax: | Set CimMeasurementManager = object.MeasurementManager |
Description: | The CimProject.MeasurementManager property
is read-only and returns the measurement system manager. 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.SystemID |