MassProperties.Mass from virtual component

[pavol_krasnansky]

Hello
How to get MassProperties.Mass from virtual component in BOM in assembly?
Thank you

Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveEditDocument

Dim oBOM As BOM
oBOM = oAsmDoc.ComponentDefinition.BOM

Dim oBOMView As BOMView
oBOMView = oBOM.BOMViews.Item(1)

Dim oBomRow As BOMRow
Dim oCompDef As ComponentDefinition

Riadok_Tabulka_Rozpiska_Data_Modelu = -1

For i = 1 To oBOMView.BOMRows.Count
	
	oBomRow = oBOMView.BOMRows.Item(i)
	oCompDef = oBomRow.ComponentDefinitions.Item(1)
	
	If TypeOf oBomRow.ComponentDefinitions(1) Is VirtualComponentDefinition Then
		
		Mass_Of_Virtual_Component = Round(oBomRow.ComponentDefinitions(1).MassProperties.Mass, 3) & " kg"
		MsgBox("Mass_Of_Virtual_Component" & vbCrlf & Mass_Of_Virtual_Component)
		
	End If
	
Next

[marcin_otręba]

you can use mass from property set:

Dim oAsmDoc As AssemblyDocument
 oAsmDoc = ThisApplication.ActiveEditDocument

Dim oBOM As BOM
 oBOM = oAsmDoc.ComponentDefinition.BOM

Dim oBOMView As BOMView
 oBOMView = oBOM.BOMViews.Item(1)

Dim oBomRow As BOMRow
Dim oCompDef As VirtualComponentDefinition

Riadok_Tabulka_Rozpiska_Data_Modelu = -1

For i = 1 To oBOMView.BOMRows.Count
    
    oBomRow = oBOMView.BOMRows.Item(i)
    oCompDef = oBomRow.ComponentDefinitions.Item(1)
    
    If TypeOf oCompDef Is VirtualComponentDefinition Then
       
        Mass_Of_Virtual_Component = Round(oCompDef.PropertySets.Item(3).Item("Mass").Value, 3) & " kg"
        MsgBox ("Mass_Of_Virtual_Component" & vbCrLf & Mass_Of_Virtual_Component)
      
    End If
Next

[pavol_krasnansky]

Thank you, but this solution doesn't work.

[marcin_otręba]

hymn, what do you mean that it doesn’t work? do you get any error? did you placed this code or modified yours? what version of inventor you use?

[marcin_otręba · Accepted solution]

Hi,

i checked oit again an this line resulted error:

Dim oCompDef As VirtualComponentDefinition

i corrected it:

Dim oAsmDoc As AssemblyDocument
 oAsmDoc = ThisApplication.ActiveEditDocument

Dim oBOM As BOM
 oBOM = oAsmDoc.ComponentDefinition.BOM

Dim oBOMView As BOMView
 oBOMView = oBOM.BOMViews.Item(1)

Dim oBomRow As BOMRow
Dim oCompDef As ComponentDefinition

Riadok_Tabulka_Rozpiska_Data_Modelu = -1

For i = 1 To oBOMView.BOMRows.Count
    
    oBomRow = oBOMView.BOMRows.Item(i)
    oCompDef = oBomRow.ComponentDefinitions.Item(1)
    
    If TypeOf oCompDef Is VirtualComponentDefinition Then
       
        Mass_Of_Virtual_Component = Round(oCompDef.PropertySets.Item(3).Item("Mass").Value, 3) & " kg"
        MsgBox ("Mass_Of_Virtual_Component" & vbCrLf & Mass_Of_Virtual_Component)
      
    End If
Next

[pavol_krasnansky]

Thank you. This code works without error, but result is bad. In mass isn't point.

I have Inventor Professional 2019 with last update.

[marcin_otręba]

value is in grams. so you need only to divide it by 1000

[pavol_krasnansky]

That did not cross my mind, because I have default unit for mass kg. Thank you for you help.