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

gaobin888 · 发表于 2005-12-8 18:09:00

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

王咣生 · 发表于 2005-12-8 19:40:00

块的参数指什么,
可以用variant数组作为返回值

gaobin888 · 发表于 2005-12-9 07:41:00

描述有误，应该是块属性；
用variant试过，函数如下：
Public Function kuai(BlkName As String) As Variant
ReDim kuaisx(0 To 2, 0 To 0)
。。。
kuai = kuaisx 'kuaisx为存储块属性的二维数组

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

王咣生 · 发表于 2005-12-9 17:53:00

属性你怎么读的?不用二维数组也可以啊
' 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 · 发表于 2005-12-10 16:38:00

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

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

发表回复

精选推荐