'
' 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