'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
myNbElem = myCluster.NbElements
LogMessage  "Cluster_V1 [" & myItem & "] contains " & myNbElem & " element(s)"