auto fit columns in parts list
This is the code I've been using. It has some similarities, but seems a lot shorter and less complicated.
It is just regular iLogic code.
It's not perfect, because of all the variations in font widths, but does what it is designed to do.
Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oPList As PartsList = oDDoc.ActiveSheet.PartsLists.Item(1)
If oPList Is Nothing Then MsgBox("No oPList Recieved By Sub") : Return
Dim oCols As PartsListColumns = oPList.PartsListColumns
Dim oRows As PartsListRows = oPList.PartsListRows
Dim oRow As PartsListRow
Dim oFWidth, oCHWidth, oDWidth, oWidestData As Double
oFWidth = oPList.DataTextStyle.FontSize * oPList.DataTextStyle.WidthScale
Dim oDWidths As List(Of Double) = New List(Of Double)
For i As Integer = 1 To oCols.Count
oCHWidth = (oFWidth * oCols.Item(i).Title.Length)
For Each oRow In oRows
If oRow.Visible Then
If oRow.Item(i).Value = "" Or oRow.Item(i).Value = vbNullString Then
Continue For
End If
oDWidth = (oFWidth * (oRow.Item(i).Value.Length))
oDWidths.Add(oDWidth)
End If
Next
'You may or may not need to add a little extra to each column width for left & right side padding from grid lines
oWidestData = MaxOfMany(oDWidths.ToArray)
oCols.Item(i).Width = Max(oCHWidth,oWidestData)
Next
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE" 👍.
Also, when you have time, please review & vote for these 'Ideas' I'd like to get implemented.
- Add more capabilities to the 'Customize' dialog box (exe. Add Tab & Add Panel) Click Here
- Constrain & Dimension Images In Assembly Sketches & Drawing Sketches (TitleBlocks & SketchedSymbols) Click Here
- Save Section View Status In DesignViewRepresentation (So It Can Be Used In The Drawing) Click Here
- Add SolidBodies Folder In iLogic Rule Editor Model Tab Click Here
- Convert All Views To Raster Before Autosave Stores To 'OldVersions' Folder Click Here
- SetDesignViewRepresentation - Fix limitations for DrawingView of a Part Click Here
- Create DocumentSubTypeEnum Click Here
- Add kRevisionTag or kDrawingRevisionTag to ObjectTypeEnum Click Here
Inventor 2020 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum
Wesley Crihfield
(Not an Autodesk Employee)
I'm not a C#.net programmer either, but I can sometimes understand it, because it is a close native to vb.net, which iLogic uses. In C#, they state the variable's Type just before the variable's name/placeholder. They also enclose the single or multiple lines of content within a block of code (after the initial opener line) within the "{" and "}" symbols. This is why you don't see any "End If" or "Next" statements. Yes, is some different functionality to, but simpler stuff is often not too terribly hart to translate.
I believe I understand the code that @Lesoux posted, and have created an iLogic (vb.net) version of it, and have tested it. In the few tests I have put it through, it seems to work just fine, and quickly too. I believe his code was meant to be its own standalone Sub, which could be referenced to do this as a side task, and meant to be the entire code. This is because it is set up to receive the PartsList object as an input variable, instead of directly retrieving it from the active drawing document. So to simplify, I left a commented out starter line that one might use for that similar purpose, but am using the "Sub Main" opener that most iLogic users are used to.
If you would like to use this as a reference Sub, as it was designed:
- Un-comment the Public Sub line (may have to get rid of the 'Public' part, depending on how you are using it), then comment out the Sub Main line.
- Get rid of all the code from after the Sub opener, to (and including) the For Each oPList line.
I added the document type check, getting the drawing document, and the two loops (each Sheet & each PartsList). I also changed a few variable names to shorten them.
Here's my iLogic version of @Lesoux 's C# code:
'Public Sub FitColumnsWidth(oPartsList As PartsList)
Sub Main
If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
MsgBox("A Drawing Document must be active for this rule (" & iLogicVb.RuleName & ") to work. Exiting.",vbOKOnly+vbCritical, "WRONG DOCUMENT TYPE")
Exit Sub
End If
Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oTG As TransientGeometry = ThisApplication.TransientGeometry
For Each oSheet As Inventor.Sheet In oDDoc.Sheets
For Each oPList As PartsList In oSheet.PartsLists
Dim oPPoint As Point2d = oTG.CreatePoint2d(0,0)
Dim oTempGNote As Inventor.GeneralNote = oSheet.DrawingNotes.GeneralNotes.AddFitted(oPPoint, "", oPList.DataTextStyle)
Dim oColQty As Integer = oPList.PartsListColumns.Count
Dim oWidths(oColQty) As Double
Dim i As Integer
For i = 0 To oColQty - 1
Dim oNext As Integer = i + 1
oTempGNote.Text = oPList.PartsListColumns(oNext).Title
oWidths(i) = oTempGNote.FittedTextWidth
For Each oRow As PartsListRow In oPList.PartsListRows
If oRow.Visible Then
oTempGNote.Text = oRow(oNext).Value
If oTempGNote.FittedTextWidth > oWidths(i) Then
oWidths(i) = oTempGNote.FittedTextWidth
End If
End If
Next
oPList.PartsListColumns(oNext).Width = oWidths(i) + oPList.DataTextStyle.FontSize
Next
oTempGNote.Delete()
Next
Next
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.
Wesley Crihfield
(Not an Autodesk Employee)
After closer inspection of the PartsList in my test assembly drawing, after running this rule, I did notice that it didn't truly narrow the columns as far as they could have gone, because I could still manually click and drag the column dividers to make them a little bit narrower, without causing the row contents to wrap to a new line. So still maybe not the ultimate solution, but it does work fairly well, and is a different way of doing it.
Wesley Crihfield
(Not an Autodesk Employee)
