PlantOnCableDiameter

PlantOnCableDiameter.cs

namespace CustomExtCriteriaCS
{
	[System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.None)]
	[System.Runtime.InteropServices.Guid(PlantOnCableDiameter.GUID)]
	[System.Runtime.InteropServices.ProgId(PlantOnCableDiameter.PROGID)]
	public class PlantOnCableDiameter : ESRI.ArcGIS.Schematic.ISchematicNodeReductionExtended
	{
		public const string GUID = "28231119-7E86-4924-AC04-F5AE21858112";
		public const string PROGID = "CustomExtCriteriaCS.PlantOnCableDiameter";

		#region Component Category Registration
		[System.Runtime.InteropServices.ComRegisterFunction()]
		public static void Register(string regKey)
		{
			ESRI.ArcGIS.ADF.CATIDs.SchematicRulesExtendedCriteria.Register(regKey);
		}

		[System.Runtime.InteropServices.ComUnregisterFunction()]
		public static void Unregister(string regKey)
		{
			ESRI.ArcGIS.ADF.CATIDs.SchematicRulesExtendedCriteria.Unregister(regKey);
		}
		#endregion

		#region SchematicNodeReductionExtended Implementations
		//  Description of the new schematic node reduction criteria
		public string Name
		{
			get
			{
				return "Reduce if connected cable diameters are 8 (C#)";
			}
		}

		public bool SelectReduction(ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureNode node, ESRI.ArcGIS.Schematic.IEnumSchematicInMemoryFeature enumLink, ref ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLink link)
		{
			// if enumLink is empty do nothing
			if (enumLink == null) return false;
			if (enumLink.Count == 0) return false;

			enumLink.Reset();

			ESRI.ArcGIS.Schematic.ISchematicInMemoryFeature schemAssociatedLink;
			schemAssociatedLink = enumLink.Next();

			// for each link in enumLink
			while (schemAssociatedLink != null)
			{
				// get cables
				ESRI.ArcGIS.Geodatabase.IFeature cablesFeature;
				cablesFeature = schemAssociatedLink.SchematicElement as ESRI.ArcGIS.Geodatabase.IFeature;

				if (cablesFeature == null) return false;

				// get cables class
				ESRI.ArcGIS.Geodatabase.IDataset cablesDataset;
				cablesDataset = (ESRI.ArcGIS.Geodatabase.IDataset)cablesFeature.Class;

				// if not the right class do nothing
				if (cablesDataset.Name.IndexOf("cables") == 0) return false;

				// get workspace
				ESRI.ArcGIS.Geodatabase.IFeatureWorkspace cablesWorkspace;
				cablesWorkspace = (ESRI.ArcGIS.Geodatabase.IFeatureWorkspace)cablesDataset.Workspace;

				// open table cables_attributes
				ESRI.ArcGIS.Geodatabase.ITable cablesTable;
				cablesTable = cablesWorkspace.OpenTable("cables_attributes");
				if (cablesTable == null) return false;

				// get diameter value
				object cableDiameter = cablesTable.GetRow(cablesFeature.OID).get_Value(1);

				if (cableDiameter.ToString() != "8") return false; //if not 8 do nothing

				schemAssociatedLink = enumLink.Next();
			}
			return true; // if this far
		}
		#endregion
	}
}

PlantOnCableDiameter.vb

Option Strict Off
Option Explicit On


<System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.None)> _
<System.Runtime.InteropServices.Guid(PlantOnCableDiameter.GUID)> _
<System.Runtime.InteropServices.ProgId(PlantOnCableDiameter.PROGID)> _
Public Class PlantOnCableDiameter
	Implements ESRI.ArcGIS.Schematic.ISchematicNodeReductionExtended

	Public Const GUID As String = "A42296B1-BDED-4d92-AEE6-59E47CBEA6EF"
	Public Const PROGID As String = "CustomExtCriteriaVB.PlantOnCableDiameter"

	' Register/unregister categories for this class
