WINCC 水流动画一种简单的实现办法-技术论坛-工业支持中心-西门子（中国）有限公司（SLC）

技术论坛

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

返回主题列表

作者

主题

泽诗冯冯
侠客金牌用户

金牌用户

经验值:918
发帖数:25
精华帖:3

楼主

2021-06-23 10:58:27
主题：WINCC 水流动画一种简单的实现办法精华帖

精华帖

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

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

【版本wincc7.4sp1】

zsff

您收到0封站内信：

×

×

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。