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