topic Re: Get the quantity using ILogic code in Inventor Programming Forum

Get the quantity using ILogic code

FINET_Laurent — Thu, 03 Sep 2020 09:31:33 GMT

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.

Re: Get the quantity using ILogic code

JhoelForshav — Thu, 03 Sep 2020 09:51:37 GMT

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.

Re: Get the quantity using ILogic code

Daan_M — Thu, 03 Sep 2020 10:06:41 GMT

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

Re: Get the quantity using ILogic code

JhoelForshav — Thu, 03 Sep 2020 11:05:07 GMT

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)

Re: Get the quantity using ILogic code

FINET_Laurent — Mon, 07 Sep 2020 10:13:18 GMT

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.

Re: Get the quantity using ILogic code

JhoelForshav — Mon, 07 Sep 2020 10:39:09 GMT

@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)

Re: Get the quantity using ILogic code

FINET_Laurent — Mon, 07 Sep 2020 10:40:39 GMT

This is exactly what I needed !

Thank you for sharing knowledge ! 🙂

Have a nice day,

FINET L.