Vb.net create virtual component and set quantity

[Anonymous]

Hi everyone,

I try to create a button to add a virtual component in an assembly and set the quantity.

I found some information but nothing that really helps me. And I need some help.

Here is what I started :

Private Sub VirtualComponents_OnExecute(Context As NameValueMap) Handles VirtualComponents.OnExecute

Dim oApplication As Inventor.Application = GetObject(, "Inventor.Application")
Dim oAssDoc As AssemblyDocument
oAssDoc = oApplication.ActiveDocument
Dim oAssDef As AssemblyComponentDefinition
oAssDef = oAssDoc.ComponentDefinition
Dim oMatrix As Matrix
oMatrix = oApplication.TransientGeometry.CreateMatrix
Dim oNewOcc As ComponentOccurrence
oNewOcc = oAssDef.Occurrences.AddVirtual("MyVirtual", oMatrix)
Dim oCVirtualCompDef As VirtualComponentDefinition
oCVirtualCompDef = oNewOcc.Definition
Dim oQuantity As Double = InputBox("Quantity")
oCVirtualCompDef.BOMQuantity.SetBaseQuantit(BOMQuantityTypeEnum.kEachBOMQuantity, oQuantity)

End Sub

Thanks

[marcin_otręba]

You must find this virtual component in bom, when you get corresponding row use row.TotalQuantity=oQuantity.

[Anonymous]

Yes, but I can not find the line corresponding to my component:

Here is what I have :

oAssDef.BOM.BOMViews.Item(1).BOMRows.Item(1).TotalQuantity = oQuantity

[marcin_otręba]

most likely it will be last row in your Bom because you just added this component right ?

Give some for each row and  if...then statement first for check if row.componentdefinitions.item is vistualcomponent then some check if name is equal to you component name.

[Anonymous]

then statement first for check if row.componentdefinitions.item is vistualcomponent then some check if name is equal to you component name.

That's what I do not know how to do !

[marcin_otręba · Accepted solution]

This code search using part number, so it must be set first when you add virtcomp: or change to what ever you want

Dim bom As Inventor.BOM = ass.ComponentDefinition.BOM
bom.StructuredViewEnabled = True
Dim bomview As Inventor.BOMView = bomm.BOMViews.Item(2)
For Each row As Inventor.BOMRow In bomview.BOMRows
Dim oCompDef As Inventor.ComponentDefinition
oCompDef = row.ComponentDefinitions.Item(1)

Dim oPartNumProperty As Inventor.Property
If TypeOf oCompDef Is Inventor.VirtualComponentDefinition Then
'Get the file property that contains the "Part Number"
'The file property is obtained from the virtual component definition
oPartNumProperty = oCompDef.PropertySets _
.Item("Design Tracking Properties").Item("Part Number")
If oPartNumProperty.Value = m_selectedItem.ItemNum Then
row.TotalQuantity = i
End If
End If
Next

[marcin_otręba]

but as i said in your scenario it will be last row because you just added your component. so if you want to change qty right away then use bomview.BOMRows.rows.item(bomview.rows.count)

[Anonymous]

I succeeded.

Thanks !