WINCCV7.5SP2使用VBA一次性修改多个IO域连接的变量3_来自金沙江的小鱼

个人资料

微博

正文字体大小：大中小

WINCCV7.5SP2使用VBA一次性修改多个IO域连接的变量3

(2024-09-25 10:11:46)

标签：

分类：西门子软硬件

在前面联系基础上，如果还有其他的IO域，名字也是IO加数字的形式，比如是IO22，那么只需要把脚本稍作修改，写成下面的形式即可

Sub IOField_OutputValueTrigger2()

Dim objects

Dim objdynamic

Dim i

Set objects = ActiveDocument.HMIObjects.Find(ObjectName:="IO*", objecttype:="HMIIOField")

For i = 1 To objects.count

If objects.Item(i).ObjectName <= "IO20" Then

Set objdynamic = objects.Item(i).OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "Real" & CStr(i))

End If

End Sub

保存运行脚本，就只会修改IO1到IO20这20个IO域。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report