Clear NAClass Snippet

///<summary>Clears all features previously stored in the specified NAClass.</summary>
///  
///<param name="naWindow">An INAWindow interface.</param>
///<param name="activeView">An IActiveView interface.</param>
///<param name="naClassName">A System.String that is the name of the NAClass to be cleared. Example: "Barriers".</param>
///  
///<remarks></remarks>
public static void ClearNAClass(ESRI.ArcGIS.NetworkAnalystUI.INAWindow naWindow, ESRI.ArcGIS.Carto.IActiveView activeView, System.String naClassName)
{
  ESRI.ArcGIS.NetworkAnalystUI.INAWindowCategory naWindowCategory = naWindow.get_CategoryByNAClassName(naClassName);
  naWindow.DelayEvents(naWindowCategory, true);
  naWindow.DelayWindowUpdates(true);

  ESRI.ArcGIS.NetworkAnalyst.INALayer naLayer = naWindow.ActiveAnalysis;
  ESRI.ArcGIS.NetworkAnalyst.INAContext naContext = naLayer.Context;
  ESRI.ArcGIS.NetworkAnalyst.INamedSet namedSet = naContext.NAClasses;
  System.Object theObject = namedSet.get_ItemByName(naClassName);
  ESRI.ArcGIS.NetworkAnalyst.INAClass naClass = theObject as ESRI.ArcGIS.NetworkAnalyst.INAClass;

  if (naClass != null) naClass.DeleteAllRows();

  naWindow.DelayWindowUpdates(false);
  naWindow.DelayEvents(naWindowCategory, false);
  activeView.Refresh();
}

'''<summary>Clears all features previously stored in the specified NAClass.</summary>
'''  
'''<param name="naWindow">An INAWindow interface.</param>
'''<param name="activeView">An IActiveView interface.</param>
'''<param name="naClassName">A System.String that is the name of the NAClass to be cleared. Example: "Barriers".</param>
'''  
'''<remarks></remarks>
Public Shared Sub ClearNAClass(ByVal naWindow As ESRI.ArcGIS.NetworkAnalystUI.INAWindow, ByVal activeView As ESRI.ArcGIS.Carto.IActiveView, ByVal naClassName As System.String)

  Dim naWindowCategory As ESRI.ArcGIS.NetworkAnalystUI.INAWindowCategory = naWindow.CategoryByNAClassName(naClassName)
  naWindow.DelayEvents(naWindowCategory, True)
  naWindow.DelayWindowUpdates(True)

  Dim naLayer As ESRI.ArcGIS.NetworkAnalyst.INALayer = naWindow.ActiveAnalysis
  Dim naContext As ESRI.ArcGIS.NetworkAnalyst.INAContext = naLayer.Context
  Dim namedSet As ESRI.ArcGIS.NetworkAnalyst.INamedSet = naContext.NAClasses
  Dim theObject As System.Object = namedSet.ItemByName(naClassName)
  Dim naClass As ESRI.ArcGIS.NetworkAnalyst.INAClass = CType(theObject, ESRI.ArcGIS.NetworkAnalyst.INAClass) ' Explicit Cast

  If Not (naClass Is Nothing) Then

   naClass.DeleteAllRows()

  End If

  naWindow.DelayWindowUpdates(False)
  naWindow.DelayEvents(naWindowCategory, False)
  activeView.Refresh()

End Sub