' Name: JuanitaPiesDelete
' Title: Delete all sector-pie objects
' Description: find all the Pie objects and delete them
' Author: Michael Silberbauer 2001

theView = av.GetActiveDoc
theDisplay = theView.GetDisplay

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

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

'theGraphics.GroupSelected
theGraphics.ClearSelected