CimMeasurementManager.Systems (read-only property)

Gets the list of measurement systems.

Syntax:

Set CimMeasurementSystemList = object.Systems

Description:

Example:

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.Description