需要修改图中所有块内的文字和块属性的大小，经过一番研究，结果如下，请大家指点：
1. 对于块内的文字，只需要修改一次就可以更新所有的同名块了。主要代码如下：
Set BlockObj = ThisDrawing.Blocks(SsetObj.Item(I).Name)
For Each AcadObj In BlockObj
Select Case AcadObj.ObjectName
Case "AcDbText", "AcDbMText"
AcadObj.Height = 2.5
Case "AcDbAttributeDefinition"
AcadObj.Height = 2.5
Case Else
End Select
Next
这样之后，重新插入的“源”块就被修改了，新插入的块文字和属性都是2.5高。
2. 对于已经放好的块，文字部分可以由于上一步的“源”块被修改的原因自动更新，但是块属性部分不能更新，还得遍历块属性去修改。主要代码如下：
If SsetObj.Item(I).HasAttributes Then
varAttributes = SsetObj.Item(I).GetAttributes
For J = LBound(varAttributes) To UBound(varAttributes)
varAttributes(J).Height = 2.5
Next J
End If
不知道有没有更好的算法。不能直接赋值某个块给acadblockrefence，然后对其进行操作么？步骤1中的遍历块中元素，似乎只能对acadblock（即“源”块）进行操作，不能遍历已经画好了的块（acadblockrefence）么？
置顶卡
