Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  NX Programmierung
  start einer exe und eines makros mit Journal

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX
Autor Thema:  start einer exe und eines makros mit Journal (1513 mal gelesen)
didie
Mitglied
NX Admin


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

Beiträge: 106
Registriert: 29.01.2004

win 10
NX1953

erstellt am: 20. Aug. 2010 08:56    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

Ich möchte durch ein VB Journal eine .exe (keine Userfunction)ausführen, und im Anschluss daran ein Macro starten. Hintergrund ist, mit der exe wird eine Macro editiert, das anschliesend ausgefürt werden soll.
Ich habe nun das Problem dass nach dem start der .exe das Journal sofort weiter läut und nicht auf das Ende der exe wartet.

Kann ich das mit einem Journal überhaupt tun, und wenn ja wie?

Meine bisherigen Bemühungen sehen so aus.

Code:

Module NXJournal
Sub Main
Startexe

StartMakro
End Sub
'---------------------------------
Sub Startexe

dim taskid as new object
taskid = shell("V:\ugshare\ufunc\clone-el-v6-2.exe")

End Sub

'---------------------------------

  Declare Sub MACRO_playback_from_usertool Lib "libugui" Alias "?MACRO_playback_from_usertool@@YAXPBD@Z" (ByVal lpName As String)
Sub Startmakro

    MACRO_playback_from_usertool("clone-el-v6-2.macro")
End Sub
'---------------------------------
End Module


Auch diese Variante ist nicht erfolgreich.

Code:

Module NXJournal
Sub Main
Startexe

StartMakro
End Sub

'---------------------------------
Sub Startexe

Dim ExterneAnwendung As New System.Diagnostics.Process()
ExterneAnwendung.StartInfo.FileName = "V:\ugshare\ufunc\clone-el-v6-2.exe"
ExterneAnwendung.Start()

ExterneAnwendung.WaitForExit()

End Sub

'---------------------------------

  Declare Sub MACRO_playback_from_usertool Lib "libugui" Alias "?MACRO_playback_from_usertool@@YAXPBD@Z" (ByVal lpName As String)
Sub Startmakro

    MACRO_playback_from_usertool("clone-el-v6-2.macro")
End Sub

'---------------------------------
End Module


Gruß
didie

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



(Junior-) Produktentwickler (m/w/d) für Antriebstechnik

Mit unseren Kugelgewindetrieben haben wir es zwar schon bis in Weltall geschafft, dennoch sind wir fest auf dem Boden ge­blieben. Unsere MitarbeiterInnen sind so individuell wie unsere Produkte und Anwendungen. Als führender Hersteller von hoch­präzisen Kugelgewindetrieben bieten und entwickeln wir Lösungen für unterschiedliche Industrien, vom hochspeziali­sierten Maschinen- und Anlagenbau über die Luft- und Raumfahrt bis hin zu Forschungsinstituten....

Anzeige ansehenProduktdesign, Industriedesign
mseufert
Moderator
Freiberuflicher CAD/CAM Ingenieur


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

Beiträge: 2624
Registriert: 18.10.2005

HP Z420
WIN7 64 Win 10
UG NX6-1980
3D Printer Prusa MK2 S

erstellt am: 20. Aug. 2010 10:11    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 didie 10 Unities + Antwort hilfreich

Hallo didie,

Variante 1 kann m.E. nicht funktionieren, da Dein Programm nichts mehr vom externen Prozess mitbekommt. Bei Variante 2 hab' ich die Vermutung, daß WaitForExit noch einen Parameter braucht, der angibt, wie lange gewartet werden soll.
Eine weitere Möglichkeit besteht darin, die exe in einem Thread zu starten und auf dessen Ende zu warten (Thread.join).
Aber warum machst Du das Klonen nicht komplett in VB ?

Gruß,

Michael

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