IPrxScene3DSeries.Add

Syntax

Add(Type: Scene3DSerieType): IPrxScene3DSerie;

Parameters

Type. Type of added series.

Description

The Add method adds a series to the collection.

NOTE. A series of the Points type can be added to the collection only once.

Fore Example

Executing the example requires a regular report with the REGULAR_REPORT identifier, the report sheet contains a 3D scene with several data series and data in the cell range B3:D3. Add links to the Chart, Metabase, Report, Tab system assemblies.

Sub UserProc;
Var
    Report: IPrxReport;
    S: IPrxScene3D;
    Sers: IPrxScene3DSeries;
    Ser: IPrxScene3DPointSerie;
    MB: IMetabase;
    Tab: ITabSheet;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    Tab := (Report.Sheets.Item(0) As IPRxTable).TabSheet;
    S := Tab.Objects.Item(0).Extension As IPrxScene3D;
    S.Series.Clear;
    Sers := S.Series;
    Ser := Sers.Add(Scene3DSerieType.Points) As IPrxScene3DPointSerie;
    Ser.X := "B1:B3";
    Ser.Y := "C1:C3";
    Ser.Z := "D1:D3";
    (Report As IMetabaseObject).Save;
End Sub UserProc;

After executing the example all 3D scene series in the regular report are deleted removed, and a new sphere (or points) series is added.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Chart;

Public Shared Sub Main(Params: StartParams);
Var
    Report: IPrxReport;
    S: IPrxScene3D;
    Sers: IPrxScene3DSeries;
    Ser: IPrxScene3DPointSerie;
    MB: IMetabase;
    Tab: ITabSheet;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    Tab := (Report.Sheets.Item[0] As IPRxTable).TabSheet;
    S := Tab.Objects.Item[0].Extension As IPrxScene3D;
    S.Series.Clear();
    Sers := S.Series;
    Ser := Sers.Add(Scene3DSerieType.sPoints) As IPrxScene3DPointSerie;
    Ser.X := "B1:B3";
    Ser.Y := "C1:C3";
    Ser.Z := "D1:D3";
    (Report As IMetabaseObject).Save();
End Sub;