Rozpisku na výkresu můžete pomocí jednoduchého iLogic předpisu (pravidla) upravit, resp. přetřídit tak, aby jednotlivé řádky (položky) byly řazeny vzestupně podle čísla součásti.
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)
![Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]](/common/cf-top-logo.png "Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk
- od firmy Arkance Systems [www.cadforum.cz slaví 20 let]"){kind=logo}
AutoCAD a LT
Inventor
Revit
Civil 3D
Fusion 360
CAD tip # 11731:
Inventor
Inventor
