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