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