---

Hallo zusammen,

ich muss die Struktur einer Baugruppe durchlaufen und alle uniquen Occurrences in der ersten Ebene finden.

Ziel: Veraltetet Komponenten in der ersten Ebene der aktiven Baugruppe mit neuester Version ersetzen.

Wie realisiert man das Durchlaufen der BG-Struktur am effizientesten?

Code:

---

Dim occurrence As Inventor.ComponentOccurrence
Dim occurrences As Inventor.ComponentOccurrences = assembly.ComponentDefinition.Occurrences

For Each occurrence In occurrences

---

Findet zwar nur Komponenten der ersten Ebene, aber durchläuft alle Instanzen.
Sprich, wenn eine Schraube 1000 mal verbaut ist, analysiere ich dessen I-Property 1000 mal...

Code:

---

Dim referencedDocs As Inventor.DocumentsEnumerator
referencedDocs = assembly.AllReferencedDocuments
Dim currentDoc As Inventor.Document

For Each currentDoc In referencedDocs

---

Gibt mir sehr schnell alle uniquen Dateireferenzen zurück, aber über alle Ebenen hinweg.
Damit würde ich auch Komponenten aus Unterbaugruppen erhalten, die ich im Zuge dessen nicht möchte.

» Kann ich bei dieser Methode (AllReferencedDocuments) die "Hierarchie-Stufe" auslesen?

Wie würdet Ihr das Ganze implementieren?

Danke und Grüße
MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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

---

Zitat:

---

Original erstellt von mb-ing:
» Kann ich bei dieser Methode (AllReferencedDocuments) die "Hierarchie-Stufe" auslesen?

---

Du kannst mit ReferencedDocuments alle Dateien der 1. Ebene auflisten.
AllReferencedDocuments listet natürlich alle Dateien in allen Ebenen auf.

------------------
Gruß Roland

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

---

Zitat:

---

Original erstellt von RolandD:

Du kannst mit [b]ReferencedDocuments alle Dateien der 1. Ebene auflisten.
AllReferencedDocuments listet natürlich alle Dateien in allen Ebenen auf.

[/B]

---

Hallo Roland,

vielen herzlichen Dank für Deine Antwort.
Genau das habe ich gesucht 

Bisschen peinlich, dass ich da nicht selbst daraufgekommen bin 

Danke und Grüße
MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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