---

Hallo zusammen,
gibt es eine Möglichkeit in Inventor 2022 Skizzensymbole mit etwas Intelligenz zu versehen?
Ich möchte die Anzahl bestimmter in der Zeichnungen verwendeten gleicher Skizzensymbole erfassen um sie anschließend herausschreiben zu lassen.

mfg
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wie sollen die Skizzensymbole vom Modell gesteuert werden?

du kannst eine Routine schreiben, welche die Anzahl der Skizzensymbole mit einem Namen sucht. Dann addiert und damit hättest du die Anzahl. In meinen Augen ist dies nicht Änderungsstabil.

herzlich Sascha

[Diese Nachricht wurde von freierfall am 02. Mrz. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank.
Ich möchte nur die Anzahl der jeweiligen unterschiedlichen Skizzensymbole erfassen und herausschreiben können.

Gruss
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verrätst Du uns wofür Du das machen willst, bzw. zu welchem Zweck?

BW, Manfred

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
tschuldigung für die verspätete Antwort.
Die Anlagen sollen mit diversen Schilder beklebt werden, von denen jede Sorte eine eigene Ident.Nr. hat. Zur Kommissionierung möchte man eine Stückliste mit den entsprechenden Anzahlen haben. In der IDW entsteht für jede Anlage ein entsprechender Plan zur Anbringung der Schilder.
Daher auch der Weg über die Skizzensymbole.

Alternativ wäre auch ein Weg über die oberste Baugruppe, zur Erstellung der StÜLi zu gehen. Es muss dann auch keine Geometrie dargestellt werden. Es werden nur benutzerdefinierte iProperties benötigt.

Gibt es dazu eine Lösung?

Danke + Gruß
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von reinhard75:
... diverse Schilder ... von denen jede Sorte eine eigene Ident.Nr. hat.

---

Was spricht denn dagegen, die Schilder als ipt anzulegen und genau da in die iam einzufügen, wo sie hin sollen?

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Roland,
das haben wir schon ausprobiert. Wird sehr unübersichtlich.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Gibt es für jeden Schildtyp ein eigenes Symbol oder ist da eine angeforderte Eingabe drin? Wie unterscheidet ihr die Schilder?
Wenn es für jeden Typ ein eigenes Symbol gibt, kann man sich mit einer iLogic Regel eine Tabelle mit der jeweiligen Anzahl erzeugen. Die könnte man ebenso als Exceltabelle exportieren. Aktuell werden alle Symbole gezählt, die in der Liste enthalten sind. Du musst die Namen ändern und ggf. weitere Namen einfügen. Alternativ kann ich es umschreiben, das einfach alle skizzierten Symbole auf dem Blatt gezählt werden.
Wenn es immer das gleiche Symbol mit unterschiedlicher angeforderter Eingabe ist, muss man es umschreiben. Sollte aber auch machbar sein.

Code:

---

Sub Main
    '>>>>> Die Liste der Symbolnamen, die gezählt werden sollen. <<<<<
    '>>>>> Alle anderen skizzierten Symbole werden ignoriert.    <<<<<
    Dim lFilterliste As List(Of String) = New List(Of String)
    lFilterliste.Add("Symbol A")
    lFilterliste.Add("Symbol B")
    lFilterliste.Add("Symbol C")

    Dim oDrawDoc As DrawingDocument = ThisDrawing.Document
    Dim oSheet As Sheet = oDrawDoc.ActiveSheet
    Dim lSymbolliste As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)
    Dim oSSS As SketchedSymbol = Nothing

    For Each oSSS In oSheet.SketchedSymbols
        If lFilterliste.Contains(oSSS.Name) Then
            If lSymbolliste.ContainsKey(oSSS.Name) Then
                lSymbolliste(oSSS.Name) = lSymbolliste(oSSS.Name) + 1
            Else
                lSymbolliste.Add(oSSS.Name , 1)
            End If
        End If
    Next
   
    Dim oCTable As CustomTable = Nothing
    Dim oPosition As Point2d = Nothing
    For Each oCTable In oSheet.CustomTables
        If oCTable.Title.ToUpper = "SYMBOLÜBERSICHT" Then
            oPosition = oCTable.Position
            oCTable.Delete
        End If
    Next
   
    Dim oFlatList As List(Of String) = New List(Of String)
    For Each pair As KeyValuePair(Of String, Integer) In lSymbolliste
        oFlatList.Add(pair.Key)
        oFlatList.Add(pair.Value.ToString )
    Next
   
   
    CreateCustomTable(oSheet, oFlatList, oPosition)
   
End Sub

Private Function CreateCustomTable(ByVal oSheet As Sheet, lFlatList As List(Of String), Optional ByVal oPosition As Point2d = Nothing) As CustomTable
   
    ' Set the column titles
    Dim oTitles(1) As String
    oTitles(0) = "Symbolname"
    oTitles(1) = "Anzahl"
   
    Dim iCnt As Integer = lFlatList.Count
   
    ' Set the contents of the custom table (contents are set row-wise)
    Dim oContents() As String = lFlatList.ToArray
   
    ' Set the column widths (defaults to the column title width if not specified)
    Dim oColumnWidths(1) As Double
    oColumnWidths(0) = 3
    oColumnWidths(1) = 2
   
    If oPosition Is Nothing Then oPosition = ThisApplication.TransientGeometry.CreatePoint2d(15, 15)
   
    ' Create the custom table
    Dim oCustomTable As CustomTable = oSheet.CustomTables.Add("Symbolübersicht", oPosition, 2, iCnt/2, oTitles, oContents, oColumnWidths)
                                           
    ' Change the 3rd column to be left justified.
    oCustomTable.Columns.Item(1).ValueHorizontalJustification = kAlignTextLeft
   
    ' Create a table format object
    Dim oFormat As TableFormat = oSheet.CustomTables.CreateTableFormat
   
    ' Set outside line weight.
    oFormat.OutsideLineWeight = 0.1
   
    ' Modify the table formats
    oCustomTable.OverrideFormat = oFormat
End Function

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP