'See the Neighborhood0D for the use with a simple index argument
set oCube = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube", "MeshSurface")
set oGeometry = oCube.obj
set o0DGeometry = oGeometry.Geometry0D
'Get the array of indices from that item
set oSubComponent = getvalue(oCube.FullName & ".pnt[6]")
aIndices = oSubComponent.SubElements
a0DNeighbors = o0DGeometry.Neighbors0D( aIndices, siAdjacent, 1 )
for j = LBound( a0DNeighbors, 1 ) to UBound( a0DNeighbors, 1 )
LogMessage "Component [" & j & "] 0D neighbor : " & a0DNeighbors(j)
next
|