'

' This illustrates how to convert a position from local coordinates

' to global coordinates

'

set oRoot = Application.ActiveProject.ActiveScene.Root

if Selection.Count = 0 then

	' create a sample scene

	set oModel = oRoot.AddModel

	oModel.posx.value = 5

	set oObject = oModel.AddNull

	oObject.posx.value = 5

else

	set oObject = Selection(0)

end if

'

' get local position

'

Set v3Pos = XSIMath.CreateVector3

call v3Pos.Set( oObject.posx.value, oObject.posy.value, oObject.posz.value )

logmessage "local position = " & v3Pos.x & ", " & v3Pos.y & ", " & v3Pos.z

'

' transform local to global position

'

Set v3GlobPos = XSIMath.MapObjectPositionToObjectSpace (oObject.Kinematics.Global.Transform, oObject.Kinematics.Local.Transform, v3Pos)

logmessage "global position = " & v3GlobPos.x & ", " & v3GlobPos.y & ", " & v3GlobPos.z