This document is archived and information here might be outdated. Recommended version. |
ArcObjects Help for .NET developers > ESRI.ArcGIS.Snippets > Snippets > Loop On The Schematic Elements In A Schematic Diagram Snippet (ArcObjects .NET 10.4 SDK) |
Looping on all the schematic elements contained in a SchematicDiagram
/// <summary> /// Looping on all the schematic elements contained in a SchematicDiagram /// </summary> /// <param name="schemDiagram">The SchematicDiagram which contains the schematic elements</param> public void SchematicElementsFromDiagram(ESRI.ArcGIS.Schematic.ISchematicDiagram schemDiagram) { // cast SchematicDiagram into ISchematicElementContainer ESRI.ArcGIS.Schematic.ISchematicElementContainer schElemCont=(ESRI.ArcGIS.Schematic.ISchematicElementContainer)schemDiagram; // retrieve all the SchematicElement in the schematic diagram container ESRI.ArcGIS.Schematic.IEnumSchematicElement enumElement=schElemCont.SchematicElements; enumElement.Reset(); // get the first SchematicElement ESRI.ArcGIS.Schematic.ISchematicElement schElement=enumElement.Next(); bool isOk=false; while (schElement != null) { // TODO: add your code here, set isOk to true to exit the loop if (isOk) break; // get the next SchematicElement schElement=enumElement.Next(); } }
''' <summary> ''' Looping on all the schematic elements contained in a SchematicDiagram ''' </summary> ''' <param name="schemDiagram">The SchematicDiagram which contains the schematic elements</param> Public Sub SchematicElementsFromDiagram(ByVal schemDiagram As ESRI.ArcGIS.Schematic.ISchematicDiagram) ' cast SchematicDiagram into ISchematicElementContainer Dim schElemCont As ESRI.ArcGIS.Schematic.ISchematicElementContainer=TryCast(schemDiagram, ESRI.ArcGIS.Schematic.ISchematicElementContainer) ' retrieve all the SchematicElement in the schematic diagram container Dim enumElement As ESRI.ArcGIS.Schematic.IEnumSchematicElement=schElemCont.SchematicElements enumElement.Reset() ' get the first SchematicElement Dim schElement As ESRI.ArcGIS.Schematic.ISchematicElement=enumElement.Next() Dim isOk As Boolean=False While (schElement IsNot Nothing) ' TODO: add your code here, set isOk to true to exit the loop If (isOk) Then Exit While ' get the next SchematicElement schElement=enumElement.Next() End While End Sub