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

暖暖阳光 · 发表于 2008-1-28 13:02:00

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

wallace.lee · 发表于 2008-1-28 15:50:00

  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

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

发表回复

精选推荐