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

set oCluster = oCone.ActivePrimitive.Geometry.AddCluster( siVertexCluster,"MyCluster",Array(3,1))

Call TotalClusterTranslation(oCluster)

SelectObj oCluster.FullName

Translate , 0.000, 4.000, 0.000, siAbsolute, siView, siObj, siY

Call TotalClusterTranslation(oCluster)

Sub TotalClusterTranslation(in_Cluster)

dim l_vec3, l_collStaticKinematicState, l_totX, l_totY, l_totZ

		l_totX = 0.0

		l_totY = 0.0

		l_totZ = 0.0

		if in_Cluster.HasStaticKinematicState then

			set l_collStaticKinematicState = in_Cluster.GetStaticKinematicStates

			set l_vec3 = XSIMath.CreateVector3

			for each staticKinematicState in l_collStaticKinematicState

				staticKinematicState.Transform.GetTranslation l_vec3

				l_totX = l_vec3.X + l_totX

				l_totY = l_vec3.Y + l_totY

				l_totZ = l_vec3.Z + l_totZ

			next

			logmessage "The total translation is : " & l_totX & ", " & l_totY & ", " & l_totZ			

		else

			logmessage "There's no translation on this cluster."

		end if

end sub