Sorting Partslist

[BlueJay1234]

Dear all,

I have a question regarding the sorting of the idw partslist. Currently I am using the following macro to sort the part list.

Public Sub PSortZeich()

Dim oDoc As DrawingDocument

Set oDoc = ThisApplication.ActiveDocument

Dim oPartsList As PartsList Set oPartsList = oDoc.ActiveSheet.PartsLists.Item(1)

Dim sPartsListSortString1 As String sPartsListSortString1 = "Part No"

Call oPartsList.Sort(sPartsListSortString1, True)

'Call oPartsList.

Renumber oPartsList.SaveItemOverridesToBOM

End Sub

My problem however is, that we started to fill the part list with user defined parts (parts that due not exist in the assembly)

These parts, that always start with the object number greater than 200 should not be renumbered and should always stay at the end of the parts list!

Is this possible? I would greatly appriciate any help with this matter. Workflow vise it could go something like this:

1. Sort all parts via Part No

2. Renumber all parts that have an object number below 200

3. Sort all pars via objekt number

Thanks and a great weekend to all