Question

我正在尝试制作一个脚本，该脚本从二维数组中返回一个单数列，该数组将用作在Rhino中绘制各种内容的数据。但是，我在尝试这样做时总是遇到错误，而且我似乎无法弄清楚我的代码有什么问题。我现在的功能转载如下：

PATH

这应该是一个非常简单的功能，但由于某种原因我不能让它工作。感谢任何帮助，谢谢！

Answer 1

我认为你需要在重新定义之前用Dim声明你的数组变量。此外，array作为变量名称可能会导致问题，因为它是保留关键字。使用例如matrix：

Function ReturnColumn(ByVal col, ByVal matrix)
  ' Declare variables
  Dim colsize As Integer
  Dim i As Integer
  Dim vector() As Integer

  ' Redimension the array to the size of the column
  colsize = UBound(matrix, 1)
  ReDim vector(colsize)

  ' Fill the array
  For i = 0 To colsize
    vector(i) = matrix(i, col)  
  Next

  ' Return the array
  ReturnColumn = vector
End Function

documentation说（强调我的）：

ReDim语句用于使用Private，Public或{{1来调整已正式声明的动态数组的大小或调整大小带有空括号的语句（没有维度下标）。

从2D阵列返回单个列？

1 个答案: