回复：求 RENHQ 的WINCC脚本学习 - 对象沿圆弧运动项目文件-技术论坛-工业支持中心-西门子中国

回复：求 RENHQ 的WINCC脚本学习 - 对象沿圆弧运动项目文件

已锁定

手机用户20220127617145

帖子

73
精华

0
被关注

0

论坛等级：游侠

注册时间：2022-01-27

普通如何晋级?

发布于 2023-02-16 19:50:51

6楼

正圆的这个脚本

Sub Process_OnPropertyChanged(ByVal Item, ByVal value)

Dim CENTER,ARC,ARCLINE

Dim ixCenter,iyCenter,ixArc,iyArc,iRadius

Set CENTER=ScreenItems("圆2")

Set ARC=ScreenItems("圆3")

Set ARCLINE=ScreenItems("圆4")

iRadius=150'旋转半径

ixCenter=CENTER.Left+CENTER.Radius

iyCenter=CENTER.Top+CENTER.Radius

'获取旋转对象0度时的圆心坐标

ixArc=ixCenter+iRadius*Sin(value/180*3.1415926)

iyArc=iyCenter+iRadius*Cos(value/180*3.1415926)'

'设置旋转对象的坐标

ARC.Left=ixArc-ARC.Radius

ARC.Top=iyArc-ARC.Radius

ARCLINE.Left=ixCenter-ARCLINE.Radius

ARCLINE.Top=iyCenter-ARCLINE.Radius

ScreenItems("静态文本2").text=value

End Sub

评论

编辑推荐：关闭

请填写推广理由：

活动公告查看全部公告>

先机在握，探秘西门子新品技术宝藏！赢取丰厚奖励~

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

共有31945条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜，你发布的帖子

被评为精华帖！

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

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

分享
只看
楼主

您收到0封站内信：

×

×

信息提示

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