I am trying to make a script that returns a singular column from a 2 dimensional array, which would be used as data to draw various things in Rhino. However, I always encounter an error when attempting to do this, and I cannot seem to figure out what is wrong with my code. I have my current function reproduced below:
Function ReturnColumn(ByVal col, ByVal array)
Dim colsize, i colsize = UBound(array, 1) ReDim vector(colsize) For i = 0 To colsize vector(i) = array(i, col) Next ReturnColumn = vector
This should be a very simple function but for some reason I cannot get it to work. Any help is appreciated, thanks!