新人小白发帖求助

jmy003

我现在遇到这样一个问题：想从块中读出属性，但是下面的代码总是出现错误“438”，对象不支持该属性或方法。难道GetAttributes这个方法对块有什么要求吗？
Public Sub readdata()
    Dim ent As Object
    Dim i As Integer
    i = 0
    For Each ent In ThisDrawing.Blocks
            MsgBox ent.Name
            i = i + 1
            Dim attributen As Variant
            Dim attribuut As AcadAttributeReference
            If i > 3 Then
                attributen = ent.GetAttributes
            End If
    Next ent
End Sub
多谢帮助！

jmy003

已经解决了。