---

Hallo!

Ich möchte gerne für jeden Bauteil  (ipt) den Verbaupfad angeben. Dazu hab ich mir eine Macro geschrieben die durch alle Dateien Läuft und wenn es eine IPT ist dann wird ein zusätzlicher Block ausgeführt.

in diesem Block möchte ich einen Code drinnen haben welcher Folgendes im Debug fenster Schreibt:

Dateiname - Baugruppenname - baugruppenname - ........ - Dateiname

zB.: Zusammenbau.iam - Rahmen.iam - Tür.iam - Blockierung.iam - Zylinder.ipt

Ich habs mit "oRefDoc.Parent" versucht aber ich bekomme anstatt einen Baugruppennamen eine Zahl, welche für viele Dateien gleich ist, obwohl sie in unterschiedlichen Baugruppen child sind.

kann mir bitte jemand weiterhelfen?

Danke im voraus

Grüße

Alcom

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

---

Moin!

Völlig falscher Ansatz!

Die Komponenten einer Baugruppe sind nicht deren "Child", zumal eine Komponente in verschiedenen Baugruppen eingefügt sein kann, und das ist ja auch der Sinn von Komponenten. Die Komponenten können und müsssen überhaupt nicht wissen, wo sie verwendet werden. Eine solche Information gehört in Komponentdateien prinzipiell nicht hinein.

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

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

---

Hallo!

Danke für die Info!

Mein Ziel ist es eine Liste aller Komponenten mit den Verbaupfad zu haben und diese dann in Excel zu exportieren. Wenn eine Datei öfters verbaut ist, dann ist sie halt öfters in der Liste vorhanden.

Kannst Du mir da bitte weiterhelfen? zumindest einen richtigen Ansatz? ist in der IAM gespeichert welche Dateien darin enthalten sind?

Danke...

Grüße

Alcom

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

---

Hallo, du solltest immer den Typ prüfen von Parent prüfen, und entsprechend casten. Dann kommst du auch auf alle Eigenschaften wie Name, Pfad, usw. Dabei solltest du deine Hauptbaugruppe rekursiv durchlaufen (such mal hier nach SubOccurrences), und dir die Strings aufbauen wie du sie brauchst.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke!

Problem gelöst!

Grüße

Igor

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

---

ok, jetzt hab ich folgende macro und das Ergebnis ist so fast was ich haben möchte!

nun möchte ich aber dei Einträge gruppieren. Das heist, wenn in einer Baugruppe ein teil öfters vorkommt dann sollte 2X stehen (in der dritten spalte) und das Bauteil nur ein mal aufgelistet. In php wäre es einfach da man variablen nicht deklarieren muss, aber in VB hab ich keine Ahnung wie man so was erstellen kann...

ein konkretes Beispiel:

jetzt:
123.ipt -> baugruppe1.iam
123.ipt -> baugruppe1.iam
123.ipt -> baugruppe2.iam
456.ipt -> baugruppe2.iam

später:
123.ipt -> baugruppe1.iam (2X)
123.ipt -> baugruppe2.iam (1X)
456.ipt -> baugruppe2.iam (1X)

Grüße

Alcom

hier ist meine Makro:

Code:

---

