mikewolf2k 发表于 2010-12-16 14:48:50

修改块中文字及块属性

需要修改图中所有块内的文字和块属性的大小，经过一番研究，结果如下，请大家指点：
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 发表于 2010-12-16 18:57:42

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

jicqj 发表于 2010-12-16 19:14:51

好贴 收藏了

yanyanjun999 发表于 2010-12-26 14:43:12

看看，学习了，加油

fwsw1986 发表于 2011-1-27 22:17:45

学习学习，谢谢楼主
页: [1]
查看完整版本: 修改块中文字及块属性