GefProcAction.GetToggleSetpoint (method)

Retrieves the configuration information for the action.
Syntax: Boolean = object.GetToggleSetpoint ( PointID )
PointID As BSTR* -
Description: This method is valid only if the Type of the action is GefActionToggleSetpoint.

The arguments correspond to the fields in the action panel of the Procedure Information dialog box.


Sub GefProcAction_GetToggleSetpoint()
    Dim oCimObj As GefObject
    Dim oCimProcs As GefProcedures
    Dim oCimProc As GefProcedure
    Dim oCimProcActs As GefProcActions
    Dim oCimProcAct As GefProcAction
    Dim strPointId As String
    Set oCimObj = CimGetObject
    Set oCimProcs = oCimObj.Procedures
    If oCimProcs.Count > 0 Then
        Set oCimProc = oCimProcs.Item(0)
        If Not oCimProc Is Nothing Then
            Set oCimProcActs = oCimProc.Actions
            If oCimProcActs.Count > 0 Then
                Set oCimProcAct = oCimProcActs.Item(0)
                If oCimProcAct.Type = gefActionToggleSetpoint Then
                    If oCimProcAct.GetToggleSetpoint(strPointId) = True Then
                        MsgBox "The Point is " & """" & strPointId & """"
                    End If
                End If
            End If
        End If
    End If
End Sub