修改块中文字及块属性

mikewolf2k

需要修改图中所有块内的文字和块属性的大小，经过一番研究，结果如下，请大家指点：
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）么？

sxpd

块定义里保存的是属性定义
块参照里保存的是属性参照
这两者实质上没有很严格的对应关系
所以也只有按你的方法遍历

jicqj

好贴 收藏了

yanyanjun999

看看，学习了，加油

fwsw1986

学习学习，谢谢楼主