' Name: JuanitaPieSelect
' Title: Select all sector-pie objects
' Description: find all the Pie objects and select them
' Author: Michael Silberbauer 2001

theView = av.GetActiveDoc
theDisplay = theView.GetDisplay

' Get the GraphicList for the View...
theGraphics = theView.GetGraphics
theGraphics.SelectAll
theGraphicsList = theGraphics.FindAllByObjectTag("JuanitaPie")
theGraphics.UnSelectAll
if (theGraphicsList.Count>0) then
  for each g in theGraphicsList
    g.SetSelected(true)
  end
end