NewScene , false

set oRoot = Application.ActiveProject.ActiveScene.Root

Call StaticKinematicStateBasePosition(oRoot)

set oNull = oRoot.AddPrimitive( "Null","MyNull")

oNull.Kinematics.Global.Parameters("posy").Value = 6.0

set oCube = oRoot.AddGeometry("Cube","MeshSurface")

set oEnv = oCube.ApplyEnvelope(oNull)

Call StaticKinematicStateBasePosition(oCube)

Sub StaticKinematicStateBasePosition(in_Obj)

	Dim l_vec3

	if in_Obj.HasStaticKinematicState then

		set l_vec3 = XSIMath.CreateVector3

		in_Obj.GetStaticKinematicState.Transform.GetTranslation l_vec3

		Application.LogMessage "The StaticKinematicState property position is X " & l_vec3.X & " Y " & l_vec3.Y & " Z " & l_vec3.Z

	else

		Application.LogMessage "There's no StaticKinematicState property on this object."

	end if

end sub

' Expected results:

'INFO : There's no StaticKinematicState property on this object.

'INFO : The StaticKinematicState property position is X 0 Y 0 Z 0