Otevřete si šablonu výkresu, na kartě správa klikněte na Etitor stylů, otevře se vám okno, v levém menu vyberete Kusovník, rozklikněte ho a vyberte si vámi používaný styl, v pravé části okna se vám aktivuje úprava stylu, v dolní části je prostor pro Výchozí nastavení sloupce, zde klikněte na Výběr sloupce, otevře se vám okno. V levé části jsou iVlastnosti a v pravé iVlastnosti použité v kusovníku. Zde si můžete přidávat nové vlastnosti z leva do prava, pripadne přesouvat pořadí jednotlivých vlastností (v pravém okně). Po vybrání a uspořádání vlastností klikněte na OK, v tabulce pod ikonami můžete upravovat název jednotlivýc sloupců, případně upravovat jejich šířku. Až to budete mít nastavené, tak klikněte na Hotovo a šablonu uložte. Uložte i výchozí šablonu výkresu. Pak by mělo být vše nastavené tak jak má. Pokud toto nastavení budete chtít aplikovat i na již vytvořené výkresy, tak výkres otevřete, opět karta Správa a v sekci Styly a normy  klikněte na Aktualizovat, označte vše co chtcete zaktualizovat a potvrďte. Pak je potřeba kliknout na kusovník a v kartě Poznámka vybrat styl zobrazení.

Proč trváte na tom, aby to byl právě první řádek kusovníku? Nemohla by to být nějaká tabulka, která by tvořila nadstavbu razítka a až nad ní by začínal kusovník? Vzhledově může být shodná s prvním řádkem kusovníku.

Bohužel trvám na tom prvním řádku kusovníku. Bude tam výrobní číslo, které už v razítku je. Potřebuju ho dostat do kusovníku, pak to výrobní číslo využiju jako třídící znak po exportu kusovníku do excelu. Je to pro mě základ kusovníku, protože pak se mi vypíšou komponenty atd. A dále na tom budu stavět kontrolní list.

Než si takhle zanášet kusovník, nebo sestavu, je asi lepší si obsloužit export do excelu, který doplní potřebné informace kam potřebujete.
iLogic na to má GoExcel

Dim fileName As String = "C:\Temp\partsList.xls" Dim sheetName As String = "KUSOVNIK" Dim options As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap() options.Add("TableName", sheetName) options.Add("StartingCell", "A2") ThisDrawing.ActiveSheet.Sheet.PartsLists(1).Export(fileName, PartsListFileFormatEnum.kMicrosoftExcel, options) GoExcel.CellValue(fileName, sheetName, "A1") = ThisDrawing.ModelDocument.DisplayName GoExcel.Save()