I am having a problem with the code below. I have a list of circles
and a list of polylines and I want to loft the first polyline to the
first circle and the second polyline to the second circle and so
on...seems simple enough. The problem is that I get an error saying
that DuplicateCurve() is not a method of OnCircle ( which of course is
true). Any suggestions? I have looked all over this site but haven't
found a similar problem. thx.
jon

Sub RunScript(ByVal circles As List(Of OnCircle), ByVal cells As List
(Of OnCurve))
    'Declare loop variable
    Dim i As Integer
    Dim count As Integer
    count = circles.Count() - 1
    Dim lfts As New List(Of OnNurbsSurface)

    For i = 0 To count
      Dim loftCurves As New List(Of MRhinoLoftCurve)

      Dim topCurve As New MRhinoLoftCurve()
      topCurve.m_curve = circles(i).DuplicateCurve()
      loftCurves.Add(topCurve)

      Dim bottomCurve As New MRhinoLoftCurve()
      bottomCurve.m_curve = cells(i).DuplicateCurve()
      loftCurves.Add(bottomCurve)

      Dim loftArgs As New MArgsRhinoLoft()
      loftArgs.m_loftcurves = loftCurves.ToArray()
      loftArgs.m_bClosed = False
      Dim surfaceList(0) As OnNurbsSurface

      Call  RhUtil.RhinoSdkLoftSurface(loftArgs, surfaceList)

      lfts.Add(surfaceList(0))
    Next

    loftedSurfaces = lfts

  End Sub

Reply via email to