CimPointEnumField.Value (property)

Gets and sets the value of the enum field.
Syntax: long = object.Value
object.Value = long
Description: The Value property gets and sets the value of the point 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.Item("TurbineStates")
Set pointEnumFields = pointEnum.Fields
Set pointEnumField = pointEnumFields.Item("Starting")
pointEnumField.Value = pointEnumField.Value + 1
pointEnum.Save False