[VBA程序]：怎么更改块里面的属性

风雪大侠

现在这个过程可以更改块中的文字对象,可就是块中的属性里的文字更改不了,
为什么图形中单个的属性用下面的代码都可以更改,就是块里面的属性用下面的代码更改了之后没有反应?
请大虾指点一下吧!

Public Sub BlockEdit() '更改图形中的所有块对象
    Dim elem As Object
    For Each elem In Cad.Documents(0).Blocks  '遍历所有的块
        If elem.Name <> "*Model_Space" And elem.Name <> "*Paper_Space" Then
            Dim BlockSubObj As Object
            For Each BlockSubObj In elem '遍历块中的所有对象(会自动遍历嵌套的块中的对象)
                With BlockSubObj
                    If (.EntityName = "AcDbText") Or (.EntityName = "AcDbMText") Then .TextString = MyReplace(.TextString)
'                    If .EntityName = "AcDbAttributeDefinition" Then '更改块中的属性(现在还有问题:)
'                        .TagString = myReplace(.TagString)
'                        .TextString = myReplace(.TextString)
'                        .PromptString = myReplace(.PromptString)
'                        .Update
'                    End If
                End With
                DoEvents
                If Quit Then Exit Sub
            Next BlockSubObj
        End If
    Next elem
End Sub

秦林

最初由 风雪大侠 发布
[B]现在这个过程可以更改块中的文字对象,可就是块中的属性里的文字更改不了,
为什么图形中单个的属性用下面的代码都可以更改,就是块里面的属性用下面的代码更改了之后没有反应?
请大虾指点一下吧!

Public Sub Bloc... [/B]

我将你的程序试着改动一下，却不好调试，你再调试一下，我们再交流

2. 
   
3. Public Sub BlockEdit() '更改图形中的所有块对象
   
4. Dim elem As Object
   
5. Dim m As Integer, n As Integer
   
6. For m = 0 To Cad.Documents(0).Count - 1    '遍历所有的实体
   
7. Set elem = Cad.Documents(0).Item(m)
   
8.   If elem.Name <> "*Model_Space" And elem.Name <> "*Paper_Space" Then
   
9.    If (elem.ObjectName = "AcDbText") Or (elem.ObjectName = "AcDbMText") Then elem.TextString = myReplace(elem.TextString)
   
10.     If elem.ObjectName = "AcDbBlockReference" Then
    
11.      Dim AttFes As Variant
    
12.      If elem.HasAttributes Then
    
13.        AttFes = elem.GetAttributes               '返回块中的所有属性对象
    
14.       For m = LBound(AttFes) To UBound(AttFes)  '遍历块中的所有对象(会自动遍历嵌套的块中的对象)
    
15.        If elem.TextString = text1.Text Then      'text1.Text为待替换字符
    
16.        elem.TextString = myReplace(.TextString)
    
17.        End If
    
18.       Next
    
19.      End If
    
20.     End If
    
21. Next
    
22. End Sub
    

<br /> Public Sub BlockEdit() '更改图形中的所有块对象<br /> Dim elem As Object<br /> Dim m As Integer, n As Integer<br /> For m = 0 To Cad.Documents(0).Count - 1    '遍历所有的实体<br /> Set elem = Cad.Documents(0).Item(m)<br />   If elem.Name <> "*Model_Space" And elem.Name <> "*Paper_Space" Then<br />    If (elem.ObjectName = "AcDbText") Or (elem.ObjectName = "AcDbMText") Then elem.TextString = myReplace(elem.TextString)<br />     If elem.ObjectName = "AcDbBlockReference" Then<br />      Dim AttFes As Variant<br />      If elem.HasAttributes Then<br />        AttFes = elem.GetAttributes               '返回块中的所有属性对象<br />       For m = LBound(AttFes) To UBound(AttFes)  '遍历块中的所有对象(会自动遍历嵌套的块中的对象)<br />        If elem.TextString = text1.Text Then      'text1.Text为待替换字符<br />        elem.TextString = myReplace(.TextString)<br />        End If<br />       Next<br />      End If<br />     End If<br /> Next<br /> End Sub<br />

雪山飞狐(lzh)

属性和属性定义的联系不大，属性虽然以属性定义为模板生成，但生成后就和属性定义没有什么关系了

秦林

1楼楼主，代码调试得怎么样，我和你有同样的想法

风雪大侠

不好意思，我几天没上网了，现在我试一下啊。
感谢大家热心的帮助！

现在调试好了,可以更改块里面的属性了,但是又有问题了:如果块里面有嵌套的块,那怎么更改嵌套的块里面的属性啊!

Public Sub AttribEdit(x As AcadBlockReference)  '更改块中的所有属性对象
    Dim AttFes, m
    '首先更改块中第一层的所有属性
    If x.HasAttributes Then
        AttFes = x.GetAttributes '返回块中的所有属性对象
        For Each m In AttFes '遍历块中的所有属性对象
            m.TextString = MyReplace(m.TextString)
        Next
    End If
    '再检查是否有嵌套块,如有则进行递归循环
'    For Each m In x
'        If m.EntityName = "AcDbBlockReference" Then
'            Call AttribEdit(m)
'        End If
'    Next
End Sub
块参照AcDbBlockReference不允许遍历,那我怎么去改里面嵌套的块呢?

秦林

最初由 风雪大侠 发布
[B]如果块里面有嵌套的块,那怎么更改嵌套的块里面的属性啊!块参照AcDbBlockReference不允许遍历,那我怎么去改里面嵌套的块呢
[/B]

     我的思路是：先定义中间变量引用块，炸开块引用对象(用explode方法炸开)，定义中间变量引用炸开块，再同原方法进行修改

风雪大侠

我觉得还是尽量不分解的好,不然的话我一打开图纸就把所有的块全部分解,然后再进行文字替换岂不是更方便!

秦林

最初由 风雪大侠 发布
[B]我觉得还是尽量不分解的好,不然的话我一打开图纸就把所有的块全部分解,然后再进行文字替换岂不是更方便! [/B]

      这个我是知道的，对有嵌套的块只能进行先分解再进行文字替换后重新建引用块插入图中并将原来的一并删除，VBA只能如此了，不知其他大侠有何良策？

雪山飞狐(lzh)

嵌套块的属性，挺绕口的：），有什么用？或者说你会用到它么？

风雪大侠

因为我的程序是要替换CAD文件中的所有文字,如果嵌套块里的属性改不了的话,那会很失败的!(虽然一般属性只出现在第一层块里面)