Hallo zusammen
Ich erstelle aktuell einen Code, der eine offene Baugruppe auf ihre Struktur untersucht und .stp Files in einer ähnlichen Struktur abspeichert. Ein Bauteil ist unter Umständen in mehreren Baugruppen verbaut und soll auch mehrfach in die entsprechenden Baugruppenordner exportiert werden.
Für die abfrage verwende ich
Code:
ElseIf Not IsEmpty(oRefDoc.ReferencingDocuments.Item(1)) And oRefDoc.DocumentType = kPartDocumentObject Then
Dim ReferenzBaugruppe As Integer
Dim oRefSubDoc As Document
ReferenzBaugruppe = 1
For Each oRefSubDoc In oRefDoc.ReferencingDocuments
Zielpfad = Left(oRefDoc.FullFileName, (Len(oRefDoc.FullFileName)) - (Len(oRefDoc.DisplayName) + 4)) & "Beschaffung" & "\" & oRefDoc.ReferencingDocuments.Item(ReferenzBaugruppe).DisplayName & "\" & oBeschaffungProperty.Value & "\"
'Prüfen ob Zielpfad vorhanden ist und sonst anlegen
If Dir(Zielpfad, vbDirectory) = "" Then
MkDir (Zielpfad)
End If
Call StepExport(Zielpfad, oRefDoc)
ReferenzBaugruppe = ReferenzBaugruppe + 1
Next
Das funktioniert grundsätzlich gut, nur dass es bei Each Document In oRefDoc.ReferencingDocuments auch die .ReferencingDocuments der zweiten Stufe durchläuft und somit Beispielsweise die Hauptbaugruppe in eine Stufe 3 Unterbaugruppe exportiert wird.
Kann ich das irgendwie unterbinden bzw. gibt es eine sauberere Methode, die Baugruppen zu ermitteln in denen das Bauteil direkt platziert ist?
Ich hoffe Ihr könnt nachvollziehen was das Problem ist, ansonsten versuche ich mich anderst zu formulieren
Beste Grüsse
Raphael
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP