Getting accurate RangeBox XYZ values

[NachoShaw]

Hey

I'm using the RangeBox method to return the XYZ values of some parts. My problem with this is that if the part was angled, I do not get the correct XYZ but instead, I get XYZ of the angled part as if it was flat. Hard to explain but let's say for example the part was 10" x 10" x 1". that's the RB set of values but if the same part was angled at 45 degrees, I then get something like 10" x 10" x 5"...

is there a method of routine available that would allow me to obtain the true XYX even if the part wasnt laid flat or angled?

thanks

Nacho

[ganesh_omkaar]

Nice code invention by Autodesk Inventor
It's perfectly work for scewed part. It's really help full for skeletal modeling method. it save lot of time

[floccipier]

brilliant, thank you.

[artem.kolchyk]

Hi, why i cannot use this code in my ilogic (AI professional 2019)

There is an error: 

The rule must contain: Sub Main() ... End Sub

[bradeneuropeArthur]

can you upload your code here?

[artem.kolchyk]

Private Function GetPartSize(oDoc As Document, axis As String) As Double
    Dim i As Long
    Dim rangeBox As Box
    Dim pxMin As Double, pyMin As Double, pzMin As Double
    Dim pxMax As Double, pyMax As Double, pzMax As Double
    
    Dim PartSizeX As Double, PartSizeY As Double, PartSizeZ As Double
    
    Dim oCompDef As ComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition
    
    Dim oBox As Box
    Set oBox = oCompDef.rangeBox
    
    With oBox
    pxMin = .MinPoint.x: pyMin = .MinPoint.y: pzMin = .MinPoint.z
    pxMax = .MaxPoint.x: pyMax = .MaxPoint.y: pzMax = .MaxPoint.z
    End With
    
    Dim oUOM As UnitsOfMeasure
    Set oUOM = oDoc.UnitsOfMeasure

    PartSizeX = oUOM.ConvertUnits((pxMax - pxMin), kCentimeterLengthUnits, oUOM.LengthUnits)
    PartSizeY = oUOM.ConvertUnits((pyMax - pyMin), kCentimeterLengthUnits, oUOM.LengthUnits)
    PartSizeZ = oUOM.ConvertUnits((pzMax - pzMin), kCentimeterLengthUnits, oUOM.LengthUnits)
  
    Select Case axis
        Case "X"
        GetPartSize = SizeSort(2)
        Case "Y"
        GetPartSize = SizeSort(1)
        Case "Z"
        GetPartSize = SizeSort(0)
    End Select
    
    'Set oDoc = Nothing

End Function

This.. 

[bradeneuropeArthur]

and the call for "GetPartSize"?

[artem.kolchyk]

I dont know, i just copied this code into new ilogic rule and try to run it via ilogicc rule.

[bradeneuropeArthur]

This is code for VBA not for i-logic.

[bradeneuropeArthur]

this will do:

Public Sub main
	GetPartSize(ThisDoc.Document)
	End Sub

