请教，如何返回一个数组函数

gaobin888

请教，如何通过给定图块名称，返回该块的参数的数组函数

王咣生

块的参数指什么,

可以用variant数组作为返回值

gaobin888

描述有误，应该是块属性；

用variant试过，函数如下：

Public Function kuai(BlkName As String) As Variant

   ReDim kuaisx(0 To 2, 0 To 0)

   。。。

    kuai = kuaisx         'kuaisx为存储块属性的二维数组
   
End Function

这么写对吗？该怎么引用？

王咣生

属性你怎么读的?不用二维数组也可以啊

    ' Get the attributes
    Dim newvarAttributes As Variant
    newvarAttributes = blockRefObj.GetAttributes
   
    ' Again, display the tags and values
    strAttributes = ""
    For I = LBound(varAttributes) To UBound(varAttributes)
        strAttributes = strAttributes & "  Tag: " & varAttributes(I).TagString & _
                        "   Value: " & varAttributes(I).textString & "    "
    Next

gaobin888

谢谢版主，我的问题是：块中有序号、尺寸属性，要统计所有块中的属性，属性相同的保留一个，然后按序号排序，把结果放到数组中，这一步已经做到就是不知道函数该怎么写？你的方法给我启发，我会试试?