Adamito
14.11.2012, 13:07
Dobrý den,snažím se seřadit kusovník v hlavní sestavě "pouze součásti", mám napsané toto pravidlo Dim RootPart As Inventor.Document RootPart = ThisApplication.ActiveDocument oBOM = RootPart.ComponentDefinition.BOM oBOM.StructuredViewEnabled = True oBOM.StructuredViewFirstLevelOnly = False oBOM.PartsOnlyViewEnabled = True oBOMView3 = oBOM.BOMViews.Item(3) '3 = POUZE SOUČÁSTI ROZPISKA oBOMRows3 = oBOMView3.BOMRows' Třídit a přečíslovat rozpisku "pouze součásti". Call oBOMView3.Sort("He_SkZb", True, "He_Nazev1", True, "Description", True) Call oBOMView3.Renumber(1, 1) problém je v tom, že se to neseřadí podle druhého kritéria.Poradí někdo, kde je zakopaný pes?