'VBScript example
set oCube = ActiveProject.ActiveScene.Root.AddGeometry( "Cube", "MeshSurface" )
SelectObj "cube", , True
SetSelFilter "Point"
AddToSelection "cube.pnt[2,6]", , True
CreateCluster
Translate , 0.000, 3.000, 0.000, siAbsolute, siView, siObj, siY
Translate , 1.000, 0.000, 0.000, siAbsolute, siView, siObj, siX
set oCluster = Selection(0)
set oStaticKinematicStateCollection = oCluster.GetStaticKinematicStates
set oMaterial = ActiveProject.ActiveScene.Root.Properties.Find("material")
InspectObj oMaterial