CimMeasurementAssociation.SystemID (read-only property)

Gets the identifier for the measurement system.

Syntax:

String = object.SystemID

Description:

The SystemID property gets the identifier of the measurement system.

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