Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Drawing neu aus / newfrom

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
Autor Thema:  Drawing neu aus / newfrom (1360 mal gelesen)
cmb
Mitglied
Systembetreuer


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

Beiträge: 500
Registriert: 12.07.2002

CATIA V5-6R2016 64bit
Smarteam R22.6
Moldflow Adviser 2014
Lenovo Think Pad P90

erstellt am: 04. Mrz. 2014 11:59    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 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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 04. Mrz. 2014 18:58    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 Nur für cmb 10 Unities + Antwort hilfreich

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

cmb
Mitglied
Systembetreuer


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

Beiträge: 500
Registriert: 12.07.2002

CATIA V5-6R2016 64bit
Smarteam R22.6
Moldflow Adviser 2014
Lenovo Think Pad P90

erstellt am: 06. Mrz. 2014 14:38    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 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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 06. Mrz. 2014 18:03    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 Nur für cmb 10 Unities + Antwort hilfreich

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

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