Trigger Dynamic Scene

vizrtexample

Jun 2nd, 2022 (edited)

172

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

VBScript 1.25 KB | None | 0 0

raw download clone embed print report

Dim sceneId As String
Dim textureId As String
Dim imageId As String
Sub OnInitParameters()
RegisterParameterString("path", "Path/UUID", "", 50, 300, "")
RegisterPushButton("load", " Load ", 0)
RegisterPushButton("clear", " Clear ", 1)
RegisterPushButton("restart", " Restart ", 2)
RegisterPushButton("start", " Start ", 3)
RegisterPushButton("continue", " Continue ", 4)
End Sub
Sub OnExecAction(buttonId As Integer)
textureId = this.System.SendCommand("#" & this.VizId & "*TEXTURE GET")
imageId = System.SendCommand(textureId & "*IMAGE*OBJECT_ID GET")
Select Case buttonId
Case 0
System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*TYPE SET OTHER")
System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*SCENE SET " & GetParameterString("path"))
Case 1
System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*SCENE CLEAR")
Case 2
sceneId = System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*SCENE GET")
System.SendCommand(sceneId & "*STAGE SHOW 0.0")
Case 3
sceneId = System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*SCENE GET")
System.SendCommand(sceneId & "*STAGE START")
Case 4
sceneId = System.SendCommand(imageId & "*DYNAMIC*SUBSCENE*SCENE GET")
System.SendCommand(sceneId & "*STAGE CONTINUE")
End Select
End Sub

Add Comment

Please, Sign In to add comment