'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