'
' This example illustrates how to search an object construction history
' for a particular operator
'
NewScene , false
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Sphere","MeshSurface")
ApplyOp "Twist", oObject
ApplyOp "Bend", oObject
ApplyOp "Taper", oObject
' Find all operators reading from the primitive
set oPrimitive = oObject.ActivePrimitive
set oConstructionHistory = oPrimitive.ConstructionHistory
Application.LogMessage "The " & oObject.Name & " has the following operators applied"
for each oOperator in oConstructionHistory
        Application.LogMessage vbTab & oOperator.Type
next
set oTwistOperators = oConstructionHistory.Filter( "twistop" )
if oTwistOperators.Count = 1 then
        Application.LogMessage "There is 1 twist applied to " & oObject.Name & " and the twist angle is set to " _
                & oTwistOperators(0).angle.Value & " degrees"
else
        Application.LogMessage "There are " & oTwistOperators.Count & " twists applied to " & oObject.Name
end if
' Expected results:
'INFO : The sphere has the following operators applied
'INFO :         secondaryshapemarker
'INFO :         animationmarker
'INFO :         shapemarker
'INFO :         modelingmarker
'INFO :         taperop
'INFO :         bendop
'INFO :         twistop
'INFO :         geom
'INFO : There is 1 twist applied to sphere and the twist angle is set to 90 degrees