Add Custom iproperty columns with ilogic ?

[Darkforce_the_ilogic_guy]

is there a way to add  Custom iProperty columns  with Ilogic ? If not is that a good way to update all our old files to a news standard setup ?

sdf

[Andrii_Humeniuk]

Hi @Darkforce_the_ilogic_guy .With the ExportBOMCustomization and ImportBOMCustomization methods, you can first save your BOM table settings to an XML file and then import those settings to all your assemblies.

[Darkforce_the_ilogic_guy]

how would i do that with ilogic ?

[m_baczewski]

Hello, 

At the beginning, it is necessary to remember to manually edit the table and then export it to a specific location. 

 

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

Dim oBom As BOM
oBom = oDoc.ComponentDefinition.BOM

oBom.ImportBOMCustomization("Your .xml BOM customization path") ' C:\Users\YOU\Desktop\BOMcustomization.xml

InventorVb.DocumentUpdate()

 

[Andrii_Humeniuk]

Example of exporting settings:

Dim oDoc As Document = ThisDoc.Document
If oDoc.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Exit Sub
Dim oADoc As AssemblyDocument = oDoc
Dim oBOM As BOM = oADoc.ComponentDefinition.BOM
Dim sPathFile As String = "D:\BOM.xml"
oBOM.ExportBOMCustomization(sPathFile)

Example of importing settings:

Dim oDoc As Document = ThisDoc.Document
If oDoc.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Exit Sub
Dim oADoc As AssemblyDocument = oDoc
Dim oBOM As BOM = oADoc.ComponentDefinition.BOM
Dim sPathFile As String = "D:\BOM.xml"
oBOM.ImportBOMCustomization(sPathFile)

Line 5 is the path to the .xml file.

If you need to update the BOM table in sub-assemblies, you can use the For each statement, here is an example:

Dim oDoc As Document = ThisDoc.Document
If oDoc.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Exit Sub
Dim oADoc As AssemblyDocument = oDoc
Dim sPathFile As String = "D:\BOM.xml"
For Each oRefDoc As Document In oADoc.AllReferencedDocuments
	If oRefDoc.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Continue For
	If Not oRefDoc.IsModifiable Then Continue For
	Dim oBOM As BOM = oRefDoc.ComponentDefinition.BOM
	Try : oBOM.ImportBOMCustomization(sPathFile) : Catch : End Try
Next