Sub ttw() Dim objDbx As AxDbDocument Dim i As AcadEntity Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument") objDbx.Open "c:\1.dwg" For Each i In objDbx.ModelSpace If i.ObjectName = "AcDbBlockReference" Then If i.HasAttributes Then For Each j In i.GetAttributes MsgBox j.TextString Next j End If End If Next i End Sub