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

xcl0_0 · 发表于 2006-10-20 13:55

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

霹雳啪啦啦 · 发表于 2006-10-21 15:45

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

zdfwyh · 发表于 2006-10-23 13:54

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 · 发表于 2006-10-24 10:30

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

bjbjbjbj · 发表于 2006-12-1 12:19

谢谢了。搞定了

adison · 发表于 2006-12-16 12:39

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

bjbjbjbj · 发表于 2006-12-22 19:17

建议看下物体属性

mccad · 发表于 2006-12-22 20:03

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

剧毒噬骨 · 发表于 2013-1-1 12:34

明经里面都是高手呀

东山V · 发表于 2013-11-1 15:12

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

账号		自动登录	找回密码
密码			注册

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

本帖被以下淘专辑推荐: