' Set up the scenario (a cylinder with two operators)
Set oObj = CreatePrim( "Cylinder", "MeshSurface" )
ApplyOp "Bulge", oObj, 3, siPersistentOperation
ApplyOp "Twist", oObj, 3, siPersistentOperation
' First find the cylinder with the operators on it
Set oRoot = ActiveSceneRoot
Set oCyl = oRoot.FindChild(,,siMeshFamily)
' Now get the primitive from the cylinder and then the 
' operator stack as the construction history object
Set oPrim = oCyl.ActivePrimitive
Set oOpStack = oPrim.ConstructionHistory
' This isn't a normal collection, so Count and Item 
' do not work, as you can see if you uncomment these lines:
REM LogMessage "The stack contains " & oOpStack.Count & " operators."
REM LogMessage "...and the first one is: " & oOpStack.Item(0)
' Since you cannot indicate which one you want with Item,
' you need to enumerate each one to check to see whether it
' is the one you are looking for 
For Each o in oOpStack
        If (o = oPrim & ".bulgeop") Then
                ' You found it!
                Set oBulgeOp = o
                ' Find the DeformAlong settings and toggle Y and Z
                For Each p in oBulgeOp.Parameters
                        Select Case p.ScriptName
                                Case "defy"
                                        LogMessage "Original value for DeformAlongY = " & p.Value
                                        p.Value = not( p.Value )
                                        LogMessage "New value = " & p.Value
                                Case "defz"
                                        LogMessage "Original value for DeformAlongZ = " & p.Value
                                        p.Value = not( p.Value )
                                        LogMessage "New value = " & p.Value
                                Case Else
                        End Select
                Next
        End If
Next
REM Output of above script is:
'INFO : "Original value for DeformAlongY = False"
'INFO : "New value = True"
'INFO : "Original value for DeformAlongZ = True"
'INFO : "New value = False"

' The following code illustrates how to get a ConstructionHistory 
' object and how to iterate the construction history using the 
' For Each...Next statement: 
Set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Sphere","MeshSurface")
ApplyOp "Twist", oObject
ApplyOp "Bend", oObject
ApplyOp "Taper", oObject
LogMessage "The " & oObject.Name & " has the following operators applied:"
For Each oOperator in oObject.ActivePrimitive.ConstructionHistory
        LogMessage vbTab & oOperator.Name 
Next
REM The output of the above script is:
'INFO : "The sphere has the following operators applied:"
'INFO : "       Taper Op"
'INFO : "       Bend Op"
'INFO : "       Twist Op"
'INFO : "       Geometry"

//jscript example showing how to 
//enumerate the Operators on a geometry
var oGrid = ActiveProject.ActiveScene.Root.AddGeometry( "Sphere", "MeshSurface" ) ;
ApplyOp("Bulge", oGrid.Name, 3, siPersistentOperation);
ApplyOp("Bend", oGrid.Name, 3, siPersistentOperation);
oEnum = new Enumerator( oGrid.ActivePrimitive.ConstructionHistory );
for (;!oEnum.atEnd();oEnum.moveNext())           
{
        // Print the name of the operator
        logmessage( oEnum.item().fullname ) ;
}
// Output of this script is:
//INFO : "sphere.polymsh.bendop"
//INFO : "sphere.polymsh.bulgeop"
//INFO : "sphere.polymsh.geom"