[编程交流] [HELP] How to get attributes

Public Sub ChTitle_click()Dim acadOBJ As AcadObjectDim oEnt As AcadEntityDim oAtt As AcadAttributeReferenceDim varAtts As VariantDim varName As VariantDim varLayer As VariantDim varSwitchGearNo As VariantDim i, j, z As Integeri = j = 0'connect to excelDim oExcel As Excel.ApplicationDim oBook As Excel.WorkbookDim oSheet As Excel.WorksheetDim nRow As Integer'Open ExcelSet oExcel = New Excel.ApplicationoExcel.Visible = True'Set oBook = oExcel.Workbooks.Add("C:\trial.xls")  ' OptionalSet oBook = oExcel.Workbooks.Add()Set oSheet = oBook.Sheets("Sheet1")'  With oSheetoSheet.Cells(1, 1).Borders.LineStyle = xlContinuousoSheet.Cells(1, 1).Font.Bold = TrueoSheet.Cells(1, 1) = "FEEDER ID"oSheet.Cells(1, 2).Borders.LineStyle = xlContinuousoSheet.Cells(1, 2).Font.Bold = TrueoSheet.Cells(1, 2) = "SwitchGear Type"oSheet.Cells(1, 3).Borders.LineStyle = xlContinuousoSheet.Cells(1, 3).Font.Bold = TrueoSheet.Cells(1, 3) = "SwitchGear No"'Variable declarationDim nStartwriting As IntegernStartwriting = 2'For Each oEnt In ThisDrawing.ModelSpaceFor Each oEnt In ThisDrawing.ModelSpace   If TypeName(oEnt) = "IAcadBlockReference" Then       oSheet.Cells(nStartwriting, 1) = oEnt.Layer       oSheet.Cells(nStartwriting, 2) = oEnt.Name       If oEnt.HasAttributes Then           varAtts = oEnt.GetAttributes           For i = 0 To UBound(varAtts)               ReDim varSwitchGearNo(j) As Variant               oSheet.Cells(nStartwriting, 3) = varAtts(i).TextString'                varSwitchGearNo(j) = varAtts(i).TextString               j = j + 1           Next i       End If       nStartwriting = nStartwriting + 1   End IfNextCall oBook.Close(True, "C:" & "SLD" & ".xls")oExcel.DisplayAlerts = FalseoExcel.QuitEnd Sub