WINCC 水流动画 一种简单的实现办法

【运行效果很好】

1、根据管道走向绘制折线段，设置折线属性【线宽:4，线性:虚线】

2、当前值坐标添加vbs属性【只需根据实际修改坐标起始值】

【详细直接参考pdl文件】

Function ActualPointLeft_Trigger(Byval Item)

'触发器 标准周期250ms

Dim poly

Dim lft

Set poly=ScreenItems("折线1")

poly.Index=1

lft=poly.ActualPointLeft

If lft<410 Then 'X位置

   ActualPointLeft_Trigger=lft+3

End If

If lft>=410 Then 'X位置+10

   lft=400 'X位置

   ActualPointLeft_Trigger=lft

End If

End Function

Function ActualPointTop_Trigger(Byval Item)

'触发器 标准周期250ms

Dim poly

Dim tp

Set poly=ScreenItems("折线2")

poly.Index=1

tp=poly.ActualPointTop

If tp<310 Then 'Y位置

   ActualPointTop_Trigger=tp+3

End If

If tp>=310 Then 'Y位置+10

   tp=300 'Y位置

   ActualPointTop_Trigger=tp

End If

End Function

【脚本选择其中一个就可以了】

Water_PDL.rar

【版本wincc7.4sp1】