CimMeasurementSystemList.Add (method)

Creates a new measurement system.
Syntax: Set CimMeasurementSystem = object.Add ( SystemID )
SystemID As String - Name of the new measurement system
Description: CimMeasurementSystemList.Add returns a new CimMeasurementSystem object. This is the method to call to create a new item. You must call CimMeasurementManager.Save to save the complete state of the measurement configuration.


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.Add("Metric_MKS")
measurementManager.Save False