' Name: HaloDelete
' Title: Delete all halo objects
' Description: find all the halo objects and delete them
' Author: Michael Silberbauer 2002-03-22

theView = av.GetActiveDoc
theDisplay = theView.GetDisplay

' Get the GraphicList for the View...
theGraphics = theView.GetGraphics

'theGraphicList.Empty
theGraphics.SelectAll
theGraphicsList = theGraphics.FindAllByObjectTag("halo")
theGraphics.UnSelectAll
if (theGraphicsList<>Nil) then
  for each g in theGraphicsList
    g.SetSelected(true)
  end
end

'theGraphics.GroupSelected
theGraphics.ClearSelected