ViewName = "Tillamook"
aGridName = "demstrm"
bGridName = "demplus"
'****************************************
TheView = av.Getproject.FindDoc(ViewName)

aTheme = TheView.FindTheme(aGridName)
aGrid = aTheme.GetGrid

bTheme = TheView.FindTheme(bGridName)
bGrid = bTheme.GetGrid

listGrid = {bGrid}

outGrid = aGrid.Merge(listGrid)

outGrid.SaveDataSet("z:\melancon\tbnepdem\burndem".AsFileName)

outTheme = GTheme.Make(outGrid)

TheView.AddTheme(outTheme)