Private Function GetPartSize(oDoc As Document) As Double
    'Dim i As Long
    Dim rangeBox As Box
    Dim pxMin As Double, pyMin As Double, pzMin As Double
    Dim pxMax As Double, pyMax As Double, pzMax As Double
    
    Dim PartSizeX As Double, PartSizeY As Double, PartSizeZ As Double
    
    Dim oCompDef As ComponentDefinition
    oCompDef = oDoc.ComponentDefinition
    
    Dim oBox As Box
    oBox = oCompDef.RangeBox
    
    With oBox
    pxMin = .MinPoint.X
	pyMin = .MinPoint.Y 
	pzMin = .MinPoint.Z
    pxMax = .MaxPoint.X
	pyMax = .MaxPoint.Y 
	pzMax = .MaxPoint.Z
    End With
    MsgBox ("")
    Dim oUOM As UnitsOfMeasure
    oUOM = oDoc.UnitsOfMeasure

    PartSizeX = oUOM.ConvertUnits((pxMax - pxMin),Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
    PartSizeY = oUOM.ConvertUnits((pyMax - pyMin), Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
    PartSizeZ = oUOM.ConvertUnits((pzMax - pzMin), Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
  
'    Select Case axis
'        Case "X"
'        GetPartSize =  SizeSort(2)
'        Case "Y"
'        GetPartSize = SizeSort(1)
'        Case "Z"
'        GetPartSize = SizeSort(0)
'    End Select
    MsgBox (PartSizeX.ToString & vbCrLf & PartSizeY.ToString & vbCrLf & PartSizeZ.ToString)
    'Set oDoc = Nothing

End Function

[artem.kolchyk]

Anyhow this code is not working...

[Ralf_Krieg]

Hello

Sorry, but:

- the code from @bradeneuropeArthur works fine.

- your error message is from VBA, not iLogic. The provided last code is for iLogic.

[bradeneuropeArthur]

you need it for VBA?

Public Sub main
	GetPartSize(ThisDoc.Document)
	End Sub

Private Function GetPartSize(oDoc As Document) As Double
    'Dim i As Long
    Dim rangeBox As Box
    Dim pxMin As Double, pyMin As Double, pzMin As Double
    Dim pxMax As Double, pyMax As Double, pzMax As Double
    
    Dim PartSizeX As Double, PartSizeY As Double, PartSizeZ As Double
    
    Dim oCompDef As ComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition
    
    Dim oBox As Box
    Set oBox = oCompDef.RangeBox
    
    With oBox
    Set pxMin = .MinPoint.X
	Set pyMin = .MinPoint.Y 
	Set pzMin = .MinPoint.Z
    Set pxMax = .MaxPoint.X
	Set pyMax = .MaxPoint.Y 
	Set pzMax = .MaxPoint.Z
    End With
    MsgBox ("")
    Dim oUOM As UnitsOfMeasure
    Set oUOM = oDoc.UnitsOfMeasure

    Set PartSizeX = oUOM.ConvertUnits((pxMax - pxMin),Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
    Set PartSizeY = oUOM.ConvertUnits((pyMax - pyMin), Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
    Set PartSizeZ = oUOM.ConvertUnits((pzMax - pzMin), Inventor.unitstypeenum.kCentimeterLengthUnits, oUOM.LengthUnits)
  
'    Select Case axis
'        Case "X"
'        Set GetPartSize =  SizeSort(2)
'        Case "Y"
'        Set GetPartSize = SizeSort(1)
'        Case "Z"
'        Set GetPartSize = SizeSort(0)
'    End Select
    MsgBox (PartSizeX.ToString & vbCrLf & PartSizeY.ToString & vbCrLf & PartSizeZ.ToString)
    'Set oDoc = Nothing

End Function

[Curtis_Waguespack · Accepted solution]

@orswift.mi 

See example below, using the examples from this thread.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

' Get the active document. 
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

'Iterate through all of the occurrences
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In oAsmCompDef.Occurrences.AllReferencedOccurrences(oAsmCompDef)
	oDoc = oOccurrence.Definition.Document

	' Get surface body to measure (assume it's the first body).
	Dim body1 As SurfaceBody = oDoc.ComponentDefinition.SurfaceBodies.Item(1)

	' Get the oriented mininum range box of the body.
	' NOTE: "OrientedMinimumRangeBox" was added in Inventor 2020.3/2021.
	Dim minBox As OrientedBox = body1.OrientedMinimumRangeBox

	' Get length of each side of mininum range box.
	Dim dir1 As Double = minBox.DirectionOne.Length
	Dim dir2 As Double = minBox.DirectionTwo.Length
	Dim dir3 As Double = minBox.DirectionThree.Length

	' Convert lengths to document's length units.
	Dim uom As UnitsOfMeasure = oDoc.UnitsOfMeasure

	dir1 = uom.ConvertUnits(dir1, "cm", uom.LengthUnits)
	dir2 = uom.ConvertUnits(dir2, "cm", uom.LengthUnits)
	dir3 = uom.ConvertUnits(dir3, "cm", uom.LengthUnits)

	' Sort lengths from smallest to largest.
	Dim lengths As New List(Of Double) From {dir1, dir2, dir3 }
	lengths.Sort

	Dim minLength As Double = lengths(0)
	Dim midLength As Double = lengths(1)
	Dim maxLength As Double = lengths(2)

	iProperties.Value(oOccurrence.Name, "Custom", "Length") = maxLength.ToString("#.###")
	iProperties.Value(oOccurrence.Name, "Custom", "Width") = midLength.ToString("#.###")
	iProperties.Value(oOccurrence.Name, "Custom", "Thickness") = minLength.ToString("#.###")

Next

[RiccardoSighinolfi]

Hello

This iLogic script works perfectly for my needs but I can't understand how to insert the three dimensions thus obtained in as many iproperties instead of in a messagebox.

Could anyone help me?

Thank you!!

[ganesh_omkaar]

Please add below code into your code 

I store my dimensions in iproperties  project tab, in Description field, you can change as per your requirement 

'Save into iProperties.Value("Project", "Description

 iProperties.Value("Project", "Description") = midLength.ToString("#.###")&"x"& minLength.ToString("#.###")&"x"& maxLength.ToString("#.###")

[phoenixwahoff]

Hi Curtis,

I am kinda new to ilogic. But i have a question- is there a way with the rule you had created to add thickness width and length to the iproperties or parameters? This way i can write a template what will generate the BOM for our firm

We do cabinetry and use a ton of rectangular parts. So far what i have been doing is - create from each part the sheet metal and then it saves the parameters to the iproperties of the part - and in the assembly its then a proper BOM

the bummer is that i have to do this part by part - Is there a way to achive this with the rule u posted on an assembly level?