hi there thanks alot
On Mar 12, 11:35 pm, David Rutten <[email protected]> wrote: > Hi Dr. Nick! > > sorry, the only solution I can come up with involves a lot of > programming inside a VB component. > > Create a VB script with 2 inputs: > > 1) P (a list of On3dPoints) > 2) t (a double numeric value) > > Then, paste the following code into the component. > This is a brute force algorithm that will get very slow very quickly > when used on large point collections. > > Sub RunScript(ByVal P As List(Of On3dPoint), ByVal t As Double) > For i As Int32 = P.Count - 1 To 1 Step -1 > For j As Int32 = 0 To i - 1 > If (P(i).DistanceTo(P(j)) < t) Then > P(j).x = 0.5 * (P(i).x + P(j).x) > P(j).y = 0.5 * (P(i).y + P(j).y) > P(j).z = 0.5 * (P(i).z + P(j).z) > > P.RemoveAt(i) > Exit For > End If > Next > Next > > A = P > End Sub > > -- > David Rutten > [email protected] > Robert McNeel & Associates > > On Mar 12, 3:07 pm, Mortez <[email protected]> wrote: > > > I've tried to create something like ,, weld in 3d max ,,, that remove > > points which are located in less than specific distance from each > > others ,,, so any advise? thank
