CimPointEnumFieldList.Add (method)

Creates a new field.
Syntax: Set CimPointEnumField = object.Add ( Text, Value, SetpointAllowed )
Text As String - Name of the new Field.
Value As long - The value of the new Field.
SetpointAllowed As Boolean - Can the point be set to this enum value.
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 field.


Dim project As CimProject
Set project = CreateObject("CimProject")
project.OpenLocalProject "d:\classes\classes.gef"
Dim pointEnums As CimPointEnumList
Dim pointEnum As CimPointEnum
Dim pointEnumFields As CimPointEnumFieldList
Dim pointEnumField As CimPointEnumField
Set pointEnums = project.PointEnums
Set pointEnum = pointEnums.Add("TurbineStates")
pointEnum.Description = "Turbine operational states."
Set pointEnumFields = pointEnum.Fields
Set pointEnumField = pointEnumFields.Add("Starting", 3, True)
pointEnum.Save False