IVZMapChartLayer.Pies

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Express: IEaxAnalyzer;
    Map: IVZMapChart;
    Facts: IDimInstance;
    Slice: IEaxDataAreaSlice;
    Sel: IDimSelection;
    Layer: IVZMapChartLayer;
    PiesArray: IVZPiesArray;
    Pie: IVZMapChartPie;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Express := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    // Получим карту
    Map := Express.MapChart.MapChart;
    // Зададим измерение фактов в качестве измерения метрик
    Facts := Express.Pivot.Dimensions.FindByKey(10124).DimInstance;
    Slice := Express.DataArea.Slices.Item(0);
    Slice.IndicatorsDimension := Facts;
    // Включим тип метрики «Круговой» и в отметку добавим все элементы
    Sel := Express.MapChart.IndicatorSelection(EaxMapChartIndicators.PieAngle);
    Sel.SelectAll;
    // Получим слой на карте
    Layer := Map.RootLayer.SubLayers.Item(0);
    // Получим коллекцию столбиковых показателей
    PiesArray := Layer.Pies;
    // Получим объект для работы с круговыми показателями
    Pie := PiesArray.Item(0);
    // Очистим коллекцию круговых показателей
    PiesArray.Clear;
    // Добавим ранее полученный объект для работы с круговыми показателями
    PiesArray.Add(Pie);
    // Обновим и сохраним отчёт
    Express.RefreshAll;
    (Express As IMetabaseObject).Save;
End Sub UserProc;