求教一个关于VBA编程提取属性块里头的数值的问题

hollgod

我的材料表是用属性做的块
计算材料的重量时很麻烦，我想利用程序实现（偷懒^_^）对材料规格的计算，得出单重，并将单重与数量相乘得到总重
问题：如何从属性块里头提取其中的一个属性并取值或附值
请教各位大侠
谢谢

efan2000

blockRefObj.HasAttributes可以判断块引用对象中是否包含属性。

2. 
   
3. Sub test()
   
4.     ' 获取块引用对象的属性集合
   
5.     Dim varAttributes As Variant
   
6.     varAttributes = blockRefObj.GetAttributes
   
7.    
   
8.     ' 枚举集合，根据属性的标签得到其值或者对象
   
9.     Dim strAttributes1 As String
   
10.     Dim strAttributes2 As String
    
11.     Dim objAttributes As AcadAttributeReference
    
12.     Dim I As Integer
    
13.     For I = LBound(varAttributes) To UBound(varAttributes)
    
14.         If varAttributes(I).TagString = "单重" Then
    
15.             strAttributes1 = varAttributes(I).TextString
    
16.         ElseIf varAttributes(I).TagString = "数量" Then
    
17.             strAttributes2 = varAttributes(I).TextString
    
18.         ElseIf varAttributes(I).TagString = "总重" Then
    
19.             Set objAttributes = varAttributes(I)
    
20.         End If
    
21.     Next
    
22.    
    
23.     ' 判断属性值是否是数字，如果是的话相乘并赋值
    
24.     If IsNumeric(strAttributes1) And IsNumeric(strAttributes2) Then
    
25.         objAttributes.TextString = strAttributes1 * strAttributes2
    
26.     End If
    
27.    
    
28.     ' 更新块
    
29.     blockRefObj.Update
    
30. End Sub
    

<br /> Sub test()<br />     ' 获取块引用对象的属性集合<br />     Dim varAttributes As Variant<br />     varAttributes = blockRefObj.GetAttributes<br />     <br />     ' 枚举集合，根据属性的标签得到其值或者对象<br />     Dim strAttributes1 As String<br />     Dim strAttributes2 As String<br />     Dim objAttributes As AcadAttributeReference<br />     Dim I As Integer<br />     For I = LBound(varAttributes) To UBound(varAttributes)<br />         If varAttributes(I).TagString = "单重" Then<br />             strAttributes1 = varAttributes(I).TextString<br />         ElseIf varAttributes(I).TagString = "数量" Then<br />             strAttributes2 = varAttributes(I).TextString<br />         ElseIf varAttributes(I).TagString = "总重" Then<br />             Set objAttributes = varAttributes(I)<br />         End If<br />     Next<br />     <br />     ' 判断属性值是否是数字，如果是的话相乘并赋值<br />     If IsNumeric(strAttributes1) And IsNumeric(strAttributes2) Then<br />         objAttributes.TextString = strAttributes1 * strAttributes2<br />     End If<br />     <br />     ' 更新块<br />     blockRefObj.Update<br /> End Sub<br />

hollgod

Thanks! You are very kind!