Коллекция TimePlotPoints объектов TimePlotPoint содержит все точки модели, для которых построены графики во времени. Эта коллекция доступна через свойство Points объекта TimePlotPicture. При создании объекта TimePlotWindow коллекция пуста. Можно добавлять или удалять отдельные точки в коллекции, перебирать точки и выбирать отдельные точки.
Коллекция TimePlotPoints имеет следующие методы и свойства:
Перебор точек |
|
|
Метод Item (index типа Variant)
|
Возвращает объект TimePlotPoint по её номеру, считая с единицы. |
|
Свойство Count. Тип Long.
|
Возвращает число точек в коллекции. |
Добавление и удаление точек |
|
|
Метод Add (p типа Point)
|
Добавляет новую точку к графику, чьи координаты задаются параметром 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