Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  ReferencingDocuments nur direkte Referenz prüfen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  ReferencingDocuments nur direkte Referenz prüfen (437 mal gelesen)
OibelTroibel
Mitglied
Konstrukteur


Sehen Sie sich das Profil von OibelTroibel an!   Senden Sie eine Private Message an OibelTroibel  Schreiben Sie einen Gästebucheintrag für OibelTroibel

Beiträge: 536
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 06. Apr. 2020 10:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

OibelTroibel
Mitglied
Konstrukteur


Sehen Sie sich das Profil von OibelTroibel an!   Senden Sie eine Private Message an OibelTroibel  Schreiben Sie einen Gästebucheintrag für OibelTroibel

Beiträge: 536
Registriert: 18.04.2014

ACAD/Inventor 2018-21

erstellt am: 06. Apr. 2020 13:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Sorry, mein Fehler. Der Code macht genau das was er soll. Ich habe die Einzelteile einer Unterbaugruppe aus einem Multibody-Part erzeugt, dem im unsinnigerweise den Namen der Hauptbaugruppe gegeben habe. Da die Einzelteile eine Referenz zur Multibodydatei haben wurde von dem Multibody ein Step exportiert und ich habe gedacht es wurde von der Hauptbaugruppe eine Step exportiert.

Ich weiss, ich spreche in Rätseln

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz