[求助]：在vba中怎样把图中属性块的各属性值读出

njyulei

在vba中怎样把图中属性块的各属性值读出,并把每个块的坐标和各属性值在图中标注

njyulei

没有高手能帮小弟的忙吗？

yunzhong80

Sub TEST()
Dim BRE As AcadBlockReference
Dim obj As AcadEntity
ThisDrawing.Utility.GetEntity obj, v, vbCrLf & "选择块对象："
If obj.ObjectName = "AcDbBlockReference" Then
Set BRE = obj
Dim S As Variant
Dim str As String
str = BRE.Name + "的属性值："
Dim i As Integer
S = BRE.GetAttributes
  For i = LBound(S) To UBound(S)
          str = str + vbCrLf + S(i).TagString
          str = str + ":" + S(i).TextString
   Next
   MsgBox str
End If
End Sub

njyulei

高手能把上面附件中的各块属性全部读出，并在图中标出各块属性和各块的插入坐标吗？