Vytisknout stránku | Zavřít okno

Číslování listu v inventoru

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=16839
Datum vytištění: 11.čer.2026 v 22:47


Téma: Číslování listu v inventoru
Odeslal: tracy
Předmět: Číslování listu v inventoru
Datum odeslání: 18.bře.2013 v 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ěď


Odpovědi:
Odeslal: Navara
Datum odeslání: 18.bře.2013 v 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.

Odeslal: Vladimír Michl
Datum odeslání: 18.bře.2013 v 13:08
Popř. můžete přejmenovávat samotné jméno listu (před ":") - např. pomocí: 


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


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: tracy
Datum odeslání: 19.bře.2013 v 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.

Odeslal: Lestr
Datum odeslání: 19.bře.2013 v 07:14
Takhle to upravte ve výkrese. V roletě "TYP" změňte na hodnotu - Zadání s výzvou a je to Wink




-------------

Lestr
Autodesk Inventor Professional 2022
Autodesk Vault Professional 2022

Odeslal: tracy
Datum odeslání: 19.bře.2013 v 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.

Odeslal: Navara
Datum odeslání: 19.bře.2013 v 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.
SyntaxEditor Code Snippet
SyntaxEditor Code Snippet

SyntaxEditor Code Snippet
Sub 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


Vytisknout stránku | Zavřít okno