块中有个tag,可否根据tag取得value？

暖暖阳光

 我们知道块中有个tag，比如tag有“设计人”，“设计日期”，“设计单位”，我现在只想提取tag="设计人"的value

如何实现　呢

wallace.lee

  Set blockRefObj = 布局名称.Item(块编号)

        varAttributes = blockRefObj.GetAttributes  ‘获得属性集
       
        For tempi = 0 To UBound(varAttributes)
       
                Select Case (Trim(varAttributes(tempi).TagString))   '查找tag名称

                        Case "设计人":
                            .....
                            
                        Case 设计单位":
                            .....

                End Select
           
        Next tempi
       
        Set blockRefObj = Nothing