CitectVBA定制过程分析器4:清空特定板下的趋势笔，但不删除板

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

CitectVBA定制过程分析器4:清空特定板下的趋势笔，但不删除板_来自金沙江的小鱼_新浪博客 (sina.com.cn)

接着学习练习。如果想清空特定板下面的趋势笔，但是不删除这个板，比如针对2#板（从1开始计数)，写下面的脚本。

Sub clearPaneAllPen()

Dim pa As Object

Dim hPanes As Object

Dim hPane As Object

Dim hPens As Object

Dim panecount

Set pa=main_AN4

Set hPanes=pa.panes

panecount=hPanes.count

If panecount>=2 Then

Set hPane=hPanes.item(2)

Set hPens=hPane.pens

If hPens.count >=1 Then

hPens.removeall

End If

End If

End Sub