'
' This example demonstrates the difference between the Property and Parameter objects
' and what they relate to when you are looking at scene objects in Explorer view
' (with All Nodes scope selected):
'
' Scene_Root (icon looks like:) (TypeName returns:)
' + torus
' + Visibility (gray square) (Property)
' - View Visibility (green tv screen) (simple Parameter)
' + Kinematics (gray square) (Kinematics (a kind of Property))
' + Local (gray square) (KinematicState (a kind of compound Parameter))
' + Pos (folder) (Nothing)
' - X (green tv screen) (simple Parameter)
'
'
NewScene , false
' First create an X3DObject to search on
Set oTorus = Application.ActiveSceneRoot.AddGeometry( "Torus", "MeshSurface" )
'
' Looking for a parameter set and its simple parameter
'
' Get the Visibility parameter set and the View Visibility parameter
Set oVisPSet = oTorus.Properties( "Visibility" )
Set oViewParam = oTorus.Properties( "Visibility" ).Parameters( "viewvis" )
' What have we got?
printType oVisPSet
printType oViewParam
'
' Looking for a parameter set and its compound parameter
'
' Get the Kinematics property, the Local compound parameter and the PosX parameter
Set oKinePSet = oTorus.Kinematics
Set oCompound = oTorus.Kinematics.Local
Set oSimple = oTorus.Kinematics.Local.Parameters( "PosX" )
' What have we got?
printType oKinePSet
printType oCompound
printType oSimple
' Helper Function
Function printType( in_oThing )
' Print name and class name of input object
Application.LogMessage in_oThing & " is a " & TypeName( in_oThing )
End Function
' Expected result:
'INFO : "torus.visibility is a Property"
'INFO : "torus.visibility.viewvis is a Parameter"
'INFO : "torus.kine is a Kinematics"
'INFO : "torus.kine.local is a KinematicState"
'INFO : "torus.kine.local.posx is a Parameter"
|