' Name: TextDelete
' Title: Delete visible text objects in View
' Description: find all the visible text objects and delete them.
'      Don't understand why the "Not" in "if( g.IsNowVisible.Not ) then"
' Author: Michael Silberbauer 2002-03-28
'

theView = av.GetActiveDoc
theDisplay = theView.GetDisplay

' Get the GraphicList for the View...
theGraphics = theView.GetGraphics
theGraphicsList = theGraphics.FindAllByClass(GraphicText)
theGraphics.UnSelectAll
if (theGraphicsList<>Nil) then
  for each g in theGraphicsList
    if (g.IsNowVisible.Not) then
      'MsgBox.ListAsString( { g.GetText }, g.AsString, "Symbols of text" )
      g.SetSelected(true)
    end
  end
end

'

theGraphics.ClearSelected