Zobrazit plnou verzi příspěvku: Kusovník

hoboj
20.08.2012, 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 SnippetProperty Value() As String 

Navara
20.08.2012, 10:09
Zkuste ten dotaz poněkud rozvést. Moc nerozumím tomu, co vlastně chcete.

hoboj
20.08.2012, 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 
hoboj2012-08-20 10:34:49

Navara
20.08.2012, 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 

hoboj
21.08.2012, 06:04


Děkuji mnohokrát