GefProcAction.GetRelativeSetpoint (method)

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

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


Sub GefProcAction_GetRelativeSetpoint()
    Dim oCimObj As GefObject
    Dim oCimProcs As GefProcedures
    Dim oCimProc As GefProcedure
    Dim oCimProcActs As GefProcActions
    Dim oCimProcAct As GefProcAction
    Dim strPointId As String
    Dim nOffSet As Double
    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 = gefActionRelativeSetpoint Then
                    If oCimProcAct.GetRelativeSetpoint(strPointId, nOffSet) = True Then
                        MsgBox "The point id is " & strPointId
                        MsgBox "The off set is " & nOffSet
                    End If
                End If
            End If
        End If
    End If
End Sub