Справка по  ActiveField™ 

об ELCUT     Скачать     Контакты

Технология ActiveField
Обзор объектов
Диаграмма иерархии объектов
С чего начать: Объект Application
Как работать с задачами
Как работать с геометрической моделью
Как работать с физическими свойствами
Как анализировать результаты

Объекты

Свойства

Методы

TimePlotPoints Object

Свойства

Методы

Краткое описание

Коллекция точек, для которых вычисляются кривые зависимости физических величин от времени.

Подробное описание

Коллекция TimePlotPoints объектов TimePlotPoint содержит все точки модели, для которых построены графики во времени. Эта коллекция доступна через свойство Points объекта TimePlotPicture. При создании объекта TimePlotWindow коллекция пуста. Можно добавлять или удалять отдельные точки в коллекции, перебирать точки и выбирать отдельные точки.

Коллекция TimePlotPoints имеет следующие методы и свойства:

Перебор точек

Метод Item (index типа Variant)
Тип TimePlotPoint

Возвращает объект TimePlotPoint по её номеру, считая с единицы.

Свойство Count. Тип Long.
(только для чтения)

Возвращает число точек в коллекции.

Добавление и удаление точек

Метод Add (p типа Point)
Тип TimePlotPoint.

Добавляет новую точку к графику, чьи координаты задаются параметром p.

Метод Remove (index типа Variant).

Удаляет точки, для которых были построены графики во времени по их номеру, считая с единицы.

В следующем примере сначала удаляются все точки, для которых были построены графики во времени, а потом добавляются 10 точек, равномерно распределенных вдоль оси y. Потом строится кривая изменения температуры во времени для каждой из этих точек. Помните, что переменная nCount, заданная свойством Count может быть меньше 10, если некоторые автоматически посчитанные точки находятся за пределами модели.

' Предполагается, что
'     timeView типа ELCUT.TimePlotWindow, и
'     ELC типа QuickFiel.Application
' были определены заранее


Dim tsSet As ELCUT.TimePlotPicture
Set tsSet = timeView.PlotSettings
With tsSet
    Dim pItem As ELCUT.TimePlotPoint
    ' Удаляем старые точки
    For Each pItem In .Points
    .Points.Remove (1)
    Next

    ' Вычисляем координаты точек
    ' и добавляем их к коллекции

    Dim i As Integer
    For i = 0 To 9
        .Points.Add ELC.PointXY(0, i * 5)
    Next
    ' Включаем показ графика изменения температуры во времени
    ' для каждой точки

    For Each pItem In .Points
        pItem.curve(qfPotential) = True
    Next
    ' Вычисляем, сколько точек получилось
    Dim nCount As Integer
    nCount = .Points.Count
End With
' Применяем настройки к графику во времени
timeView.PlotSettings = tsSet