CimPointEnumList.Add (method)

Creates a new enum.
Syntax: Set CimPointEnum = object.Add ( EnumID )
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.


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