Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Parts List displays information from part properties. That is, you can add this code to the part document and set it to a trigger. Next, you need to describe in which cell you want to write information about the dimensions of the part and in what form (Max x Min x Mid). Also need information in which units do you need the dimensions (mm, cm)?

As an example, I recorded the information about the dimensions in the Part Number.

Dim oDoc As Document = ThisDoc.Document
If Not TypeOf oDoc Is PartDocument Then Exit Sub
Dim oPDoc As PartDocument = oDoc
Dim oProp As Inventor.Property = oPDoc.PropertySets("Design Tracking Properties")("Part Number")
Dim oBodies As SurfaceBodies = oPDoc.ComponentDefinition.SurfaceBodies
If oBodies.Count = 0 Then Exit Sub
Dim oBox As OrientedBox = oBodies(1).OrientedMinimumRangeBox
Dim lengths(3) As Double
Dim dSize As New List(Of Double)
dSize.AddRange({oBox.DirectionOne.Length, oBox.DirectionTwo.Length, oBox.DirectionThree.Length })
dSize.Sort()
MessageBox.Show(dSize(2) & " cm", "Max size box")
MessageBox.Show(dSize(1) & " cm", "Mid size box")
MessageBox.Show(dSize(0) & " cm", "Min size box")
oProp.Value = Round(dSize(2), 3) & "х" & Round(dSize(1), 3) & "х" & Round(dSize(0), 3)

 I hope you understand that I need more information to better help you, I can't read minds anyway(

Andrii Humeniuk - CAD Coordinator, Autodesk Certified Instructor

LinkedIn | My free Inventor Addin | My Repositories

Did you find this reply helpful ? If so please use the Accept as Solution/Like.

EESignature