NetworkAnalysis

void SetEdgeBarrier(INetwork network, IFeatureClass featClass, int edgeOID1, int
    edgeOID2)
{
    //Create the NetElementBarriers object.
    INetElementBarriersGEN netEdgeBarriers = new NetElementBarriersClass()as
        INetElementBarriersGEN;
    int[] oidArray = new int[2];
    oidArray[0] = edgeOID1;
    oidArray[1] = edgeOID2;
    netEdgeBarriers.Network = network;
    netEdgeBarriers.ElementType = esriETEdge;
    netEdgeBarriers.SetBarriers(featClass.FeatureClassID, oidArray);

    //Set the edge barrier in TraceFlowSolver.
    ITraceFlowSolverGEN traceFlowSolver = new TraceFlowSolverClass()as
        ITraceFlowSolverGEN;
    INetSolver netSolver = traceFlowSolver as INetSolver;
    netSolver.SourceNetwork = network;
    netSolver.ElementBarriers(esriETEdge) = netEdgeBarriers;
}

Sub SetEdgeBarrier(network As INetwork, featClass As IFeatureClass, edgeOID1 As Integer, edgeOID2 As Integer)
    'Create the NetElementBarriers object.
    Dim netEdgeBarriers As INetElementBarriersGEN = New NetElementBarriers
    Dim oidArray(0 To 1) As Integer
    oidArray(0) = edgeOID1
    oidArray(1) = edgeOID2
    netEdgeBarriers.Network = network
    netEdgeBarriers.ElementType = esriETEdge
    netEdgeBarriers.SetBarriers(featClass.FeatureClassID, oidArray)
    
    'Set the edge barrier in TraceFlowSolver.
    Dim traceFlowSolver As ITraceFlowSolverGEN = New TraceFlowSolver
    Dim netSolver As INetSolver = CType(traceFlowSolver, INetSolver)
    netSolver.SourceNetwork = network
    netSolver.ElementBarriers(esriETEdge) = netEdgeBarriers
End Sub

void SetFilterWeights(INetwork network)
{
    int[] range = new int[1];

    //Establish the trace flow solver.
    ITraceFlowSolverGEN traceFlowSolver = new TraceFlowSolverClass()as
        ITraceFlowSolverGEN;
    INetSolver netSolver = traceFlowSolver as INetSolver;
    netSolver.SourceNetwork = network;

    //Add the weights.
    INetSchema netSchema = network as INetSchema;
    INetSolverWeightsGEN netSolverWeights = netSolverWeights as INetSolverWeightsGEN;

    INetWeight netWeight = netSchema.WeightByName("Material");
    netSolverWeights.FromToEdgeFilterWeight = netWeight;
    netSolverWeights.ToFromEdgeFilterWeight = netWeight;
    netSolverWeights.SetFilterType(esriETEdge, esriWFRange, true);
    range[0] = 1;
    netSolverWeights.SetFilterRanges(esriETEdge, range, range);

    netWeight = netSchema.WeightByName("Fitting_Type");
    netSolverWeights.JunctionFilterWeight = netWeight;
    netSolverWeights.SetFilterType(esriETJunction, esriWFRange, true);
    range[0] = 8;
    netSolverWeights.SetFilterRanges(esriETJunction, range, range);
}

Sub SetFilterWeights(network As INetwork)
    Dim range(0) As Integer
    
    'Establish the trace flow solver.
    Dim traceFlowSolver As ITraceFlowSolverGEN = New TraceFlowSolver
    Dim netSolver As INetSolver = CType(traceFlowSolver, INetSolver)
    netSolver.SourceNetwork = network
    
    'Add the weights.
    Dim netSchema As INetSchema = CType(network, INetSchema)
    Dim netSolverWeights As INetSolverWeightsGEN = CType(netSolverWeights, INetSolverWeightsGEN)
    
    Dim netWeight As INetWeight = netSchema.WeightByName("Material")
    netSolverWeights.FromToEdgeFilterWeight = netWeight
    netSolverWeights.ToFromEdgeFilterWeight = netWeight
    netSolverWeights.SetFilterType(esriETEdge, esriWFRange, True)
    range(0) = 1
    netSolverWeights.SetFilterRanges(esriETEdge, range, range)
    
    netWeight = netSchema.WeightByName("Fitting_Type")
    netSolverWeights.JunctionFilterWeight = netWeight
    netSolverWeights.SetFilterType(esriETJunction, esriWFRange, True)
    range(0) = 8
    netSolverWeights.SetFilterRanges(esriETJunction, range, range)
End Sub

