NewScene , false

set oRoot = Application.ActiveProject.ActiveScene.Root

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)

if oCube.HasStaticKinematicState then

	Application.LogMessage "The X3DObject has a StaticKinematicState property."

else

	Application.LogMessage "The X3DObject does not have a StaticKinematicState property."

end if

' Expected results:

'INFO : The X3DObject has a StaticKinematicState property.