ViewName = "lavaca"
aGridName = "strm"
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("/home1/alpha62/boleskm/lavaca/burndem".AsFileName)

outTheme = GTheme.Make(outGrid)

TheView.AddTheme(outTheme)