void FlagDisplay(INetworkAnalysisExtFlags flags, ITraceFlowSolverGEN traceSolver)
{
    IEdgeFlag[] edgeFlags = new IEdgeFlag[flags.EdgeFlagCount];
    IFlagDisplay edgeFlagDisplay;
    INetFlag edgeFlag;
    for (int i = 0; i < flags.EdgeFlagCount; i++)
    {
        edgeFlagDisplay = flags.EdgeFlag(i);
        edgeFlag = New EdgeFlagClass()as INetFlag;
        edgeFlag.UserID = edgeFlagDisplay.FID;
        edgeFlag.UserClassID = edgeFlagDisplay.FeatureClassID;
        edgeFlag.Label = "Edge";
        edgeFlags[i] = edgeFlag;
    }
    traceSolver.PutEdgeOrigins(edgeFlags);
}

Sub FlagDisplay(flags As INetworkAnalysisExtFlags, traceSolver As ITraceFlowSolverGEN)
    Dim edgeFlags() As IEdgeFlag, edgeFlagDisplay As IFlagDisplay
    Dim edgeFlag As INetFlag, i As Integer
    ReDim edgeFlags(0 To flags.EdgeFlagCount - 1)
    For i = 0 To flags.EdgeFlagCount - 1
        edgeFlagDisplay = flags.EdgeFlag(i)
        edgeFlag = New EdgeFlag
        edgeFlag.UserID = edgeFlagDisplay.FID
        edgeFlag.UserClassID = edgeFlagDisplay.FeatureClassID
        edgeFlag.Label = "Edge"
        edgeFlags(i) = edgeFlag
    Next i
    traceSolver.PutEdgeOrigins(edgeFlags)
End Sub

void PlaceJunctionFlag(double x, double y, IMap map, INetworkAnalysisExt
    networkAnalysisExt, ISymbol flagSymbol)
{
    IPoint point = new PointClass()as IPoint;
    point.X = x;
    point.Y = y;
    int EID;
    IPoint outPoint;
    IPointToEID pointToEID = new PointToEIDClass()as IPointToEID;
    pointToEID.GeometricNetwork = networkAnalysisExt.CurrentNetwork;
    pointToEID.SourceMap = map;
    pointToEID.SnapTolerance = 10; //Set a snap tolerance of 10 map units.
    pointToEID.GetNearestJunction(point, out EID, out outPoint);

    INetElements netElements = networkAnalysisExt.CurrentNetwork.Network as
        INetElements;
    int FCID, FID, subID;
    pNetElements.QueryIDs(EID, esriETJunction, out FCID, out FID, out subID);
    IJunctionFlagDisplay junctionFlagDisplay = new JunctionFlagDisplayClass()as
        IJunctionFlagDisplay;
    IFlagDisplay flagDisplay = junctionFlagDisplay as IFlagDisplay;
    flagDisplay.FeatureClassID = FCID;
    flagDisplay.FID = FID;
    flagDisplay.SubID = subID;
    flagDisplay.Geometry = outPoint as IGeometry;
    flagDisplay.Symbol = flagSymbol;

    INetworkAnalysisExtFlags networkAnalysisExtFlags = networkAnalysisExt as
        INetworkAnalysisExtFlags;
    networkAnalysisExtFlags.AddJunctionFlag(junctionFlagDisplay);
}

Sub PlaceJunctionFlag(x As Double, y As Double, map As IMap, _
                      networkAnalysisExt As INetworkAnalysisExt, flagSymbol As ISymbol)
    Dim point As IPoint = New Point
    point.X = x
    point.Y = y
    Dim EID As Integer
    Dim outPoint As IPoint
    Dim pointToEID As IPointToEID = New PointToEID
    With pointToEID
        .GeometricNetwork = networkAnalysisExt.CurrentNetwork
        .SourceMap = map
        .SnapTolerance = 10 'Set a snap tolerance of 10 map units.
        .GetNearestJunction(point, EID, outPoint)
    End With
    
    Dim netElements As INetElements = CType(networkAnalysisExt.CurrentNetwork.Network, INetElements)
    Dim FCID As Integer, FID As Integer, subID As Integer
    pNetElements.QueryIDs(EID, esriETJunction, FCID, FID, subID)
    Dim junctionFlagDisplay As IJunctionFlagDisplay = New JunctionFlagDisplay
    Dim flagDisplay As IFlagDisplay = CType(junctionFlagDisplay, IFlagDisplay)
    With flagDisplay
        .FeatureClassID = FCID
        .FID = FID
        .SubID = subID
        .Geometry = CType(outPoint, IGeometry)
        .Symbol = flagSymbol
    End With
    Dim networkAnalysisExtFlags As INetworkAnalysisExtFlags = CType(networkAnalysisExt, INetworkAnalysisExtFlags)
    networkAnalysisExtFlags.AddJunctionFlag(junctionFlagDisplay)
End Sub