'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)"