EditDefinitionPostApply(ByVal v_lngClass As Long, ByVal v_lngType As Long, ByVal v_lngDDID As Long)
User Applied changes to an item while keeping it open for editing.
v_lngClass is 1 for diagram, 2 for symbol, 3 for definition.
v_lngType holds the item’s type number
v_lngDDID holds the item’s Identity number.
The item’s definition cannot be located and updated through the object model at this point.
Example class:
Public WithEvents app As Application ' The application which will raise events
Private Sub app_EditDefinitionPostApply(ByVal v_lngClass As Long, ByVal v_lngType As Long, ByVal v_lngDDID As Long) Dim def As Definition Dim bRO As Boolean
' this will return an error when app.Encyclopedia.OpenObjectsAsReadOnly is False bRO = app.Encyclopedia.OpenObjectsAsReadOnly app.Encyclopedia.OpenObjectsAsReadOnly = True Set def = SA2001.Encyclopedia.GetDefinitionById(v_lngDDID) app.Encyclopedia.OpenObjectsAsReadOnly = bRO End Sub