Engineering DynProperties: Alarm Groups, Alarm Classes, Alarm Areas

Engineering DynProperties: Alarm Groups, Alarm Classes, Alarm Areas

Note, that the single items DynProperties are not addressed as a singular:
  1. AlarmGroup
  2. AlarmClass
  3. AlarmArea

...but within the Collection of:
  1. AlarmGroups
  2. AlarmClasses
  3. AlarmAreas

This VBA example addresses the description fields:

Public Sub Alarm_Groups_Classes_Areas()
    For i = 0 To (MyWorkspace.ActiveDocument.AlarmEventGroupCollection.Count - 1)
        MyWorkspace.ActiveDocument.DynProperties("AlarmGroups[" & CStr(i) & "].Description") = "This describes Alarm Group No.: " & CStr(i + 1)
    Next i
    
    For i = 0 To (MyWorkspace.ActiveDocument.AlarmEventClassCollection.Count - 1)
        MyWorkspace.ActiveDocument.DynProperties("AlarmClasses[" & CStr(i) & "].Description") = "This describes Alarm Class No.: " & CStr(i + 1)
    Next i
    
    For i = 0 To (MyWorkspace.ActiveDocument.AlarmEventAreaCollection.Count - 1)
        MyWorkspace.ActiveDocument.DynProperties("AlarmAreas[" & CStr(i) & "].Description") = "This describes Alarm Area  No.:" & CStr(i + 1)
    Next i
End Sub