bdwdxzh 发表于 2002-9-27 09:19:00

一个关于块属性的问题

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

bdwdxzh 发表于 2002-9-29 10:21:00

可不可以不用选择图元？

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

bdwdxzh 发表于 2002-9-28 11:28:00

o

bdwdxzh 发表于 2002-9-28 11:29:00

怎么没有人回答我的问题阿？

mccad 发表于 2002-9-28 19:56:00

可以设置图块中的块属性值，如内

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 发表于 2002-9-29 19:06:00

可以，把blkRefObj替换为你刚插入的块对象就行

页: [1]
查看完整版本: 一个关于块属性的问题