---

Hallo Zusammen,

ich habe eine Frage zum Inhaltscenter.
Gibt es eine Möglichkeit alle Familienvarianten auf einen Klick erstellen zu lassen?

Konkret geht es mir darum das ich alle Varianten (z.B. Schrauben) in eine Baugruppe einfügen und mit einem klick in unser PDM System speichern kann.

Gruß Thiemo

------------------
mit freundlichen Grüßen
Thiemo Steinbach

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

---

Hallo Thiemo,

wie es so schön heißt:

"Das einzige, was von alleine geht, ist gar nichts!"

Man braucht übrigens die Normteile erst dann, wenn sie tatsächlich eingebaut werden. Die Normteiltabelle aus dem CC kannst Du ja schon mit den benötigten SAP-Nummern versehen. Dann sind die später sofort richtig.

Wenn Du trotzdem eine BG mit allen Normteilen einer Familie haben möchtest, dann solltest Du Dir eine kleine iLogic-Routine bauen, die alle die Teile einfügt. Das gibt es nicht im Standard. Als Datenquelle könntest Du dann eine Kopie der CC-Tabelle nehmen, die du bei der CC-Bearbeitung eben mal woanders hin schreibst.

------------------
mit freundlichem Gruß
aus Mönchengladbach
Lothar Boekels

-----------------------------------------------------
Wir unterstützen die Arbeit der
Rettungshundestaffel des DRK in Viersen

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

---

Siehe Beispiel  "Place Content Center Parts API Sample" in der Programmieranleitung.
Die Zeile mit dem Verweiß der Kategorie usw. musst du anpassen das er auf deutsch passt und der den Pfad zur Norm im Inhaltscenter beschreibt die in der anderen Zeile angegeben ist.

Set hexHeadNode = ThisApplication.ContentCenter.TreeViewTopNode.ChildNodes.Item("Verbindungselemente").ChildNodes.Item("Schrauben").ChildNodes.Item("Sechskantkopf")
[...]

If checkFamily.DisplayName = "DIN EN 24016" Then

Code:

---

Public Sub PlaceFromContentCenter()
    Dim asmDoc As AssemblyDocument
    Set asmDoc = ThisApplication.Documents.Add(kAssemblyDocumentObject)
   
    Dim asmDef As AssemblyComponentDefinition
    Set asmDef = asmDoc.ComponentDefinition
   
    ' Get the node in the content browser based on the names of the nodes in the hierarchy.
    Dim hexHeadNode As ContentTreeViewNode
    Set hexHeadNode = ThisApplication.ContentCenter.TreeViewTopNode.ChildNodes.Item("Verbindungselemente").ChildNodes.Item("Schrauben").ChildNodes.Item("Sechskantkopf")
   
    ' Find a specific family.  In this case it's using the display name, but any family
    ' characteristic could be searched for.
    Dim family As ContentFamily
    Dim checkFamily As ContentFamily
    For Each checkFamily In hexHeadNode.Families
        If checkFamily.DisplayName = "DIN EN 24016" Then
            Set family = checkFamily
            Exit For
        End If
    Next
   
    Dim i As Integer
    If Not family Is Nothing Then
        ' Place one instance of each member.
        Dim offset As Double
        offset = 0
        Dim row As ContentTableRow
        For Each row In family.TableRows
            ' Create the member (part file) from the table.
            Dim failureReason As MemberManagerErrorsEnum
            Dim failureMessage As String
            Dim memberFilename As String
            memberFilename = family.CreateMember(row, failureReason, failureMessage, kRefreshOutOfDateParts)
           
            ' Place the part into the assembly.
            Dim transMatrix As Matrix
            Set transMatrix = ThisApplication.TransientGeometry.CreateMatrix
            transMatrix.Cell(2, 4) = offset
            Dim Occ As ComponentOccurrence
            Set Occ = asmDef.Occurrences.Add(memberFilename, transMatrix)
           
            ' Compute the position for the next placement based on the size of the part just placed.
            Dim minY As Double
            Dim maxY As Double
            minY = Occ.RangeBox.MinPoint.Y
            maxY = Occ.RangeBox.MaxPoint.Y
            offset = offset + ((maxY - minY) * 1.1)
        Next
    End If
End Sub

---

------------------
Grüsse
Jürgen
Über 1400 Tipps in der Inventor FAQ
Inventor Schulungsvideos und eBook zum runterladen
Die besten Tipps und Tricks für Einsteiger | für erfahrene Anwender | bei Inventor Abstürzen | die Simulation

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

---

Hi Jürgen,

das funktioniert ja wirklich prima. Kannte ich bisher noch gar nicht. 

------------------
mit freundlichem Gruß
aus Mönchengladbach
Lothar Boekels

-----------------------------------------------------
Wir unterstützen die Arbeit der
Rettungshundestaffel des DRK in Viersen

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

---

Hallo Jürgen,

auf die Idee bin ich noch gar nicht gekommen dort zu suchen.
Funktioniert Prima. = 10U's

------------------
mit freundlichen Grüßen
Thiemo Steinbach

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