' MinGrids.Ave

' Written by Timothy S. Thomas
' Written on 7/25/00.  Last modified 7/25/00.

' This script merges 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)

theGridList = List.Make

if (contin = true) then

  for each i in 1..(ktthemes-1)
    theGridList.Add(theGThemeList.Get(i-1).GetGrid)
  end
  
  inGrid = theGThemeList.Get(ktthemes-1).GetGrid.LocalStats(#GRID_STATYPE_MIN,theGridList)

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

end