Reorder parts list columns

By Adam Nagy

If you want to change the order of the columns of the PartsList object then you can use the PartsListColumn.Reposition function for that. Here is a VBA sample that reverses the order of the parts list columns:

Sub ReorderPartsList()
  ' The parts list whose columns you want to reorder 
  ' needs to be selected in the User Interface
  Dim doc As DrawingDocument
  Set doc = ThisApplication.ActiveDocument
  
  Dim pl As PartsList
  Set pl = doc.SelectSet(1)
  
  Dim plcs As PartsListColumns
  Set plcs = pl.PartsListColumns
  
  ' We'll simply reverse the order of the columns
  Dim i As Integer
  For i = 1 To plcs.count - 1
    Dim plc As PartsListColumn
    Set plc = plcs(1)
    
    Call plc.Reposition(plcs.count - i + 1, False)
  Next
End Sub