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