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. |