Vytisknout stránku | Zavřít okno

Import názvu souboru do kusovníku

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=26274
Datum vytištění: 11.čer.2026 v 01:46


Téma: Import názvu souboru do kusovníku
Odeslal: maiklss
Předmět: Import názvu souboru do kusovníku
Datum odeslání: 17.čer.2018 v 16:43
Dorb ýden můžete mi někdo prosím poradit jak dostanu do  exportovaného kusovníku i název sestavy do úrovně  0?

-------------
Když můžu pomůžu:)


Odpovědi:
Odeslal: Navara
Datum odeslání: 18.čer.2018 v 16:46
Dneska už mi to asi moc nemyslí. Co si pod tím mám představit?

Odeslal: maiklss
Datum odeslání: 18.čer.2018 v 22:21
Jeden zakaznik chce mit extra vyjety samostatne kusovnik do excelu s mnoh a parametrama. Tak to resim exportem rozpisky do xlsx. Ale tam se mi nepise jako zdrojova polozka 0 samostna vrcholova sestava. A to je kamen urazu. 

-------------
Když můžu pomůžu:)

Odeslal: Navara
Datum odeslání: 19.čer.2018 v 08:55
Já bych si to naprogramoval. Ale nejde  uživatelsky vytvořit pomocnou, nadřazenou sestavu, z ní udělat export a zahodit jí?

Odeslal: maiklss
Datum odeslání: 19.čer.2018 v 11:17
Ten to způsob jde dělat samozřejmě ale chtěl jsem to co nejvíc z automatizovat. 
Lze nějakým způsobem do makra které exportuje kusovník vložit program co  vše posuné o  řádek v excelu níž  a do  daného sloupce vloží název souboru bez přípon či číslo výkresu?



-------------
Když můžu pomůžu:)

Odeslal: Navara
Datum odeslání: 19.čer.2018 v 11:52
Pro první přiblížení je to asi nějak takhle:

'Sestaveni kusovniku
Dim table As New List(Of String())
table.Add({"1", "Part1", "MainAssembly" })
table.Add({"2", "Part2", "MainAssembly" })
 
'Zapis kusovniku do Excelu
For r = 0 To table.Count-1
 Dim row = table(r)
 GoExcel.CellValues("C:\Temp\TestFile.xlsx", "List1", "A"&r+1, "C"&r+1) = row
Next
 
'Ulozit, zavrit
GoExcel.Save
GoExcel.Close


Vytisknout stránku | Zavřít okno