dim cone  
        set cone = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cone","MeshSurface")   
        cone.Kinematics.Global.Parameters("rotx").value = 10.0  
        cone.Kinematics.Global.Parameters("roty").value = 25.0  
        cone.Kinematics.Global.Parameters("rotz").value = 45.0  
        set oTransfo = cone.Kinematics.Global.Transform
        Call PrintTransfoRotationAnglesInDegrees(oTransfo)  
        Sub PrintTransfoRotationAnglesInDegrees(in_transfo)  
                Dim l_Vec3  
                set l_Vec3 = XSIMath.CreateVector3  
                in_transfo.GetRotationXYZAngles l_Vec3  
                Application.LogMessage "X Rotation angle " & XSIMath.RadiansToDegrees( l_Vec3.X )  
                Application.LogMessage "Y Rotation angle " & XSIMath.RadiansToDegrees( l_Vec3.Y )   
                Application.LogMessage "Z Rotation angle " & XSIMath.RadiansToDegrees( l_Vec3.Z )  
        End Sub  
'Expected output:
'INFO : X Rotation angle 10
'INFO : Y Rotation angle 25
'INFO : Z Rotation angle 45