Hi Christian,

Assuming you'll use a VB.NET script component, you'll need to have 2
inputs and 1 output:

[in]   List of points
[in]   a single integer (11 in your example)
[out] a list of polylines

the code should look something like:

----------------------------------------
  Sub RunScript(ByVal x As List(Of On3dPoint), ByVal y As Integer)
    Dim pline_list As New List(Of OnPolyline)
    Dim pline As OnPolyline

    Dim N As Integer = 0
    For i As Integer = 0 To x.Count -1
      If ((i Mod y) = 0) Then
        If (pLine IsNot Nothing) Then pline_list.Add(pline)
        pLine = New OnPolyline()
      End If

      pline.Append(x(i))
    Next

    If (pline IsNot Nothing) AndAlso (pline.Count > 1) Then
pline_list.Add(pline)

    A = pline_list
  End Sub
--------------------------------------------

I just wrote this directly so don't expect it to be flaw-less.

--
David Rutten
[email protected]
Robert McNeel & Associates


On Jan 19, 2:18 pm, Raun <[email protected]> wrote:
> Hi,
>
> I have just finished manually sorting and connecting points to a
> polyline and I now really want to be able to have a scripting
> component that will for example take the first 11 points of a point
> list and append it to a polyline and then take the next 11 points and
> append to another polyline. My scripting abilities are very bad but I
> know I should use a counter to count the list, and the append to
> append to a polyline. But everything in between is a little unclear
> for me right now.
>
> If you know of a good example of this, that I have missed in the group
> please tell me and I will try to myself. Learning by doing right...
>
> Cheers
>
> Christian

Reply via email to