怎么给图中的块参照添加属性

lyf111

Dim entObj As AcadEntity
Dim blkRefObj As AcadBlockReference
'选择图元
    ThisDrawing.Utility.GetEntity entObj, pickPnt
    '判断是否为块引用
    If StrComp(entObj.ObjectName, "AcDbBlockReference", 1) <> 0 Then
        Exit Sub   
    End If
'如果选择的是块引用，将其赋给块引用对象
    Set blkRefObj = entObj
    '判断该块引用是否含有属性值
    If Not blkRefObj.HasAttributes Then
        '如果不含有属性值，该怎么给这个blkRefObj添加属性   
    End If

lyf111

这个问题困扰我好久了。在block里添加属性，或者在CAD里进行块编辑，只是对以后新添加的块参照增加了属性，而原来已经存在的块参照还是没有属性。难道只能删除旧的，重新在图中插入块？

lyf111

没人回算了。我就把图中的块参照全删了。然后在CAD里用块编辑加入属性那一项，然后重新插入块吧。