Public Sub verbauinfo()
    ' Get the active assembly.
    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = ThisApplication.ActiveDocument

    Dim group As String
   
    Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oWS As Excel.WorkSheet

    Dim looper As Integer
    looper = 3
   
    Set moFileLocations = ThisApplication.FileLocations
    sCurrentProject = moFileLocations.FileLocationsFile

    ' Get all of the referenced documents.
    Dim oRefDocs As DocumentsEnumerator
    Set oRefDocs = oAsmDoc.AllReferencedDocuments

                                    Set oXL = New Excel.Application
                                    Set oWB = oXL.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)
                                   
                                    Set oWS = oWB.Worksheets(1)

                                    oWS.Range("A1").Value = "Bauteil"
                                   
                                    oWS.Range("B1").Value = "Verbaut in..."

    ' Iterate through the list of documents.
    Dim oRefDoc As Document

            Path = Mid(sCurrentProject, 1, InStrRev(sCurrentProject, "\"))
         
    For Each oRefDoc In oRefDocs
       
            Dim filename As String
            filename = oRefDoc.DisplayName
            Dim strlenght As Integer
            strlenght = Len(filename)
            filename = Left(filename, strlenght - 4)
           
            Debug.Print oRefDoc.DisplayName & " " & oRefDoc.DocumentType
           
           
            If (oRefDoc.DocumentType = 12291) Then
            group = oRefDoc.DisplayName
            Else
           
            If (group <> "" And group <> " ") Then
           
           
            '------------WRITE IN EXCEL---------------------------------------------------------------------
         
                                                     
                                   
                                    oWS.Range("A" & looper).Value = oRefDoc.DisplayName
                                   
                                    oWS.Range("B" & looper).Value = group
                                   
                                    looper = looper + 1
                                   

            '---------------------------------------------------------------------------------
           
           
            Debug.Print oRefDoc.DisplayName & " ---> " & group
            End If
         
            End If
           
    Next
   
            oWB.SaveAs (Path & "Verbauinfo.xlsx")                 
            oXL.Quit
   
End Sub

---

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

---

Hallo, wie gesagt, Occurrences und nicht ReferencedDocuments benutzen. ReferencedDocument bekommst du immer nur eins pro Baugruppe. Occurrences kannst du durchlaufen und zählen.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke!

dann gehts weiter mit Infos suchen und probieren! meld mich bald wieder!

ciao

igor

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

---

Igor, ich hab in der .net Programmierung sogut wie keine Erfahrung..

hast Du bitte einen Link zu einer Seite welche das Umgehen mit Occurences erklärt?

Danke

Mfg.

Igor

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

---

Tja, das ist so eine Sache mit der Suchfunktion hier. Ich finde meine eigenen Codes nicht, aber hier ist im Prinzip das Gleiche zu sehen...

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Super danke!

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

---

sorry aber ich checks net..

Wie kann ich mit der macro im Link ganz eingach den Namen auslesen und im debug Fenster anzeigen?

Danke

Grüße

Igor

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

---

Hallo

So, geht das.

Code:

---

Private Sub ProcessOcc()

Dim oCompDef As ComponentDefinition
Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

For Each oCompOcc In oCompDef.Occurrences
If oCompOcc.Suppressed = False Then
' Check if it's child occurrence (leaf node)
If oCompOcc.SubOccurrences.Count = 0 Then
'Hier das rein, was du in der Ebene machen willst
'z.B. Namen im Direktfenster anzeigen
Debug.Print oCompOcc.Definition.Document.FullDocumentName
Else
'eine Ebene tiefer springen
Call processAllSubOcc(oCompOcc) ' subassembly
End If
End If
Next

End Sub

' This function is called for processing sub assembly.  It is called recursively
' to iterate through the entire assembly tree.
Private Sub processAllSubOcc(ByVal oCompOcc As ComponentOccurrence)

Dim oSubCompOcc As ComponentOccurrence

For Each oSubCompOcc In oCompOcc.SubOccurrences
If oSubCompOcc.Suppressed = False Then
' Check if it's child occurrence (leaf node)
If oSubCompOcc.SubOccurrences.Count = 0 Then
'Hier das rein, was du in der Ebene machen willst
'z.B. Namen im Direktfenster anzeigen
Debug.Print oSubCompOcc.Definition.Document.FullDocumentName
Else
'eine Ebene tiefer springen
Call processAllSubOcc(oSubCompOcc)
End If
End If
Next

End Sub

---

------------------
MfG
RK

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

---

Vielen Dank!

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

---

Ist es möglich zu wissen wieviele Ebenen er gerade Tief ist? oder zu wissen wann er wieder eine Ebene zurückspringt?

Ansonsten weiß ich nicht wie die IAM heist in der ich gerade drinnen bin.

Danke

Igor

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

---

Hallo

Natürlich geht das. Im Beispiel ist die Ebene deiner Hauptbaugruppe Ebene 0.

Code:

---

Private Sub ProcessOcc()

Dim oCompDef As ComponentDefinition
Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim i As Integer
i = 0

For Each oCompOcc In oCompDef.Occurrences
If oCompOcc.Suppressed = False Then
' Check if it's child occurrence (leaf node)
If oCompOcc.SubOccurrences.Count = 0 Then
'Hier das rein, was du in der Ebene machen willst
'z.B. Namen im Direktfenster anzeigen
Debug.Print "Ebene: " & i & " --- " & oCompOcc.Definition.Document.FullDocumentName & " in " & oCompDef.Document.FullDocumentName
Else
'eine Ebene tiefer springen
i = i + 1
Call processAllSubOcc(oCompOcc, i) ' subassembly
End If
End If
Next

End Sub

' This function is called for processing sub assembly.  It is called recursively
' to iterate through the entire assembly tree.
Private Sub processAllSubOcc(ByVal oCompOcc As ComponentOccurrence, ByRef i As Integer)

Dim oSubCompOcc As ComponentOccurrence

For Each oSubCompOcc In oCompOcc.SubOccurrences
If oSubCompOcc.Suppressed = False Then
' Check if it's child occurrence (leaf node)
If oSubCompOcc.SubOccurrences.Count = 0 Then
'Hier das rein, was du in der Ebene machen willst
'z.B. Namen im Direktfenster anzeigen
Debug.Print "Ebene: " & i & " --- " & oSubCompOcc.Definition.Document.FullDocumentName & " in " & oCompOcc.Definition.Document.FullDocumentName
Else
'eine Ebene tiefer springen
i = i + 1
Call processAllSubOcc(oSubCompOcc, i)
End If
End If
Next

i = i - 1

End Sub

---

------------------
MfG
RK

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

---

super danke!

Hab das jetzt mit einem Array verknüpft und hab endlich alles was ich brauche!
Vielen Dank nochmal an alle!

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