一个关于块属性的问题

bdwdxzh

我有一个有关块的属性的问题，我做了一个块，并在做块的时候对它定义了标签，然后在VBA中用
Set attriobject = blockobject.AddAttribute(attheight, attmode, attprompt(i), attinspoint, atttag(i), attvalue(i))‘
对其赋属性，attvalue的值是有的，至于atttag，已经定义了标签是不是就不用定义了吧？
然后插入块，这时候查看块属性的时候是空值。
不知道这种块的属性要怎么赋？
帮帮忙吧，我不是很懂！

bdwdxzh

可不可以不用选择图元？
ThisDrawing.Utility.GetEntity blkRefObj, pickPnt
直接默认就是对刚刚插入的那个块赋值？

bdwdxzh

bdwdxzh

mccad

Public Sub SetAttribute()
    Dim pickPnt As Variant
    Dim blkRefObj As AcadBlockReference
     
    '选择图元,此段你可以直接将blkRefObj设为你刚插入的块
    ThisDrawing.Utility.GetEntity blkRefObj, pickPnt

    '判断该块引用是否含有属性值
    If Not blkRefObj.HasAttributes Then
        MsgBox "你选择的图块没有块属性，程序将退出！"
        '如果不含由属性值退出
        Exit Sub
    End If
     
    Dim attVars As Variant
    Dim I As Integer
     
    '获取块引用中的块属性对象
    attVars = blkRefObj.GetAttributes
    '对块属性对象进行遍历
    For I = 0 To UBound(attVars)

    '将块属性的值进行修改
    If attVars(I)="mccad" Then
        attVars(I).TextString = "明经通道"
    End If  
    Next

    ThisDrawing.Regen True
     
End Sub

mccad