FindDuplicatePoints

Finds duplicates 3-D points in an array of 3-D points.

Rhino.FindDuplicatePoints (arrPoints[, dblTolerance])

arrPoints	Required. Array. An array of 3-D points.
dblTolerance	Optional. Number. The minimum distance between points. Points that fall within this tolerance will be discarded. If omitted, Rhino's internal zero tolerance is used.

Array	An array of one or more sets, or arrays, of indices that identify the locations of the duplicate points if successful.
Null	If not successful or on error.

Dim arrPoints, arrResults, arrSet, i, nIndex

arrPoints = Rhino.GetPointCoordinates

arrResults = Rhino.FindDuplicatePoints(arrPoints)

If IsArray(arrResults) Then

Call Rhino.Print("Set Count = " & CStr(UBound(arrResults) + 1))

For i = 0 to UBound(arrResults)

arrSet = arrResults(i)

Call Rhino.Print("Set " & CStr(i+1))

For Each nIndex in arrSet

Call Rhino.Print(" Index " & CStr(nIndex) & " = " & Rhino.Pt2Str(arrPoints(nIndex)))

End If