Removes duplicates from an array of 3-D points.
Rhino.CullDuplicatePoints (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 3-D points with duplicates removed if successful. |
|
Null |
If not successful or on error. |
Dim arr, p
arr = Rhino.GetPoints(,,"First point", "Next point")
If IsArray(arr) Then
arr = Rhino.CullDuplicatePoints(arr)
For Each p in arr
Rhino.Print Rhino.Pt2Str(p)
Next
End If