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

已锁定

泽诗冯冯

  • 帖子

    25
  • 精华

    3
  • 被关注

    92

论坛等级:侠客

注册时间:2012-07-03

黄金 黄金 如何晋级?

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

13491

22

2021-06-23 10:58:27

star

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】

WINCC 水流动画 一种简单的实现办法 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有30993条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。