iLogic sort BOM and renumber

iLogic sort BOM and renumber

Anonymous
Not applicable
545 Views
0 Replies
Message 1 of 1

iLogic sort BOM and renumber

Anonymous
Not applicable

I'm trying to use iLogic to sort and renumber parts, and I've done so with the following code: 

 

Dim oDrawDoc As DrawingDocument

oDrawDoc = ThisApplication.ActiveDocument

Dim oPartsList1 As PartsList

oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)

'If oPartsList1 Is Nothing Then Resume Next

oPartsList1.Sort("PART NUMBER")

oPartsList1.Renumber

oPartsList1.SaveItemOverridesToBOM

 

The only issue I'm having is our part numbering structure. We have parts numbers that are weither 12 digits or 9 digits. I would like to sort all of the 12 digit numbers alphabetically first then by the 9 digit numbers alphabetically.

 

I know there has to be a really simple way of doing this, can anyone help me out? Thanks in advance.

0 Likes
546 Views
0 Replies
Replies (0)