#Region "Component Category Registration"
	<System.Runtime.InteropServices.ComRegisterFunction()> _
	Public Shared Sub Register(ByVal regKey As String)
		ESRI.ArcGIS.ADF.CATIDs.SchematicRulesExtendedCriteria.Register(regKey)
	End Sub

	<System.Runtime.InteropServices.ComUnregisterFunction()> _
	Public Shared Sub Unregister(ByVal regKey As String)
		ESRI.ArcGIS.ADF.CATIDs.SchematicRulesExtendedCriteria.Unregister(regKey)
	End Sub
#End Region

	' Implementation of a new ISchematicNodeReductionExtended interface to be used as an additional criteria during the execution of a Node Reduction By Priority rule

#Region "ISchematicNodeReductionExtended Implementations"
	' Description of the new schematic node reduction criteria
	'Private ReadOnly Property ISchematicNodeReductionExtended_Name() As String _
	'Implements Schematic.ISchematicNodeReductionExtended.Name
	Private ReadOnly Property Name() As String _
	 Implements ESRI.ArcGIS.Schematic.ISchematicNodeReductionExtended.Name
		Get
			Return "Reduce if connected cable diameters are 8 (VBNet)"
		End Get
	End Property

	'The SelectReduction procedure works with the input pNode schematic node candidate to the 
	'reduction and with the input pEnumLink list of schematic link elements incident to this 
	'schematic node.  It must return True for the output Reduce boolean parameter if the pNode 
	'is reduced, false if the pNode is kept.	When the output ppLink schematic link is not 
	'nothing, it determines the target node that will be used to reconnect the links incidents 
	'to the reduced node.	 In this sample procedure, the set of links incident to the node 
	'candidate to the reduction is analyzed. For each of them, the procedure checks the value 
	'of the first field (diameter of the incident cable). If all values are 8, the returned 
	'output reduce parameter is True.
	Public Function SelectReduction( _
	ByVal node As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureNode, _
	ByVal enumLink As ESRI.ArcGIS.Schematic.IEnumSchematicInMemoryFeature, _
	ByRef link As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeatureLink) As Boolean _
	Implements ESRI.ArcGIS.Schematic.ISchematicNodeReductionExtended.SelectReduction

		On Error Resume Next
		' if enumLink is empty do nothing
		If (enumLink Is Nothing) Then Return False
		If (enumLink.Count = 0) Then Return False

		enumLink.Reset()

		Dim schemAssociatedLink As ESRI.ArcGIS.Schematic.ISchematicInMemoryFeature
		schemAssociatedLink = enumLink.Next
		' for each link in enumLink
		While (schemAssociatedLink IsNot Nothing)
			' get cables
			Dim cablesFeature As ESRI.ArcGIS.Geodatabase.IFeature
			cablesFeature = CType(schemAssociatedLink.SchematicElement, ESRI.ArcGIS.Schematic.ISchematicElementAssociatedObject)
			If (cablesFeature Is Nothing) Then Return False

			' get cables class
			Dim cablesDataset As ESRI.ArcGIS.Geodatabase.IDataset
			cablesDataset = cablesFeature.Class

			' if not the right class do nothing
			If (cablesDataset.Name.IndexOf("cables") = 0) Then Return False

			' get workspace
			Dim cablesWorkspace As ESRI.ArcGIS.Geodatabase.IFeatureWorkspace
			cablesWorkspace = cablesDataset.Workspace

			' open table cables_attributes
			Dim cablesTable As ESRI.ArcGIS.Geodatabase.ITable
			cablesTable = cablesWorkspace.OpenTable("cables_attributes")
			If (cablesTable Is Nothing) Then Return False

			' get diameter value, if not 8 do nothing
			If (cablesTable.GetRow(cablesFeature.OID).Value(1) <> 8) Then Return False

			schemAssociatedLink = enumLink.Next
		End While

		Return True			' True if this far
	End Function
#End Region

End Class