' Name: JuanitaPieBack
' Title: Sector-pie graphic objects to back
' Description: Find all the Pie objects and send them to back
' Author: Michael Silberbauer
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.Count>0) then
for each g in theGraphicsList
g.SetSelected(true)
end
end
theGraphics.MoveSelectedToBack