Tot Volume Tot weight

[bespel]

Hi,

hope you can help me.

Is it possibile with a rule, in an assembly,  to write as parameters or custom iprop(at assembly level)  the total weight and total volume summed for every parts?

Ex. in an assembly I have 10 parts called "PartA", 1 kg and 1 dm^3 each.

The rule should write(in the assembly)  (as parameters or custom iprop)

Tot_Vol 10

Tot_Weight 10

I really hope that it's possible...

Thanks!

[bradeneuropeArthur]

For my understanding:

Assembly X

>>Part A - 1 kg each- 10 times = total weight = 10 kg

>>Part B - 2 kg each- 20 times = total weight = 40 kg

What should the property be called in the Assembly X for each part?

"Part A total Weight" with value 10 kg

"Part B total Weight" with value 40 kg

Regards,

[Sergio.D.Suárez]

Hi, Try this rule from the assembly.
This rule will look at the BOM parts only, take the quantity and multiply it by the volume and with this value it will create a property called "TotalVolume" in each part. It will also create another custom property called "TotalMass".
I hope this is what you are looking for or that at least it will help you to achieve it. regards

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

oBOM.PartsOnlyViewEnabled = True

Dim oBOMView As BOMView = oBOM.BOMViews.Item(3)'BOM parts only 

Dim oBOMRow As BOMRow

For Each oBOMRow In oBOMView.BOMRows

	Dim Qty As Double = oBOMRow.TotalQuantity
	Dim rDoc As Document = oBOMRow.ComponentDefinitions.Item(1).Document
	Dim oVoltotal As Double = rDoc.ComponentDefinition.MassProperties.Volume * Qty 
	Dim oMassTotal As Double = rDoc.ComponentDefinition.MassProperties.Mass * Qty
	
	Try
	rDoc.PropertySets.Item("Inventor User Defined Properties").Item("TotalVolume").Value = Round(oVoltotal, 0) & " cm^3"
	Catch
	rDoc.PropertySets.Item("Inventor User Defined Properties").Add(Round(oVoltotal,0) & " cm^3", "TotalVolume")		
	End Try
	
	Try
	rDoc.PropertySets.Item("Inventor User Defined Properties").Item("TotalMass").Value = Round(oMassTotal,3) & " Kg"
	Catch
	rDoc.PropertySets.Item("Inventor User Defined Properties").Add(Round(oMassTotal,3) & " Kg", "TotalMass")		
	End Try

Next

[bespel]

You are very kind my friend.

I will test these.

Thanks!