Copying Item QTY from Assembly BOM to a Part custom iproperties

[spanky]

Is there a way to use iLogic to copy a value from the assembly BOM 'Item QTY', and paste it to each part in the assembly as a custom iproperty?

[spanky]

Is there a way to use iLogic to copy a value from the assembly BOM 'Item QTY', and paste it to each part in the assembly as a custom iproperty?

[A.Acheson · Accepted solution]

By looping through the BomView object ad each Bom Row you can achieve this. 

Dim assyDoc As AssemblyDocument = ThisDoc.Document
Dim bom As BOM = assyDoc.ComponentDefinition.BOM

bom.PartsOnlyViewEnabled = True

Dim bView As BOMView = bom.BOMViews.Item("Parts Only")

For Each bRow As BOMRow In bView.BOMRows

	If bRow.ComponentDefinitions.Count > 1
		'MessageBox.Show("duplicate part #'s")
		Continue For
	End If

	Dim partDoc As PartDocument = bRow.ComponentDefinitions(1).Document
	
	If Not partDoc.IsModifiable Then Continue For

	' ilogic iProperty Method.
	Try
		Dim componentName As String = IO.Path.GetFileName(partDoc.FullFileName)
		iProperties.Value(componentName,"Custom", "TOTAL QTY") = bRow.ItemQuantity
	Catch
	End Try
	
'	' API PropertySets Method.
'	Dim totalQty As Inventor.Property
'	Try
'		totalQty = partDoc.PropertySets.Item(4).Item("TOTAL QTY") 
'		totalQty.Value = bRow.ItemQuantity
'	Catch
'		totalQty = partDoc.PropertySets.Item(4).Add(bRow.ItemQuantity,"TOTAL QTY")
'	End Try

Next

[A.Acheson · Accepted solution]

By looping through the BomView object ad each Bom Row you can achieve this. 

Dim assyDoc As AssemblyDocument = ThisDoc.Document
Dim bom As BOM = assyDoc.ComponentDefinition.BOM

bom.PartsOnlyViewEnabled = True

Dim bView As BOMView = bom.BOMViews.Item("Parts Only")

For Each bRow As BOMRow In bView.BOMRows

	If bRow.ComponentDefinitions.Count > 1
		'MessageBox.Show("duplicate part #'s")
		Continue For
	End If

	Dim partDoc As PartDocument = bRow.ComponentDefinitions(1).Document
	
	If Not partDoc.IsModifiable Then Continue For

	' ilogic iProperty Method.
	Try
		Dim componentName As String = IO.Path.GetFileName(partDoc.FullFileName)
		iProperties.Value(componentName,"Custom", "TOTAL QTY") = bRow.ItemQuantity
	Catch
	End Try
	
'	' API PropertySets Method.
'	Dim totalQty As Inventor.Property
'	Try
'		totalQty = partDoc.PropertySets.Item(4).Item("TOTAL QTY") 
'		totalQty.Value = bRow.ItemQuantity
'	Catch
'		totalQty = partDoc.PropertySets.Item(4).Add(bRow.ItemQuantity,"TOTAL QTY")
'	End Try

Next

[spanky]

Any ideas? @A.Acheson 

It gives me an error in Line 15.

[spanky]

Any ideas? @A.Acheson 

It gives me an error in Line 15.

[Curtis_Waguespack · Accepted solution]

Hi @spanky 

It likely just tripped over a subassembly in your BOM

I think you can just change line 15 

from this:

Dim partDoc As PartDocument = bRow.ComponentDefinitions(1).Document

to this:

Dim partDoc As Document = bRow.ComponentDefinitions(1).Document

[Curtis_Waguespack · Accepted solution]

Hi @spanky 

It likely just tripped over a subassembly in your BOM

I think you can just change line 15 

from this:

Dim partDoc As PartDocument = bRow.ComponentDefinitions(1).Document

to this:

Dim partDoc As Document = bRow.ComponentDefinitions(1).Document

[GosponZ]

Try this one run in assembly.

doc = ThisDoc.Document
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
Dim oBOM As BOM = oAssyDef.BOM

oBOM.PartsOnlyViewEnabled = True

Dim oBOMView As BOMView = oBOM.BOMViews.Item("Parts Only")

Dim oBOMRow As BOMRow

For Each oBOMRow In oBOMView.BOMRows
    'Set a reference to the primary ComponentDefinition of the row
    Dim oCompDef As ComponentDefinition
    oCompDef = oBOMRow.ComponentDefinitions.Item(1)
    
    Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
    Dim CompFileNameOnly As String
    Dim index As Integer = CompFullDocumentName.LastIndexOf("\")
    
    CompFileNameOnly = CompFullDocumentName.Substring(index+1)
    
    'MessageBox.Show(CompFileNameOnly)
    
    Dim Qty As String
    Qty = oBOMRow.TotalQuantity
    
    iProperties.Value(CompFileNameOnly, "Custom", "PartQty") = Qty
Next

[GosponZ]

Try this one run in assembly.

doc = ThisDoc.Document
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
Dim oBOM As BOM = oAssyDef.BOM

oBOM.PartsOnlyViewEnabled = True

Dim oBOMView As BOMView = oBOM.BOMViews.Item("Parts Only")

Dim oBOMRow As BOMRow

For Each oBOMRow In oBOMView.BOMRows
    'Set a reference to the primary ComponentDefinition of the row
    Dim oCompDef As ComponentDefinition
    oCompDef = oBOMRow.ComponentDefinitions.Item(1)
    
    Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
    Dim CompFileNameOnly As String
    Dim index As Integer = CompFullDocumentName.LastIndexOf("\")
    
    CompFileNameOnly = CompFullDocumentName.Substring(index+1)
    
    'MessageBox.Show(CompFileNameOnly)
    
    Dim Qty As String
    Qty = oBOMRow.TotalQuantity
    
    iProperties.Value(CompFileNameOnly, "Custom", "PartQty") = Qty
Next

[A.Acheson]

Cheers Curtis,

I hadn't allowed for assemblies being inseparable and being in there which is why it tripped up on the part document declaration. The generic document declaration will allow both part documents and assembly document processing. 

[A.Acheson]

Cheers Curtis,

I hadn't allowed for assemblies being inseparable and being in there which is why it tripped up on the part document declaration. The generic document declaration will allow both part documents and assembly document processing. 

[spanky]

Thank you!

[spanky]

Thank you!

[spanky]

This one worked also, but seems to have pulled the standard QTY data, versus the Item QTY. But thank you for the help also!

[spanky]

This one worked also, but seems to have pulled the standard QTY data, versus the Item QTY. But thank you for the help also!