set oCube = Application.ActiveProject.ActiveScene.Root.AddGeometry( "Cube", "MeshSurface" )
set oGlobalTransform = oCube.Kinematics.global.transform
set oRot = XSIMath.CreateRotation
oGlobalTransform.GetRotation oRot
set oVector3 = XSIMath.CreateVector3
oRot.GetXYZAngles oVector3
'Rotate the cube by 30 degrees in y
oVector3.Y = XSIMath.DegreesToRadians( 30 )
oRot.SetFromXYZAngles oVector3
oGlobalTransform.SetRotation oRot
oCube.Kinematics.global.transform = oGlobalTransform