'

' This example adds and removes the center references on clusters

'

set oCone = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cone","MeshSurface")

set oNull = Application.ActiveProject.ActiveScene.Root.AddNull

set oCylinder = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cylinder","MeshSurface")

set oGrid = Application.ActiveProject.ActiveScene.Root.AddGeometry("Grid","MeshSurface")

set oCluster = oGrid.ActivePrimitive.Geometry.AddCluster(siPolygonCluster, "PolygonClusterOnGrid", array(59,60,61))

set oCluster2 = oGrid.ActivePrimitive.Geometry.AddCluster(siEdgeCluster, "EdgeClusterOnGrid", array(20,21,22,23,24,36,38,39))

set oCluster3 = oGrid.ActivePrimitive.Geometry.AddCluster(siVertexCluster, "VextexClusterOnGrid", array(4,5,6))

set oCluster3.CenterReference = oCone

set oClsRef3 = oCluster3.CenterReference

LogMessage "The cluster center of " & oCluster3.Name & " : " & oClsRef3.Name & ", " & typename(oClsRef3)

set oCluster.CenterReference = oNull

set oClsRef = oCluster.CenterReference

LogMessage "The cluster center of " & oCluster.Name & " : " & oClsRef.Name & ", " & typename(oClsRef)

set oCluster2.CenterReference = oCylinder

set oClsRef2 = oCluster2.CenterReference

LogMessage "The cluster center of " & oCluster2.Name & " : " & oClsRef2.Name & ", " & typename(oClsRef2)

LogMessage "Finding the operators on " & oGrid.Name

set CH = oGrid.ActivePrimitive.ConstructionHistory

LogMessage typename(CH)

for each op in CH

	LogMessage op.Name & ", " & op.Type

next

set oCluster3.CenterReference = Nothing

set oClsRef4 = oCluster3.CenterReference

LogMessage typename(oClsRef4)

LogMessage "Finding the operators on " & oGrid.Name

set CH = oGrid.ActivePrimitive.ConstructionHistory

LogMessage typename(CH)

for each op in CH

	LogMessage op.name & ", " & op.type

next