---

Hallo Forum,

ich habe ein kleines Macro welches mir aus einem Assembly Template mit "neu aus" eine Variante erstellt:

Code:

---

Sub CATMain()

        If MsgBox("Sind noch weitere Catia Dateien geoeffnet?", vbYesNo, "Makro Abbruch") = vbNo Then

        Set documents1 = CATIA.Documents
        'oeffnet DekorAssembly + Druck -Praege - Heattransfer Parts mit Datei neu aus und verbaut alles im Dekor_subassembly.CATProduct
        Set productDocument1 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Dekor2014.CATProduct")
        Set documents1 = CATIA.Documents
        Set partDocument1 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Druck2014.CATPart")
        Set documents1 = CATIA.Documents
        Set partDocument2 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Praege2014.CATPart")
        Set documents1 = CATIA.Documents
        Set partDocument3 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Heat2014.CATPart")
        Set windows1 = CATIA.Windows
        windows1.Arrange catArrangeTiledVertical
        Set specsAndGeomWindow1 = windows1.Item("Dekor2014_1.CATProduct")
        specsAndGeomWindow1.Activate
        Set product1 = productDocument1.Product
        Set products1 = product1.Products
        Set product2 = products1.Item("Druckdekor")
        Set product3 = partDocument1.GetItem("Druckdekor")
        Set Nothing1 = products1.ReplaceProduct(product2, product3, True)
        Set product4 = products1.Item("Praegedekor")
        Set product5 = partDocument2.GetItem("Praegedekor")
        Set Nothing1 = products1.ReplaceProduct(product4, product5, True)
        Set product6 = products1.Item("Heattransfer")
        Set product7 = partDocument3.GetItem("Heattransfer")
        Set Nothing1 = products1.ReplaceProduct(product6, product7, True)

        'schliesst die Dekor Parts
        Set specsAndGeomWindow2 = windows1.Item("CATPart7.CATPart")
        specsAndGeomWindow2.Activate
        specsAndGeomWindow2.Close
        Set partDocument3 = CATIA.ActiveDocument
        partDocument3.Close
        Set specsAndGeomWindow3 = windows1.Item("CATPart5.CATPart")
        specsAndGeomWindow3.Activate
        specsAndGeomWindow3.Close
        Set partDocument1 = CATIA.ActiveDocument
        partDocument1.Close
        Set specsAndGeomWindow4 = windows1.Item("CATPart6.CATPart")
        specsAndGeomWindow4.Activate
        specsAndGeomWindow4.Close
        Set partDocument2 = CATIA.ActiveDocument
        partDocument2.Close

        Else: MsgBox ("Bitte alle geoeffneten Catia Dateien sichern und schliessen")
        End If

End Sub

---

Ich würde das nun gerne um die Zeichnung erweitern. Allerdings bietet der Macrorecorder beim Aufzeichnen nicht die gleiche Funktionalität wie ohne Recorder: ich kann das Assembly nicht auswählen.
Kennt von euch jemand dieses Verhalten und hat evtl. einen Ansatz das zu lösen?
Wichtig ist noch, ich möchte nicht mit "File open" arbeiten, weil die "leeren" Dateien erst im PDM gespeichert werden sollen.

Gruß

Norbert

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

---

Servus
Mach doch einfach nach dem Öffnen eines Parts nochmal ein "NewFrom" mit dem Pfad zur Zeichnung.
ggf kann es noch notwendig sein dann zunächst das Part und dann die Zeichnung zu speichern.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

wenn ich erst das Part öffne ( template.CATPart) danach Zeichnung NewFrom, bleibt doch meine template.CATPart Verknüpfung erhalten.
Oder habe ich dich falsch verstanden.

G

Norbert

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

---

Servus
Im meinem Test hat nach dem Speichern von Part und Drawing die Verknüpfung gepasst.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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