Export material list to personalized excel file

[Anonymous]

Hi,

I need to export a material list to a personalized excel file, how I can do it?.

Thanks

Iñigo

[b_sharanraj]

Try this iLogic Code once 🙂

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
    
Dim Material As Material

ExcelFile = "C:\Users\XYZ\AppData\Local\Temp\Material_List.xlsx"

ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = True

ExcelApp.DisplayAlerts = False

ExcelWorkbook = ExcelApp.Workbooks.Open(ExcelFile)
ExcelSheet = ExcelWorkbook.Worksheets(1)

Count = 1
With ExcelApp
For Each Material In oPartDoc.Materials    .Range("A" & Count).Select    .ActiveCell.FormulaR1C1 = Material.Name
    Count = Count + 1
Next
End With   

ExcelApp.Columns.AutoFit   
ExcelWorkbook.SaveAs (ExcelFile)

ExcelWorkbook.Close
ExcelApp.Quit
ExcelApp = Nothing 

[Anonymous]

Hi,

That error ocurred:

System.InvalidCastException: No se puede convertir el objeto COM del tipo 'Inventor._DocumentClass' al tipo de interfaz 'Inventor.PartDocument'. Ocurrió un error de operación debido a que la llamada QueryInterface en el componente COM para la interfaz con IID '{29F0D463-C114-11D2-B77F-0060B0F159EF}' generó el siguiente error: Interfaz no compatible (Excepción de HRESULT: 0x80004002 (E_NOINTERFACE)).
en LmiRuleScript.Main()
en Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
en iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

We have inventor 2018

Thanks

---

[MechMachineMan]

If ThisApplication.ActiveDocument.DocumentType <> 12290 Then
    MsgBox("This rule is only valid for Part Documents")
    Exit Sub
End if

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
    
Dim Material As Material

ExcelFile = "C:\Users\XYZ\AppData\Local\Temp\Material_List.xlsx"

ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = True

ExcelApp.DisplayAlerts = False

ExcelWorkbook = ExcelApp.Workbooks.Open(ExcelFile)
ExcelSheet = ExcelWorkbook.Worksheets(1)

Count = 1
With ExcelApp
For Each Material In oPartDoc.Materials
    .Range("A" & Count).Select
    .ActiveCell.FormulaR1C1 = Material.Name
    Count = Count + 1
Next
End With   

ExcelApp.Columns.AutoFit   
ExcelWorkbook.SaveAs (ExcelFile)

ExcelWorkbook.Close
ExcelApp.Quit
ExcelApp = Nothing 

BUT I assume by material list you don't mean "material" as in what you select in Inventor, but instead a field that describes the material used for the part (Ie; HSS 2 X 2 X .25W) which highlights the importance of not withholding information and being clear about your requirements.

[Anonymous]

Hi,

My assembly when is finished i make a drawing with it and then i put in a material list with all parts, then i make the same material list in an excel file but with personalized excel file. So I want to export the Inventors material list to that excel file. Is complicated to do it?

Thanks

[Anonymous]

Material list = Part list

[b_sharanraj]

Do you need to Export the Applied Material of Each Part from the Assembly?

[Anonymous]

A part list with quantities

Thanks

[MechMachineMan]

Hi,

Place the desired parts list in a drawing. Edit PartsList. Export Parts List. Select desired template. Done.