Zobrazit plnou verzi příspěvku: Číslování listu v inventoru

tracy
18.03.2013, 11:46
Dobrý den,je nějak možném, abych si v inventoru ve výkrese nastavil vlastní počítání listů? Jde mi o to, že potřebuji zadat číslo např 89 a další list, aby měl číslo 90, další 91 atd. Nemohu nijak v iLogic nají fuknci na číslo listu.Děkuji za odpověď

Navara
18.03.2013, 13:02

Číslování listů je v Inventoru dáno počtem a pořadím listů. Nejjednodušší je vytvořit si v razítku "zadání s výzvou" a do něj buď ručně, nebo pomocí iLogicu naplnit požadovanou hodnotu.

Vladimír Michl
18.03.2013, 13:08
Popř. můžete přejmenovávat samotné jméno listu (před ":") - např. pomocí:
[CODE]
Dim oSheets As Sheets
Dim oSheet As Sheet
Dim i

oSheets = ThisDoc.Document.sheets
i = 91
For Each oSheet In oSheets
oSheet.Name = "List" & i
i = i+1
Next
[/CODE]

tracy
19.03.2013, 06:54
Děkuji za odpovědi, ještě bych se chtěl jenom zeptat jak bych to číslo dostal do razítka přes? Definování proměnné mi to nějak nefunguje.

Lestr
19.03.2013, 07:14
Takhle to upravte ve výkrese. V roletě "TYP" změňte na hodnotu - Zadání s výzvou a je to

tracy
19.03.2013, 07:17
Zadání s výzvou chápu, ale potřeboval bych, aby to počítalo automaticky tzn. přes i Logic. Nemohu nijak dostat proměnnou do razítka.

Navara
19.03.2013, 09:47

Dostat proměnnou do razítka je trochu problém, ale jde to. Například X-Tools to používajíCesta vede přes nalezení příslušného pole a nastavení jeho hodnoty.[CODE]SyntaxEditor Code SnippetSyntaxEditor Code Snippet
SyntaxEditor Code SnippetSub SetTextboxPrompt(text As String)
Dim titleBlock As TitleBlock = ThisDrawing.ActiveSheet.Sheet.TitleBlock
For Each tb As TextBox In titleBlock.Definition.Sketch.TextBoxes
If tb.FormattedText.Contains("<Prompt") Then
titleBlock.SetPromptResultText(tb, text)
Return
End If
Next
End Sub[/CODE]



Navara2013-03-19 10:08:33