ConstructionHistory
ConstructionHistory
This object represents the Operator
stack for a Primitive object. It
allows you to browse through the stack one operator at a time by
enumerating the ConstructionHistory object, which you can get with
the Primitive.ConstructionHistory
property.
The operator stack on a primitive is called the "Construction
History" because the order of the operators generally reflects the
order that the operators were created. However because of the
concept of siConstructionMode, operators may
sometime be added underneath existing operators.
The construction history is one example of the more general concept
of "Connection Stack", see DataRepository.GetConnectionStackInfo
for details.
Note: For performance reasons the Item and Count properties have
not been implemented, so you have to enumerate the entire stack and
check each one to see if it's the one you want.
' 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"
|
