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

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

我们知道块中有个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
页: [1]
查看完整版本: 块中有个tag,可否根据tag取得value？