CAD tip # 11731:

Přetříděnou rozpisku (kusovník) můžete pak ještě přečíslovat vzestupně od 1.

On Error Resume Next
Dim oDwgDoc As DrawingDocument
oDwgDoc = ThisApplication.ActiveDocument

Dim oPartsList1 As PartsList
oPartsList1 = oDwgDoc.ActiveSheet.PartsLists.Item(1)
If oPartsList1 Is Nothing Then
	MsgBox ("No parts list!")
Else
	oPartsList1.Sort("ČÍSLO SOUČÁSTI")
	oPartsList1.Renumber
End If 

Pokud potřebujete podobně seřadit rozpisku v sestavě, použijte následující předpis iLogic:

'Get active assembly
Dim activeAssembly As AssemblyDocument = ThisApplication.ActiveDocument
'Get structured bom view
Dim bomView As BOMView = activeAssembly.ComponentDefinition.BOM.BOMViews(2)
'Sort by Part Number
Call bomView.Sort("Part Number", True)
'Renumber rows
Call bomView.Renumber(1, 1)