Use String from another Sub

Hi,

Those any one know how to call a String obtained by another function?

I created some planes in a Sub, now on other Sub I want to call that plane to use for intersection.
Problem is I don’t know how to reference the string in a different Sub

for exemple

Call Planes

Sub Planes
Dim point1, point2, point3, point4, Plane1

point1 = rhino.addpoint(0,0,0)
point2 = rhino.addpoint(10,10,0)
point3 = rhino.addpoint(-10,-10,0)
point4 = rhino.addpoint(-10,10,0)

plane1 = rhino.addsurface(point1, point2, point3, poin4)
End Sub

Call section

sub section
dim Plane1

How do I call the Plane1??
endsub

thanks everyone
will help me alot organize this script which is all in 1 Sub :slight_smile:

Hello- instead of making the plane in a sub, make it a function that returns the plane as its result:

Function MakePlane()
blah blah
MakePlane = rhino.addsurface(point1, point2, point3, poin4)

End Function

Sub Section

dim Plane1: Plane1 = MakePlane()

end sub

-Pascal

Nice, thanks.

Can I make more then 1 plane per function? how do I then call a specific plane then?
Or is just better to do 1 plane per function?

You can make an array of planes and then access the array by index.

So, your function would build up an array

Function MakePlanes(Num)
dim i, arrPlanes
redim arrPlanes(num-1)

for i = 0 to num-1

blah blah

arrPlanes(i) = rhino.addsurface(point1, point2, point3, poin4)

Next

MakePlanes= arrPlanes
End Function

Sub Section
dim aPlanes: aPlanes = MakePlanes(5)

dim Plane1: Plane1 = aPlanes(0)
dim Plane2: Plane2 = aPlanes(1)
etc etc

End Sub

-Pascal

Cool, I see

Will give it a go, thanks so much for your help.
As always you guys kick ass!!! :slight_smile: