TrendWorX

Добавление тегов на график осуществляется с помощью функции twx.SetPenValues()

Удаление - twx.DeleteAllPens

Изменение времени (скрипт VBScript):

Dim obj

Dim twx

Dim dtpk1

Dim txttime

Dim time1

Dim rtime

Set obj = ThisDisplay.GetVisibleObjectFromName("TWXViewer1")

Set twx = obj.GetOleObject

Set obj = ThisDisplay.GetVisibleObjectFromName("DTPicker1")

Set dtpk1 = obj.GetOleObject

Set txttime = ThisDisplay.GetPointObjectFromName("~~rightTime~~")

If Not IsDate(txttime.Value) Then

MsgBox "Invalid time, reverting to 12:00pm"

txttime.Value = "12:00"

End If

time1 = TimeValue(txttime.Value)

time1 = DateAdd("n",+1,time1)

dtpk1.Hour = DatePart("h", time1)

dtpk1.Minute = DatePart("n",time1)

rtime = dtpk1.Value 'Right date/time

If Not twx.SetTrendRightTDate(rtime) Then

MsgBox "Error"

End If

Дата меняется аналогичным образом.

В дистрибутиве в папке GENESIS32\manuals\files есть много pdf-файлов. Я ими пользовался при изучении