---

Hallo miteinander!

Hab mal folgende Fragen ans Forum:
a) Kann man nach einem PP-Lauf CATIA dazu bringen noch ein anderes Programm nachträglich zu starten? - Wie?
b) Ist es weiterhin möglich diesem Programm noch den Namen des soeben erstellten NC-Programmes (also das, was man in der NC-Ausgabe als Namen eingetragen hat) als Argument mitzugeben? - Wie?

Vielen Dank schon mal im voraus!
Martin!

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

---

Hallo Martin,

vielleicht hilft folgendes Makro weiter. Es erzeugt ein APT File des selektierten Prozesses und startet anschließend notepad.exe und übergibt den Namen des erstellten Files als Parameter.
Evtl. müssen noch die Pfadangaben angepasst werden.

'********************************************************
' * CUT HERE
'********************************************************

Sub CATMain()
   
    On Error GoTo fehler
    Set aktives_dokument = CATIA.ActiveDocument
   
    Set liste_der_selection = aktives_dokument.Selection
   
    anzahl_der_selektierten_elemente = liste_der_selection.Count
   
    If anzahl_der_selektierten_elemente > 1 Then
   
        MsgBox "Es darf nur ein Program selektiert werden!"
       
    Else
       
        Set erstes_element_der_liste = Nothing
        Set erstes_element_der_liste = liste_der_selection.Item(1).Value
             
        If (erstes_element_der_liste.IsSubTypeOf("ManufacturingProgram")) Then
       
            MsgBox erstes_element_der_liste.Name
           
                 
            '*******************************************************
            '* APT File erstellen
            '*******************************************************
           
            Dim manufacturingAPTGenerator1 As ManufacturingAPTGenerator
            Set manufacturingAPTGenerator1 = erstes_element_der_liste
           
            Dim manufacturingGeneratorData1 As ManufacturingGeneratorData
                   
           
            manufacturingAPTGenerator1.InitFileGenerator "APT", "c:\" & erstes_element_der_liste.Name & ".aptsource", manufacturingGeneratorData1
           
            manufacturingAPTGenerator1.RunFileGenerator manufacturingGeneratorData1
           
            manufacturingGeneratorData1.ResetAllModalValues
         
           
            Ergebnis = Shell("c:\windows\notepad.exe " & "c:\" & erstes_element_der_liste.Name & ".aptsource", 1)
       
           
        Else
            MsgBox "Die Auswahl ist kein Programm!"
        End If
       
            MsgBox "APT-Ausgabe fertig!"
       
    End If
   
    End
   

fehler:
   
    MsgBox "Es wurde keine Auswahl getroffen!"
    End
End Sub

'********************************************************
' * CUT HERE
'********************************************************

C4N

Bernd

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

---

Hallo Bernd!
Leider kenn ich mich nicht besonders mit VB aus, aber leider funktioniert das Makro bei mir (R12 SP3) nicht.
Es erscheint zunächst immer eine Fehlermeldung, in der Zeile 3 (On Error GoTo fehler) bemängelt wird.
Nachdem ich den Errorhandler entferne kommen andere Fehler...

Fragen:
a) Kannst Du mir nochmal weiterhelfen?
b) Ist Dein Makro eigentlich VBScript oder CATScript? (woran erkennt man eigentlich den Unterschied?)

Gruß und Danke Martin!

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

---

Hallo Martin,

das Makro ist VBScript. Insgesamt verfügt Catia über drei Makrosprachen:

1. CATScript:  Reduzierter VBScript Interpreter (WIN , UNIX), beinhaltet die grundlegenden MS-VBScript Befehle und die Objekte und Methoden zur Steuerung von Catia

2. CATIA VBScript: Vollständiger VBScript Interpreter (WIN, UNIX seit V5R8), beinhaltet die kompletten MS-VBScript Befehle und die Objekte und Methoden zur Steuerung von Catia

3. CATIA VBA:      Visual Basic Application Compiler (Nur WIN), bietet die Möglichkeit eigene Eingabemasken (Formulare) zu entwerfen, usw.

Beim Makro bitte beachten: Eine Bearbeitung muß vor dem Start des Makros im Strukturbaum selektiert sein.

In der Zeile :

Ergebnis = Shell("c:\windows\notepad.exe " & "c:\" & erstes_element_der_liste.Name & ".aptsource", 1)

muß evtl. der Pfad zu notpad.exe angepasst oder die alternative Application angegeben werden.

Das Makro wurde mit V5 R12 SP5 getestet.

C4N

Bernd

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

---

Hallo Martin,

sorry, war mein Fehler. Das Makro ist natürlich CATIA VBA.
Um das Makro ausführen zu können muß der Visual Basic Editor gestartet werden.
Wenn noch keine Makrobibliothek angelegt ist unter File / Makrobibliotheken eine neue erzeugen.
Dann ein Modul mit Insert / Module hinzufügen.
Nun den Quellcode in das Modul kopieren und mit F5 das Makro starten.

Makros können auch als Icon auf Symbolleisten abgelegt werden.
Hierzu unter Tools / Anpassen / Symbolleisten eine benutzerdefinierte Symbolleiste erzeugen.
Dann auf das Registerblatt Befehle wechseln. Im rechten Fenster den Namen des Moduls auswählen und per Drag and Drop auf die Symbolleiste ziehen.

C4N

Bernd

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

---

Hallo Bernd!
Ich hab's jetzt gecheckt - Vielen Dank!

MfG
Martin!

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

---

Hi Bernd,
wo hast du den ManufacturingGeneratorData gefunden?
Gibt es dort Parameter um die Ausgabe einzustellen wie
Kreisart, Spitz/Mitte, alles das was in dem Ausgabepanel drin ist?
Gruß
crash

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

---

Hallo Crash,

habe beim interaktiven Erstellen des APT Files den Makrorecorder laufen lassen.
Ob sich die Parameter um die Ausgabe einzustellen steuern lassen hab ich auch noch nicht rausgefunden. Gibt hierzu anscheinend auch keine Dokumentation.

Folgender Beitrag hat sich auch schon mit ManufacturingGeneratorData beschäftigt:
http://forum.cad.de/offline/cd/catia/CATIAV5/CATIAV5Programmierung/000277.html

C4N

Bernd

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

---

Screenshot2022-06-22131453.jpg

Hallo,

Gibt es auch die Möglichkeit nur den NC-Code und nicht die APT ausgeben zu lassen?

------------
manufacturingAPTGenerator1.InitFileGenerator "APT", "c:\" & erstes_element_der_liste.Name & ".aptsource", manufacturingGeneratorData1

------------
hier mein Versuch der aber nicht funktioniert.

Dim manufacturingAPTGenerator1 As ManufacturingOutputGenerator
            Set manufacturingAPTGenerator1 = erstes_element_der_liste
         
            Dim manufacturingGeneratorData1 As ManufacturingGeneratorData
                 

         
   
            manufacturingAPTGenerator1.InitFileGenerator "NC-Code", "H:\" & erstes_element_der_liste.Name & ".nc", manufacturingGeneratorData1

-----------------------

leider kommt hier immer ein Fehler.

Danke

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