'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
myIndicesArray = Array( 2, 7 )
myElemOffsets = myCluster.ElementsOffsets( myIndicesArray )
for i = LBound( myElemOffsets, 1 ) to UBound( myElemOffsets, 1 )
LogMessage "Cluster_V1 element : " & myIndicesArray(i) & " has the offset : " & myElemOffsets(i)
next
|