'
'       This example illustrates how to iterate over the output ports
'       of an operator and access the object being written too.
'
set root = Application.ActiveProject.ActiveScene.Root
set grid = root.AddGeometry("Grid","MeshSurface")
' find the operators on the grid
for each op in grid.ActivePrimitive.ConstructionHistory
           LogMessage op.Name & ", " & op.Type
           for each port in op.OutputPorts
                   LogMessage port.Name & ": " & port.target2
           next
next