CitectVBA定制过程分析器7：设置时间轴跨度

这是我在新浪博客写的一篇学习笔记，在这里也发表一次。

CitectVBA定制过程分析器7：设置时间轴跨度_来自金沙江的小鱼_新浪博客 (sina.com.cn)

前面的练习中尝试过通过CitectVBA设置时间轴跨度，没有成功，今晚做了一下效果出来了，使用下面的脚本就可以。

 

Sub SetTimeAxisSpan()

'设置过程分析器的时间轴范围

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim hPen1 As Object

Set pa=main_AN4

Set hPanes=pa.panes

Set hPane=hPanes.item(1)

Set hPens=hPane.pens

Set hPen1=hPens.item(1)

'设置默认的跨度8小时

hPen1.SetDefaultSpan 0,0,8,0,0,0

hPen1.ResetToDefaultSpan

End Sub