---

Guten morgen.

Ich hatte das gleiche Thema schon im IV Forum gestellt, wo man mir sagte, das man mir hier helfen könnte.

Kennt jemand eine Möglichkeit verschiedene Varianten, bzw. Größen eines Inhaltscenter-Teils auf einmal in eine Baugruppe ein zu fügen, oder einfach alle Varianten eines Inhaltscenter Teils als Datei ab zu speichern?
z.B.: Scheibe ISO 7090 in diversen verschiedenen oder allen verfügbaren Größen auf einen Schlag in eine Baugruppe oder als Datei im de_DE Verzeichnis ab zu legen.

------------------
Mit freundlichen Grüßen

Chris

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

---

Hallo Chris

Alle Normteile einer Norm als Bauteile generieren

http://inventorfaq.blogspot.de/2014/06/inhaltscenter-alle-normteile-einer-norm.html

Bitteschön

Gruß
Berno

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

---

Hallo Berno

Vielen Dank! 

------------------
Mit freundlichen Grüßen

Chris

__________________________________

"Faulheit ist das Bestreben, mit möglichst wenig Aufwand viel zu erreichen. "

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

---

Moin Moin

Ich muss dieses alte Thema mal wieder ausgraben, da ich dazu eine Frage habe.
Ist es möglich das Makro so an zu passen, das die Dateien welche damit in die Baugruppe eingefügt werden irgendwo als "Benutzerdefiniert" abgespeichert werden? vielleicht einfach in dem selben Verzeichnis wie die Baugruppe, oder das man jedes mal wenn man das Makro ausführt einmal nach einem Speicherort gefragt wird.

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

---

Freundlichste Grüße
Chris

------------------
Mit freundlichen Grüßen

Chris

__________________________________

"Faulheit ist das Bestreben, mit möglichst wenig Aufwand viel zu erreichen. "

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

---

Hallo Kizz,

ich glaube es geht mit der Zeile

Code:

---

memberFilename = family.CreateMember(row, failureReason, failureMessage, kRefreshOutOfDateParts)

---

.
Hier kannst du noch weitere Parameter angeben.

Gruß
SKYSURFER

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

---

Moin SKYSURFER

Danke für den Tipp. Ich probiere gleich mal ein wenig rum.

------------------
Mit freundlichen Grüßen

Chris

__________________________________

"Faulheit ist das Bestreben, mit möglichst wenig Aufwand viel zu erreichen. "

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