' Name: MauchaSelect
' Title: Select all Maucha graphic objects
' Author: Michael Silberbauer 2001
' Description: find all the Maucha objects and select them
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