' Name: MauchaBack
' Title: Maucha graphic objects to back
' Description: Find all the Maucha objects and send them to back
' 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("Maucha")
theGraphics.UnSelectAll
for each g in theGraphicsList
  g.SetSelected(true)
end
theGraphics.MoveSelectedToBack