Объект TimePlotWindow представляет окно графика во времени.
Объект TimePlotWindow являтся производным от объекта Window и наследует все его методы и свойства. Все объекты TimePlotWindow являются членами коллекции Windows, которая доступна через свойство Windows объекта Result.
Чтобы получить объект TimePlotWindow, используйте метод GetTimePlot объекта Result. Если окно графика во времени (объект TimePlotWindow) уже открыто, метод GetTimePlot вернет существующее окно TimePlotWindow.
Есть специальный объект TimePlotPicture, хранящий все настройки картинки в окне графика во времени (объект TimePlotWindow). Чтобы изменить некоторые настройки, надо получить объект TimePlotPicture, связанный с окном графика во времени (объект TimePlotWindow), изменить его свойства и вернуть его в TimePlotWindow.
В дополнение к свойствам и методам базового объекта Window, объект TimePlotWindow имеет следующие методы и свойства
|
Метод Zoom |
Позволяет увеличивать и уменьшать картинку графика во времени. Два параметра, имеющих тип Point, задают левый верхний и правый нижний углы прямоугольника, который займет целое окно. Если задана только одна точка, то она станет центром будущего окна, а картинка увеличится в 2 раза. Если параметры не заданы, то будет показана вся картинка целиком, так крупно, как это возможно. |
|
Свойство PlotSettings
|
Возвращает и устанавливает объект TimePlotPicture, используемый для настройки картинки. |
|
Свойство LegendVisible
|
Возвращает и устанавливает видимостьокна обозначений. |
|
GetLegendPicture method
|
Помещает картинку из окна обозначений в буфер обмена Windows. |
|
Свойство WindowType
|
Возвращает тип QfWindowType этого окна. |
Следующий пример создает окно графика во времени (объект TimePlotWindow), настраивает шкалу времени (ось x), добавляет две точки с координатами (5, 0) и (-3, 70) и рисует зависимость во времени для модуля и x-составляющей вектора плотности теплового потока для одной точки, и модуль и у-составляющую вектора плотности теплового потока для другой точки:
dim res as ELCUT.Result
...........
' Исключение стационарных задач
If Not res.Problem.IsTimeDomain Then Exit Sub
' Получение пустого окна графика
Dim plot As ELCUT.TimePlotWindow
set plot = res.GetTimePlot(cont)
' Управление настройками графика во времени
dim parms As ELCUT.TimePlotPicture
set parms = plot.PlotSettings
With parms
.GridLines = False
.Markers = False
.Group = QfGrad
' Выбор семейства кривых для показа на графике
' Установка шкалы для оси времени:
.RangeX(qfMin) = 6.5
.RangeX(qfMax) = 10
' Добавление двух точек и выбор желаемых кривых для каждой из них
Dim p As ELCUT.TimePlotPoint
Set p = .Points.Add(ELC.PointXY(5, 0))
p.curve(QfGrad) = True
p.curve(QfGradX) = True
Set p = .Points.Add(ELC.PointXY(-3, 70))
p.curve(qfPotential) = True
p.curve(QfGrad) = True
p.curve(QfGradY) = True
End With
plot.PlotSettings = parms ' Применение настроек к окну графика во времени