IScene3DConvexHulls.Count

Синтаксис

Count: Integer;

Описание

Свойство Count определяет количество трехмерных поверхностей в коллекции.

Пример

В рассматриваемом примере предполагается, что существует объект S типа IScene3D.

Sub Chart3D;
Var
    S : IScene3D;
    Hulls : IScene3DConvexHulls;
    Hull : IScene3DConvexHull;
    a : array [0..2Of double;
    i : integer;
    k : Double;
    Color : IGxColor;
Begin
    Hulls := S.DisplayedObjects.ConvexHulls;
    Hulls.Count := 1;
    Hull := Hulls.Item(0);
    k := 0.004;
    Color := New GxColor.CreateARGB(2550,0255) ;
    For i := 0 To 4 Do
        S.BeginUpdate;
        a[0] := Math.Rand*100 - Math.Rand*100;
        a[1] := Math.Rand*100 - Math.Rand*100;
        a[2] := Math.Rand*100 - Math.Rand*100;
        Hull.DataSource.AddPoint("Point" + i.ToString, a, k, Color);
        S.EndUpdate;
    End For;
End Sub Chart3D;

После выполнения примера будет построена одна трехмерная поверхность.

См. также:

IScene3DConvexHulls