Get the quantity using ILogic code

[FINET_Laurent]

Morning everyone.

I whould like to know if it is possible to get the quantity of a part and set this quantity as a double using ilogic in an assembly. (not a custom iproperty)

I'm talking about the part quantity shown in the default BOM. 😥

Thanks and best regards,

FINET L.

[JhoelForshav]

Hi @FINET_Laurent 

Try this:

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim oBOM As BOM = oAsm.ComponentDefinition.BOM
Dim oBomView As BOMView = oBOM.BOMViews(1)
Dim oBomRows As BOMRowsEnumerator = oBomView.BOMRows
Dim oBomRow As BOMRow
Dim oDef As ComponentDefinition

For Each oBomRow In oBomRows
	Try
		If oBomRow.ComponentDefinitions(1).Document.PropertySets.Item("Design Tracking Properties").Item("Part Number").Value = "Part number here"
			oBomRow.TotalQuantity = 80 'Quantity
		End If
	Catch
	End Try
Next

Just fill in your parts part number and the quantity you want.

[Daan_M]

Hi, 

You can try something like this

iLogicVb.UpdateWhenDone = True

Dim PartQuantity As Double = 0
Dim test As String


Dim oAsm As AssemblyDocument = ThisDoc.Document
For Each oRefDoc As Document In oAsm.AllReferencedDocuments
	If oRefDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject AndAlso _
		oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oRefDoc).Count > 0 AndAlso
		oRefDoc.DisplayName = "Part or member name of part document"
		PartQuantity = PartQuantity + 1
		On Error Resume Next
	End If
	Next
	
	MsgBox(PartQuantity) 'do something with the quantity here

[JhoelForshav]

Oh I get it now I think... You just want to store the value in a double? Since it's not a decimal value, I'd suggest an Integer instead.

Just count the referenced occurrences of the part in the assembly:

Dim oAsm = ThisDoc.Document
Dim oPartOcc As ComponentOccurrence = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, "Pick part")
Dim oPart As PartDocument = oPartOcc.Definition.Document
Dim oQty As Integer = oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oPart).Count

MsgBox(oQty)

[FINET_Laurent]

First of all thank you, it works perfectly as intended but I have an other question.

Is it possible to target the part name using a string (part1.ipt)  instead of clicking the actual part.

Thanks and have a nice day,

FINET L.

[JhoelForshav · Accepted solution]

@FINET_Laurent 

Something like this maybe? 🙂

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim partName As String = "Part1.ipt"
Dim oQty As Integer = 0
For Each oRefDoc As Document In oAsm.AllReferencedDocuments
If oRefDoc.FullFileName.EndsWith(partName)
oQty = oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oRefDoc).Count
Exit For
End If
Next
MsgBox(oQty)

Or if you rather use displayname (no file extension)

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim partName As String = "Part1"
Dim oQty As Integer = 0
For Each oRefDoc As Document In oAsm.AllReferencedDocuments
If oRefDoc.DisplayName = partName
oQty = oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oRefDoc).Count
Exit For
End If
Next
MsgBox(oQty)

[FINET_Laurent]

This is exactly what I needed !

Thank you for sharing knowledge ! 🙂

Have a nice day,

FINET L.