' Sum Grids.Ave

' Written by Timothy S. Thomas
' Written on 1/28/00.  Last modified 1/28/00.

' This script sums the active themes.

theView = av.GetActiveDoc
theGThemeList = theView.GetActiveThemes

ktthemes = theGThemeList.Count

msgString = "Number of themes is " + ktthemes.AsString + ".  Continiue?"
contin = MsgBox.YesNo(msgString,"",true)

if (contin = true) then

  for each i in 1..ktthemes
    if (i = 1) then
      inGrid = theGThemeList.Get(i-1).GetGrid
    else
      inGrid = inGrid + theGThemeList.Get(i-1).GetGrid
    end
  end

  newGTheme = GTheme.Make(inGrid)
  theView.AddTheme(newGTheme)

end