CimPointEnumList.Add (method)

Creates a new enum.

Syntax:

Set CimPointEnum = object.Add ( EnumID )

Parameters:

EnumID As String - Name of the new enum

Description:

CimPointEnumList.Add returns a new CimPointEnum object. This is the method to call to create a new item. You must call CimPointEnum.Save to save the enum.

Example:

Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim pointEnums As CimPointEnumList
Dim parm As CimPointEnum
Set pointEnums = project.PointEnums
Set parm = pointEnums.Add("TurbineStates")

pointEnum.Description = "Turbine operational
states."

pointEnum.Save False