algorithmic modeling for Rhino
Tags:
Dim tol As Double = doc.AbsoluteTolerance
Dim pts As New List(Of On3dPoint)
For i As Integer = 0 To x.count - 1
Dim curves As New list(Of OnCurve)
Dim pt As New on3dpointarray
rhutil.RhinoCurveBrepIntersect(y, x(i), tol, curves.toarray, pt)
For j As Integer = 0 To pt.Count - 1
pts.Add(pt(j))
Next
Next
a = pts
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