lyf111 发表于 2015-8-4 10:19:35

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

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 发表于 2015-8-4 10:25:17

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

lyf111 发表于 2015-8-4 14:53:23

没人回算了。我就把图中的块参照全删了。然后在CAD里用块编辑加入属性那一项，然后重新插入块吧。
页: [1]
查看完整版本: 怎么给图中的块参照添加属性