Wincc Scripts

Public Function GetTag(sTag)

Dim oTag

If sTag <> "" Then

Set oTag = HMIRuntime.Tags(sTag)
GetTag = oTag.Read(1)

End If

End Function

Public Sub SetTag(sTag, Val)

Dim oTag

If sTag <> "" Then

Set oTag = HMIRuntime.Tags(sTag)
oTag.Write Val,1

End If

End Sub

1. 'Remove dynamics of every object on the active picture (in Graphic Designer)
   

   Sub RemoveDynamics()

   Dim obj As HMIObject

   Dim paramEvent As HMIEvent

   Dim paramAction As HMIActionDynamic

   Dim Param As HMIProperty

   For Each obj In Application.ActiveDocument.HMIObjects

   For Each Param In obj.Properties

   Param.DeleteDynamic

   For Each paramEvent In Param.Events

   For Each paramAction In paramEvent.Actions

   paramAction.Delete

   Next

   Next

   Next

   Next

   End Sub

2. 'Remove actions of every object on the active picture (in Graphic Designer)

   Sub RemoveActions()

   Dim obj As HMIObject

   Dim objEvent As HMIEvent

   Dim objAction As HMIActionDynamic

   Dim i As Integer

   ' Check in all events of all objects if action are available

   For Each obj In Application.ActiveDocument.HMIObjects

   For Each objEvent In obj.Events

   For Each objAction In objEvent.Actions

   objAction.Delete

   Next

   Next

   Next

   End Sub