Hi, I'll write you a sample. Just curious, why are you not using GH Sweep2 component?
On Jan 27, 2:31 am, Philipp <[email protected]> wrote: > I've been trying that...I'm having difficulties with the vb syntax > when call the geometry functions...the documentation in the sdk is > confusing > here the > definitionhttp://grasshopper3d.googlegroups.com/web/sweep2.ghx?hl=en&gsc=LLYUmx... > or code: > > Sub RunScript(ByVal r1_List As List(Of OnCurve), ByVal r2_List As List > (Of OnCurve), ByVal s_List As List(Of OnCurve)) > ''' <your code> > Dim i As Int32 > Dim r1 As New MRhinoPolyEdge > Dim r2 As New MRhinoPolyEdge > Dim s As IOnCurve > Dim surfaces As New List (Of Object) > ' Dim brep_array(0) As OnBrep > Dim brep_array() As OnBrep = Nothing > > Dim args As New MArgsRhinoSweep2 > > For i = 0 To r1_List.count - 1 > r1.Create(r1_List.Item(i)) > r2.Create(r2_List.Item(i)) > > 'RhUtil.RhinoMessageBox(r1.ToString, r1.IsValid.toString, 0) > s = s_List.Item(i) > Dim s_List2 As New List(Of IOnCurve) > s_List2.Add(s) > > args.m_shape_curves = s_List2.ToArray() > args.m_rail_curves(0) = r1 > args.m_rail_curves(1) = r2 > args.m_bClosed = False > args.m_bSimpleSweep = True > > Dim t As Double = 0 > r1.GetClosestPoint(s.PointAtStart(), t) > args.m_rail_params(0).Append(t) > r2.GetClosestPoint(s.PointAtEnd(), t) > args.m_rail_params(1).Append(t) > > surfaces.Add(r1) > > If(RhUtil.RhinoSweep2(args, brep_array)) Then > surfaces.Add(brep_array(0)) > End If > > Next > > A = surfaces
