'Create a cube
CreatePrim "Cube", "MeshSurface"
'Set the selection mode to "Point"
SetSelFilter "Point"
'Select 4 points on the cube
SelectGeometryComponents "Cube.pnt[2,3,6,7]"
'Create a cluster with these 4 points
CreateCluster
'The current selection contains the newly created cluster
set mySelList = GetValue("SelectionList")
set myItem = mySelList(0)
set myCluster = myItem.obj
myElem = myCluster.Elements
for i = LBound( myElem, 1 ) to UBound( myElem, 1 )
LogMessage  "Cluster_V1 element [" & i & "] : " & myElem(i)
next