This document is archived and information here might be outdated. Recommended version. |
Looping on all the schematic datasources referenced in a given schematic dataset
/// <summary> /// Looping on all the schematic datasources referenced in a given SchematicDataset /// </summary> /// <param name="schemDataset">The SchematicDataset where the schematic datasources are referenced</param> public void SchematicDataSourceFromSchematicDataset(ESRI.ArcGIS.Schematic.ISchematicDataset schemDataset) { // cast SchematicDataset into ISchematicDataSourceContainer ESRI.ArcGIS.Schematic.ISchematicDataSourceContainer schDataSourceCont=(ESRI.ArcGIS.Schematic.ISchematicDataSourceContainer)schemDataset; // retrieve all the SchematicDatasource in the schematic dataset container ESRI.ArcGIS.Schematic.IEnumSchematicDataSource enumDataSource=schDataSourceCont.SchematicDataSources; enumDataSource.Reset(); // get the first SchematicDataSource ESRI.ArcGIS.Schematic.ISchematicDataSource schDataSource=enumDataSource.Next(); bool isOk=false; while (schDataSource != null) { // TODO: add your code here, set isOk to true to exit the loop if (isOk) break; // get the next SchematicDataSource schDataSource=enumDataSource.Next(); } }
''' <summary> ''' Looping on all the schematic datasources referenced in a given SchematicDataset ''' </summary> ''' <param name="schemDataset">The SchematicDataset where the schematic datasources are referenced</param> Public Sub SchematicDataSourceFromSchematicDataset(ByVal schemDataset As ESRI.ArcGIS.Schematic.ISchematicDataset) ' cast SchematicDataset into ISchematicDataSourceContainer Dim schDataSourceCont As ESRI.ArcGIS.Schematic.ISchematicDataSourceContainer=TryCast(schemDataset, ESRI.ArcGIS.Schematic.ISchematicDataSourceContainer) ' retrieve all the SchematicDatasource in the schematic dataset container Dim enumDataSource As ESRI.ArcGIS.Schematic.IEnumSchematicDataSource=schDataSourceCont.SchematicDataSources enumDataSource.Reset() ' get the first SchematicDataSource Dim schDataSource As ESRI.ArcGIS.Schematic.ISchematicDataSource=enumDataSource.Next() Dim isOk As Boolean=False While (schDataSource IsNot Nothing) ' TODO: add your code here, set isOk to true to exit the loop If (isOk) Then Exit While ' quit loop if you have finish ' get the next SchematicDataSource schDataSource=enumDataSource.Next() End While End Sub