Your Products have been synced, click here to refresh
'Assignment To look For varname = "WATCHER" ' Is it enabled? sstate = "" For cnt = 1 To PCDCommands.Count Set PCDCommand = PCDCommands.Item(cnt) If ((PCDCommand.Type = 195) And (varname = PCDCommand.GetText(DEST_EXPR, 0))) Then wvar = [B]PCDCommand.GetText(SRC_EXPR, 0)[/B] If wvar = """""" Then sstate = " started @ " retval = PCDCommand.PutText("""TRUE""", SRC_EXPR, 0) End If If wvar = """TRUE""" Then sstate = " ended @ " retval = PCDCommand.PutText("""""", SRC_EXPR, 0) End If
'Assignment To look For varname = "WATCHER" ' Is it enabled? sstate = "" For cnt = 1 To PCDCommands.Count Set PCDCommand = PCDCommands.Item(cnt) If ((PCDCommand.Type = 195) And (varname = PCDCommand.GetText(DEST_EXPR, 0))) Then wvar = [B]PCDCommand.GetText(SRC_EXPR, 0)[/B] If wvar = """""" Then sstate = " started @ " retval = PCDCommand.PutText("""TRUE""", SRC_EXPR, 0) End If If wvar = """TRUE""" Then sstate = " ended @ " retval = PCDCommand.PutText("""""", SRC_EXPR, 0) End If
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |