---

Hallo zusammen,

ich habe folgendes Problem:
Ich habe eine Baugruppe A in der mehrere Bauteile platziert sind.
Wenn ich nun Bauteil X aus der Baugruppe A öffne und über VB.NET oder auch VBA das Bauteil über den Befehl "SaveAs" neu speichere, bzw. kopiere und gleichzeitig die Baugruppe A in welcher das Bauteil X ja platziert ist auch noch geöffnet habe, dann speichert er mir wie gewollt das Bauteil X neu ab unter neuem Namen.
Jedoch ersetzt er auch gleichzeitig das Bauteil X in Baugruppe A durch das neu abgespeicherte bzw. kopierte Bauteil, obwohl dies aber nicht gewollt ist.

Wenn ich das Bauteil ganz normal über die Inventor-Funktion "Speichern unter" neu speichere ersetzt er es mir ja auch nicht gleichzeitig in der im Hintergrund geöffneten Baugruppe.

Wieso ersetzt er mir das Bauteil? Was kann ich tun damit er es mir nicht gleich in der Baugruppe ersetzt?

Schon mal danke für jede Hilfe.

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Hallo Ruzy5624,

wie rufst du das SaveAs auf:
oPartDoc.SaveAs("NeuerName.ipt", False)
oder
oPartDoc.SaveAs("NeuerName.ipt", True)

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

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

---

Zitat:

---

Original erstellt von RolandD:
Hallo Ruzy5624,

wie rufst du das SaveAs auf:
oPartDoc.SaveAs("NeuerName.ipt", False)
oder
oPartDoc.SaveAs("NeuerName.ipt", True)

---

Hallo Roland,

ich rufe es wie in Variante 1 auf, mit "False" am Ende.
Mit diesem booleschen Wert bestimme ich doch, ob der Befehl "Speichern unter (False)" oder "Kopie speichern unter (True)" ausgelöst wird.
Wobei bei Kopie speichern unter das Bauteil gespeichert wird, ich jedoch das geöffnete Bauteil weiterhin das alte bleibt.

Oder nicht?

------------------
Mit Besten Grüßen

Ruzy5624

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

---

Hallo Ruzy5624, man könnte so vorgehen:

Code:

---

Public Sub BauteilDokumentSpeichernUnter()
    Dim BG As AssemblyDocument
    Set BG = ThisApplication.ActiveDocument
   
    ' Bauteil selektieren:
    Dim Teil As ComponentOccurrence
    Set Teil = ThisApplication.CommandManager.Pick(kAssemblyLeafOccurrenceFilter, "Teil wählen")
   
    ' Bezug auf Originaldokument:
    Dim D As PartDocument
    Set D = Teil.Definition.Document
   
    ' Neuen Pfad festlegen:
    Dim PfadNEU As String
    PfadNEU = "D:\Desktop\löschen\Test.ipt"
   
    ' Kopie speicher unter (Originaldokument erst garnicht öffnen):
    Call D.SaveAs(PfadNEU, True)
   
    ' Kopie öffnen:
    Call ThisApplication.Documents.Open(PfadNEU, True)

    'Wenn aber Originaldokument vor dem Kopieren
    'geöffnet werden muss, dann wird dieses geschlossen:
    'Call D.Close
End Sub

---

------------------
alex

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

---

Hey Metalgod,

den Ansatz finde ich gar nicht schlecht, das Bauteil einfach zunächst als "Kopie speichern unter" speichern und im nächsten Schritt das gespeicherte Bauteil dann öffnen.

Das selektieren des Dokumentes aus der Baugruppe heraus benötige ich nicht, da ich das Bauteil ja kopiere um es zu bearbeiten und es somit so oder so öffnen muss.

Aber diesen Workaround werde ich mal ausprobieren.

------------------
Mit Besten Grüßen

Ruzy5624

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