Declaring and Assigning Input VBScript

Hi guys,

I'm working on an L-system script.

Currently I have a Point from Rhino which inputs into the VB component,

I have a Function procedure in the coding in which I'd like to use the Point input to calculate distance between the Point and start points of curves generated by the script.

I've declared "P" as New3dPoint, however I dont think it stores the Point from the input,

Does anyone knows the syntax for assigning the input Point to "P"?

help would be greatly appreciated, thanks in advance.

Replies to This Discussion

Permalink Reply by Benjamin Golder on October 26, 2010 at 9:39pm

I'm pretty sure it would be this:
dim pt as On3dPoint = P
(assuming your input point is named "P")

But you might be able to just delete the declaration, since you can already use the variable "P" to access the input point. It should be assigned automatically.

Permalink Reply by Irving Thien on October 26, 2010 at 11:44pm

I've given them a try, but the input doesn't seem to be able to be accessed from Function procedure,

My script has a RUNSCRIPT component, which uses the FUNCTION procedure to evaluate the curves.
I've found out that the inputs can only be assessed directly from in RUNSCRIPT,(already assigned automatically and does not need declaration), but FUNCTION does not store the input, is there any possible way of getting the inputs into the function procedure???

Permalink Reply by Benjamin Golder on October 27, 2010 at 12:02am

If you upload your script, I'll take a look at it.

Permalink Reply by Irving Thien on October 27, 2010 at 4:50pm

thanks benjamin

Attachments:

VB.3dm, 53 KB
VBupl.ghx, 113 KB

Permalink Reply by Benjamin Golder on October 27, 2010 at 5:15pm

It seems like you just need to pass a point variable into your functions.
Currently, the functions already receive many arguments.
you just need to add one.
In the first line of the function, where it says:
Function addCurves(ByRef LIST As dataTree(Of onCurve), ... , ... )
you need to add a way to pass the variable into the function:
Function addCurves(ByRef Pt As On3dPoint, ByRef LIST As ... , ... )
then you can use Pt (or any other variable name you put there) inside of your function.

Back in the "RunScript" function, you then need to pass the point into the function when you call it:
addCurves(P, crvTree, aCrv, count, i, j, k, typeTree, 0)

I think this should solve your problem.

Permalink Reply by Irving Thien on October 28, 2010 at 8:03pm

Hey it works. Thanks,

RSS