jmy003 发表于 2015-6-28 11:13:52

新人小白发帖求助

我现在遇到这样一个问题：想从块中读出属性，但是下面的代码总是出现错误“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 发表于 2015-7-11 08:29:16

已经解决了。
页: [1]
查看完整版本: 新人小白发帖求助