[求助] 如何获得属性块的属性并修改某个值？

home

Public Sub Add_Block1()

Dim dblStart(0 To 2) As Double  '插入点
Dim objBlkDef As AcadBlock
Dim objBlkRef As AcadBlockReference
Dim objBlock As AcadBlock

Dim ent As AcadEntity
For Each ent In ThisDrawing.ModelSpace
    If ent.Name = "Block1" Then                                               '找到指定的块
        Set objBlkRef = ent
    End If
Next

'objBlkDef 如何转换为objBlkRef呢？

Dim varAttributes As Variant
varAttributes = objBlkRef.GetAttributes
varAttributes(0).TextString = "成功了"                       '修改第一个属性值？

End Sub

szuki

哦，我搞错了，本想通过改一个块的属性，达到改掉所有的图中的同名块的目的，但是忘了这是个属性块，每个可以有各自的值。

我目的就是为了每次根据“订单号码”，达到每个图框自动显示这个值的功能，有好几个layout都要自动改，所以想到了用图块，但是现在更迷茫了。