如何得到选定的一个块的属性值

xinlin

比如我有一个块，块有一个“编号”的属性，我想实现：点击这个块，得到这个块的“编号”的值。

王咣生

GetAttributes 方法,查一下帮助,有完整的例子, ... Dim varAttributes As Variant
varAttributes = blockRefObj.GetAttributes

' Move the attribute tags and values into a string to be displayed in a Msgbox
Dim strAttributes As String
Dim I As Integer
For I = LBound(varAttributes) To UBound(varAttributes)
strAttributes = strAttributes & " Tag: " & varAttributes(I).TagString & _
" Value: " & varAttributes(I).textString & " "
Next
...