PART LIST SORTING

[Lupe_Stewart]

I is there a way to sort a parts list automatically with the part number, in numerical order, and auto sort on update. this is one of those things that are repetitive, and would like to omit from sheet to sheet.

[bradeneuropeArthur]

dim a as drawingdocument = thisdrawing.document
dim PartsList as Prartslist = a.activesheet.partslist.item(1)
PartsList.Sort( "Part Number", true ) 

[bradeneuropeArthur]

Dim a As DrawingDocument = ThisDrawing.Document

Dim partslist As PartsList = a.ActiveSheet.PartsLists.Item(1)
partslist.Sort("Part Number", true ) 

Part Number = CASE SENSITIVE! 

[Lupe_Stewart]

thanks for the reply..... when i put the rule in it gave this message:

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

[rhasell]

Hi

as @bradeneuropeArthur mentioned, the Part Number is case sensitive, so however it is written in your parts list, that is how you must specify it.

The Autosort is tricky, that took me a while to find, but I have just done it for my needs, so I thought I would share it. You need to use the "sort2" option to enable the autosort.

Dim a As DrawingDocument = ThisDrawing.Document
Dim partslist As PartsList = a.ActiveSheet.PartsLists.Item(1)
partslist.Sort2("PART NUMBER", True, AutoSortOnUpdate :=True)