This document is archived and information here might be outdated.  Recommended version.

Create Closest Facility Layer Snippet (ArcObjects .NET 10.5 SDK)

ArcObjects Library Reference

Create Closest Facility Layer Snippet

[C#]

///<summary>Create a new closest facility layer.</summary>
///   
///<param name="networkDataset">An INetworkDataset interface that is the network dataset on which to perform the closest facility analysis.</param>
///   
///<returns>An INALayer3 interface that is the newly created network analysis layer.</returns>
public static ESRI.ArcGIS.NetworkAnalyst.INALayer3 CreateClosestFacilityLayer(ESRI.ArcGIS.Geodatabase.INetworkDataset networkDataset)
{
  ESRI.ArcGIS.NetworkAnalyst.INAClosestFacilitySolver naClosesestFacilitySolver=new ESRI.ArcGIS.NetworkAnalyst.NAClosestFacilitySolverClass();
  ESRI.ArcGIS.NetworkAnalyst.INASolver naSolver=naClosesestFacilitySolver as ESRI.ArcGIS.NetworkAnalyst.INASolver;

  ESRI.ArcGIS.Geodatabase.IDatasetComponent datasetComponent=networkDataset as ESRI.ArcGIS.Geodatabase.IDatasetComponent; // Dynamic Cast
  ESRI.ArcGIS.Geodatabase.IDENetworkDataset deNetworkDataset=datasetComponent.DataElement as ESRI.ArcGIS.Geodatabase.IDENetworkDataset; // Dynamic Cast
  ESRI.ArcGIS.NetworkAnalyst.INAContext naContext=naSolver.CreateContext(deNetworkDataset, naSolver.Name);
  ESRI.ArcGIS.NetworkAnalyst.INAContextEdit naContextEdit=naContext as ESRI.ArcGIS.NetworkAnalyst.INAContextEdit; // Dynamic Cast

  ESRI.ArcGIS.Geodatabase.IGPMessages gpMessages=new ESRI.ArcGIS.Geodatabase.GPMessagesClass();
  naContextEdit.Bind(networkDataset, gpMessages);

  ESRI.ArcGIS.NetworkAnalyst.INALayer naLayer=naSolver.CreateLayer(naContext);
  ESRI.ArcGIS.NetworkAnalyst.INALayer3 naLayer3=naLayer as ESRI.ArcGIS.NetworkAnalyst.INALayer3; // Dynamic Cast

  return naLayer3;
}

[Visual Basic .NET]

'''<summary>Create a new closest facility layer.</summary>
'''   
'''<param name="networkDataset">An INetworkDataset interface that is the network dataset on which to perform the closest facility analysis.</param>
'''   
'''<returns>An INALayer3 interface that is the newly created network analysis layer.</returns>
Public Shared Function CreateClosestFacilityLayer(ByVal networkDataset As ESRI.ArcGIS.Geodatabase.INetworkDataset) As ESRI.ArcGIS.NetworkAnalyst.INALayer3

  Dim naClosesestFacilitySolver As ESRI.ArcGIS.NetworkAnalyst.INAClosestFacilitySolver=New ESRI.ArcGIS.NetworkAnalyst.NAClosestFacilitySolverClass
  Dim naSolver As ESRI.ArcGIS.NetworkAnalyst.INASolver=CType(naClosesestFacilitySolver, ESRI.ArcGIS.NetworkAnalyst.INASolver) ' Explicit Cast

  Dim datasetComponent As ESRI.ArcGIS.Geodatabase.IDatasetComponent=CType(networkDataset, ESRI.ArcGIS.Geodatabase.IDatasetComponent) ' Explicit Cast
  Dim deNetworkDataset As ESRI.ArcGIS.Geodatabase.IDENetworkDataset=CType(datasetComponent.DataElement, ESRI.ArcGIS.Geodatabase.IDENetworkDataset) ' Explicit Cast
  Dim naContext As ESRI.ArcGIS.NetworkAnalyst.INAContext=naSolver.CreateContext(deNetworkDataset, naSolver.Name)
  Dim naContextEdit As ESRI.ArcGIS.NetworkAnalyst.INAContextEdit=CType(naContext, ESRI.ArcGIS.NetworkAnalyst.INAContextEdit) ' Explicit Cast

  Dim gpMessages As ESRI.ArcGIS.Geodatabase.IGPMessages=New ESRI.ArcGIS.Geodatabase.GPMessagesClass
  naContextEdit.Bind(networkDataset, gpMessages)

  Dim naLayer As ESRI.ArcGIS.NetworkAnalyst.INALayer=naSolver.CreateLayer(naContext)
  Dim naLayer3 As ESRI.ArcGIS.NetworkAnalyst.INALayer3=CType(naLayer, ESRI.ArcGIS.NetworkAnalyst.INALayer3) ' Explicit Cast

  Return naLayer3

End Function