'Активная вьюха
v1=av.GetActiveDoc
'Два грида "Dest"-куда едем (маленький, целочисленный), "Cost"-стоимостной грид
Gr1=v1.FindTheme("Dest").GetGrid
Gr2=v1.FindTheme("Cost").GetGrid
'Gr3 - Итоговый грид расстояний, использующийся позже для CostPath
'"c:\temp\dir1", "c:\temp\alloc1" - создаваемые гриды направлений и распределения
Gr3=gr1.Costdistance(gr2, "c:\temp\dir1".AsFileName, "c:\temp\alloc1".AsFileName, Nil)
'Добавляем новый (он пока временный грид) по вьюху
v1.AddTheme(GTheme.Make(Gr3))