'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