Error with sliders and expression

I am currently running rhino 5, under 64 bit OS.

and I have been trying to run a def for 2 days with no luck.

I thought the def was way to old to work on the current version of grasshopper but until I ask for some help and I sent the def to someone who tested the def out and made it work and send it right back to me and I got the same error I realized something wasnt right.

here some images of what the def does

Flat hexagonal panels over a given surface.

I get errors with the sliders and the VB script. Original script by Luis Fraguada from LAN then Davide del Giudice/ from madeincalifornia Checked out the definition because I have almost no knowledge with scripting and he made it work and sent those images back to me and this definition fixed, wich doesnt work on my computer and here some images of the problem.

and here some images of the problem.

Attachments:

xx_Hexagonal planar with span_Co-de-iT.gh, 21 KB
Planar HEXAGONAL SURFACE.3dm, 95 KB

Replies to This Discussion

Permalink Reply by Francisco Lara on March 11, 2013 at 3:48pm

It is the same error since I started to try to make this definition work. even after davide fized it.

Its got to be a bug or some kind of problem

Permalink Reply by Michael Pryor on March 11, 2013 at 4:55pm

Im pretty sure your just not putting the expression correctly. Can you put a screenshot of whats in it.

Permalink Reply by Francisco Lara on March 11, 2013 at 5:28pm

I dont think so Davide del Giudice checked out for me and he made it work.

but any ways each slider as:

and the script is

'Script written By Luis E. Fraguada
    'http://www.livearchitecture.net
    'code@livearchitecture.net

    Dim arrPt(0 To u, 0 To v) As On3dPoint

    Dim cnt As Integer = 0

    For i As Int32 = 0 To u

      For j As Int32 = 0 To v

        arrPt(i, j) = pts(cnt)

        cnt = cnt + 1

      Next

    Next

    Dim lines As New List(Of OnPolyline)()
    'Point Culling

    Dim ptArr As New On3dPointArray()

    Dim pt_list As New List(Of On3dPoint)

    For i As Int32 = 0 To u - 2 Step 2

      For j As Int32 = 0 To v - 3 Step 4

        ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)
        ptArr.Append(arrPt(i + 2, j + 1).x, arrPt(i + 2, j + 1).y, arrPt(i + 2, j + 1).z)
        ptArr.Append(arrPt(i + 2, j + 2).x, arrPt(i + 2, j + 2).y, arrPt(i + 2, j + 2).z)
        ptArr.Append(arrPt(i + 1, j + 3).x, arrPt(i + 1, j + 3).y, arrPt(i + 1, j + 3).z)
        ptArr.Append(arrPt(i, j + 2).x, arrPt(i, j + 2).y, arrPt(i, j + 2).z)
        ptArr.Append(arrPt(i, j + 1).x, arrPt(i, j + 1).y, arrPt(i, j + 1).z)
        ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)

        Dim pline As New OnPolyline(ptArr)

        lines.Add(pline)

        Dim pt As New On3dPoint((arrPt(i + 1, j).x + arrPt(i + 1, j + 3).x) / 2, (arrPt(i + 1, j).y + arrPt(i + 1, j + 3).y) / 2, (arrPt(i + 1, j).z + arrPt(i + 1, j + 3).z) / 2)
        pt_list.Add(pt)

        ptArr.destroy

      Next

    Next

    For i As Int32 = 1 To u - 2 Step 2

      For j As Int32 = 2 To v - 3 Step 4

        ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)
        ptArr.Append(arrPt(i + 2, j + 1).x, arrPt(i + 2, j + 1).y, arrPt(i + 2, j + 1).z)
        ptArr.Append(arrPt(i + 2, j + 2).x, arrPt(i + 2, j + 2).y, arrPt(i + 2, j + 2).z)
        ptArr.Append(arrPt(i + 1, j + 3).x, arrPt(i + 1, j + 3).y, arrPt(i + 1, j + 3).z)
        ptArr.Append(arrPt(i, j + 2).x, arrPt(i, j + 2).y, arrPt(i, j + 2).z)
        ptArr.Append(arrPt(i, j + 1).x, arrPt(i, j + 1).y, arrPt(i, j + 1).z)
        ptArr.Append(arrPt(i + 1, j).x, arrPt(i + 1, j).y, arrPt(i + 1, j).z)

        Dim pline As New OnPolyline(ptArr)

        lines.Add(pline)

        Dim pt As New On3dPoint((arrPt(i + 1, j).x + arrPt(i + 1, j + 3).x) / 2, (arrPt(i + 1, j).y + arrPt(i + 1, j + 3).y) / 2, (arrPt(i + 1, j).z + arrPt(i + 1, j + 3).z) / 2)
        pt_list.Add(pt)

        ptArr.destroy

      Next

    Next

    PolyCrv = lines   'hexagon cells
    CPts = pt_list 'center pt

End Sub

Permalink Reply by David Rutten on March 11, 2013 at 6:06pm

As the error claims, the slider expression is using the slider name. It's supposed to use "x" now. So change HexU*2 to x*2 and your slider error should go away.

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by Francisco Lara on March 11, 2013 at 6:35pm

David thats right I did change it earlier this day. and the error goes away but then nothing comes out of the script.

the definition as a note and it says clearly

"*Note: This is the number of cells in each direction. There is an expression in each of the sliders which control a multiplier which relates to the script. Do not change the expression in each slider or the slider names."

so if I change it error goes away but definition doesnt work.

Please help me out! I dont know who to ask for help anymore. no one knows

Permalink Reply by Michael Pryor on March 11, 2013 at 7:29pm

Why dont you just multiply the slider by 2 via the multiplication component for now. Its the same thing.

Permalink Reply by Michael Pryor on March 11, 2013 at 7:02pm

I can confirm putting x*2 clears the error but the expression is not accounted for.

Permalink Reply by Francisco Lara on March 11, 2013 at 7:37pm

it must be something inside the script because I cant still make it work. is either that or a bug.

Michael Pryor did you make the definition work????

Permalink Reply by Andrew Heumann on March 11, 2013 at 8:27pm