algorithmic modeling for Rhino
Tags:
Dim distances As New List(Of Double)
For Each pt As Point3d in points
distances.Add(pt.DistanceTo(anchor)
Next
Dim distances As New List(Of Double)
For i As Integer = 0 To points.Count-1
distances.Add(points(i).DistanceTo(anchor)
Next
Dim distances As New List(Of Double)
For i As Integer = 0 To points.Count-1
Dim mindist As Double = Double.MaxValue
For j As Integer = 0 To points.Count-1
If (i = j) Then Continue For
mindist = Math.Min(mindist, points(i).DistanceTo(points(j)))
Next
distances.Add(mindist)
Next
Welcome to
Grasshopper
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
© 2024 Created by Scott Davidson. Powered by