关于一个块中有多个属性文字，如何返回选择的那个

xcl0_0

求助：一个块中有多个属性文字，在选取后返回的是整个块，我要返回（修改），我选中的那个属性值，请知道的赐教！

霹雳啪啦啦

这个我开发过。用GetSubEntity方法，可以直接选择到单个属性

zdfwyh

Private Sub SetAtt()
Dim obj As AcadBlockReference
Dim varAttributes As Variant

    Set obj = ......

    varAttributes = obj.GetAttributes
    
    Dim strAttributes As String
    Dim i As Integer
    For i = LBound(varAttributes) To UBound(varAttributes)
        If UCase(varAttributes(i).TagString) = "模块代号01" Then varAttributes(i).TextString ="A"

        If UCase(varAttributes(i).TagString) = "模块代号02" Then varAttributes(i).TextString = "B"
        If UCase(varAttributes(i).TagString) = "模块代号03" Then varAttributes(i).TextString = "C"

     next i

end sub

xcl0_0

用GetSubEntity方法，我搞定了，谢谢！

bjbjbjbj

谢谢了。搞定了

adison

用GetSubEntity方法是可以返回属性值，但不知道如何同时获得该属性所在块的名称？

bjbjbjbj

建议看下物体属性

mccad

GetSubEntity方法带有ContextData参数，用于返回所有嵌套对象的ID，通过它可以得到属性块等信息。

剧毒噬骨

明经里面都是高手呀

东山V

想做一个获取图栏文字的小软件,能用这个方法实现吗