ViewName = "StudyArea"
aGridName = "Bathgrclip2"
bGridName = "dem100"
'****************************************
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\bathdem2".AsFileName)

outTheme = GTheme.Make(outGrid)

TheView.AddTheme(outTheme)