Vytisknout stránku | Zavřít okno

Kusovník

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=15538
Datum vytištění: 05.kvě.2026 v 06:07


Téma: Kusovník
Odeslal: hoboj
Předmět: Kusovník
Datum odeslání: 20.srp.2012 v 10:04
Dobrý den,
potřeboval bych poradit, jak napsat pravidlo pro kusovník, aby v kusovníku nebyly statické hodnoty.
 
Jak napsat, aby se nám vybrala celá tabulka v kusovníku?
 
Našel jsem si pro změnu hodnoty na statickou.
SyntaxEditor Code Snippet
Property Value() As String
 


-------------
Vojtěch Visingr


Odpovědi:
Odeslal: Navara
Datum odeslání: 20.srp.2012 v 10:09
Zkuste ten dotaz poněkud rozvést. Moc nerozumím tomu, co vlastně chcete.

Odeslal: hoboj
Datum odeslání: 20.srp.2012 v 10:32
Chci nastavit všechny buňky v kusovníku jako (ne)statické, kvůli zamezení chyb.
 
U starých kusovníků je to přepisované ručně a když se změní rozměr nějaké komponenty, tak se to v kusovníku neprojeví a když nebude statická hodnota těchto buněk, tak se to bude řídit dle BOM a bude to v pořádku.
 
Chtěl bych nastavit
všechny buňky-> statické ->false
 


-------------
Vojtěch Visingr

Odeslal: Navara
Datum odeslání: 20.srp.2012 v 13:56
Zase jeden z problémů, na který nemá iLogic odpověď. Jediná možnost je přes plné API
Níže uvedený kód projde věechny kusovníky ve výkrese a odstraní z nich všechny statické hodnoty. Pokud byste chtěl tyto informace uchovat, nebo zapsat do modelů, muselo by se na to jinak.
 
Dim drawing As DrawingDocument
Dim sheet As Sheet
Dim pList As PartsList
Dim pListRow As PartsListRow
Dim pListCell As PartsListCell
Dim cellIndex As Integer

drawing = ThisApplication.ActiveDocument

For Each sheet In drawing.Sheets
    For Each pList In sheet.PartsLists
        For Each pListRow In pList.PartsListRows
            For cellIndex = 1 To pList.PartsListColumns.count
                pListCell = pListRow.Item(cellIndex)
                pListCell.Static = False
            Next
        Next
    Next
Next
 

Odeslal: hoboj
Datum odeslání: 21.srp.2012 v 06:04
Děkuji mnohokrát Smile

-------------
Vojtěch Visingr


Vytisknout stránku | Zavřít okno