iLogic Extract Material Physical Properties

[b.mccarthy]

Hello.

Is it possible to extract a material's physical properties using iLogic? I.e.  Poisson's Ratio, Density, Yield Strength, etc.

Thank you.

[TomaszDąbrowski · Accepted solution]

Dim oDoc As PartDocument = ThisDoc.Document

Dim MatName As String = oDoc.ComponentDefinition.Material.Name
Dim PR As Double = oDoc.ComponentDefinition.Material.PoissonsRatio
Dim Den As Double = oDoc.ComponentDefinition.Material.Density
Dim YS As Double = oDoc.ComponentDefinition.Material.YieldStrength

MsgBox("Material " & MatName & " has Poisson's Ratio: " & PR & ", Density: " & Den & ", Yield Strength: " & YS)

[b.mccarthy]

Perfect!

Thank you!!

[b.mccarthy]

I noticed that there is discontinuity between the Inventor material database, and the values the code presents:

Inventor Material Specs for Mild Steel:

Values reported by iLogic Code:

The Material and Poisson's Ratio are good, but the Density and Yield Strength do not match. Why are the values so different, and what tweaks need to be made to the code to display the data correctly?

Thank you.

[TomaszDąbrowski]

That is because the units are different.

Yield strength is given in MPa (mega Pascal)

Density is given in g/cm3 (gram per cubic centimeter)

[b.mccarthy]

Ok. Can you add code that will convert the values prior to displaying the dialog?

TIA

[TomaszDąbrowski]

ok

Dim oDoc As PartDocument = ThisDoc.Document

Dim MatName As String = oDoc.ComponentDefinition.Material.Name
Dim PR As Double = oDoc.ComponentDefinition.Material.PoissonsRatio
Dim DenMetric As Double = oDoc.ComponentDefinition.Material.Density
Dim DenImperial As Double = DenMetric*0.03613 
Dim YSMetric As Double = oDoc.ComponentDefinition.Material.YieldStrength
Dim YSImperial As Double = YSMetric * 145.04

MsgBox("Material " & MatName & " has Poisson's Ratio: " & PR & ", Density: " & DenImperial & " [lb/in3], Yield Strength: " & YSImperial & " [psi].")

[b.mccarthy]

Thank you.

So iLogic does not contain a conversion expression? 

[TomaszDąbrowski]

I was surprised to find out that there is such converter:

Dim oDoc As PartDocument = ThisDoc.Document

Dim MatName As String = oDoc.ComponentDefinition.Material.Name
Dim PR As Double = oDoc.ComponentDefinition.Material.PoissonsRatio
Dim DenMetric As Double = oDoc.ComponentDefinition.Material.Density
Dim DenImperial As Double = oDoc.UnitsOfMeasure.ConvertUnits(DenMetric,"g/(cm cm cm)","lb/(in in in)")
Dim YSMetric As Double = oDoc.ComponentDefinition.Material.YieldStrength
Dim YSImperial As Double = oDoc.UnitsOfMeasure.ConvertUnits(YSMetric, "MPa", "psi")

MsgBox("Material " & MatName & " has Poisson's Ratio: " & PR & ", Density: " & DenImperial & " [lb/in3], Yield Strength: " & YSImperial & " [psi].")

[b.mccarthy]

Excellent!

Thank you.