BOM Cell Value - Decimal Places

[RoyWickrama_RWEI]

I need to find the total weight from the items listed in visible rows in parts list.

However, I find that the cell value for unit weight (see below) rounds up to an integer. I tried all possible options, but no success.

SyntaxEditor Code Snippet

oWeight_UNIT = oPartsList.PartsListRows.Item(i).Item("UNIT WT. (LB)").Value

Could someone help me. Thanks!

[chandra.shekar.g]

@RoyWickrama_RWEI,

Can you please send sample files to test?

Please make sure that files are non confidential.

In my system, Decimal places are displaying properly. For more details, refer below images.

Row 1Row 2Row 3

Thanks and regards,

[bradeneuropeArthur]

Hi,

Is it possible that the precision in the model file (ipt or iam) is like (0) 226

and that the precision in the Partlist is different like (2) 226.50?

Than change the model precision...

Regards,

[RoyWickrama_RWEI]

Thanks. You are right. Even, I got the decimal places when I used this rule some times ago. I forgot it. I will check for the units precision for the weight.

[chandra.shekar.g]

@RoyWickrama_RWEI,

Check the units for weight.

Thanks and regards,

[RoyWickrama_RWEI]

Thanks for responding back. Thai is fine by now.

I am trying to retrieve the model units of measure from withing the drawing document (please see the part of coding below). But it does not go through!

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

oModelDoc = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
oUOM_Mass = oModelDoc.unitsofmeasure.MassUnits

Last row of the above is wrong. Could I get this fixed? Thanks.

[chandra.shekar.g · Accepted solution]

@RoyWickrama_RWEI,

Try below iLogic code to get mass unit of Model document from Drawing document.

doc = ThisDrawing.ModelDocument

Dim oUnit As Inventor.UnitsTypeEnum  
oUnit = doc.unitsofmeasure.MassUnits

Select Case oUnit 
	
Case UnitsTypeEnum.kGramMassUnits 
	
	messagebox.Show("Gram mass", "Mass unit")
Case Unitstypeenum.kLbMassMassUnits 
	
	messagebox.Show("Lbs mass", "Mass unit")
Case UnitsTypeEnum.kKilogramMassUnits 
	
	messagebox.Show("Kg mass", "Mass unit") 
Case UnitsTypeEnum.kSlugMassUnits 

	messagebox.Show("Slug mass", "Mass unit")
End Select

Thanks and regards,