| |
| KISTERS 3DViewStation mit neuer Zerschneidefunktionen und erweitertem PMI-Support, eine Pressemitteilung
|
Autor
|
Thema: Programm starten nach Postprozessorlauf (4266 mal gelesen)
|
martin2 Mitglied Konstrukteur
Beiträge: 1010 Registriert: 05.2002.27 Windows 11 / 64bit CATIA V5-6R2020 bis V5-6R2024
|
erstellt am: 27. Mrz. 2004 21:33 <-- editieren / zitieren --> Unities abgeben:
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 |
EmilioSanchez Mitglied
Beiträge: 78 Registriert: 02.11.2003
|
erstellt am: 14. Mai. 2004 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
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 |
martin2 Mitglied Konstrukteur
Beiträge: 1010 Registriert: 05.2002.27 Windows 11 / 64bit CATIA V5-6R2020 bis V5-6R2024
|
erstellt am: 19. Mai. 2004 18:56 <-- editieren / zitieren --> Unities abgeben:
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 |
EmilioSanchez Mitglied
Beiträge: 78 Registriert: 02.11.2003
|
erstellt am: 23. Mai. 2004 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
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 |
EmilioSanchez Mitglied
Beiträge: 78 Registriert: 02.11.2003 Intel I7 4700MQQ 24GB Win10 Pro 64-Bit Catia V5 R19/R26/28/29
|
erstellt am: 24. Mai. 2004 09:30 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
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 |
martin2 Mitglied Konstrukteur
Beiträge: 1010 Registriert: 05.2002.27
|
erstellt am: 27. Mai. 2004 22:23 <-- editieren / zitieren --> Unities abgeben:
|
crash Mitglied
Beiträge: 158 Registriert: 12.06.2004
|
erstellt am: 12. Jun. 2004 14:09 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
|
EmilioSanchez Mitglied
Beiträge: 78 Registriert: 02.11.2003 Intel I7 4700MQQ 24GB Win10 Pro 64-Bit Catia V5 R19/R26/28/29
|
erstellt am: 14. Jun. 2004 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
|
Esterbauer Mitglied
Beiträge: 62 Registriert: 26.09.2008
|
erstellt am: 22. Jun. 2022 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für martin2
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 |