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. Example: 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 |