---

Fehler.jpg

Hallo UG-Gemeinde,

ist es möglich in NX6 mit Hilfe eines Journal ein Macro zu starten?
Ich habe bereits einige Beiträge dazu gefunden komme aber nicht weiter.

Bei folgendem Eintrag kommt immer die gleiche Fehlermeldung(siehe JPG)

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

MACRO_playback_from_usertool("macroname.macro")

Gruß wipc3d59

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

---

Hallo wipc3d59,

die Deklaration scheint i.O. zu sein, der Aufruf der Funktion sollte in einer separaten Sub/Function erfolgen. Folgendes läuft bei mir mit NX5 & NX6:

Code:

---

Module NXJournal

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

  Sub Main

    MACRO_playback_from_usertool("test.macro")

  End Sub

End Module

---

Gruß, Michael

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

---

Hallo Michael,
danke für die Antwort. Funktioniert aber leider nicht.
Ich bekomme immer noch die gleiche Meldung.

Gruß Thorsten

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

---

Hallo Thorsten,

merkwürdig, daß ein Journal bei Dir nicht, bei mir dagegen läuft. Tippfehler in der Declare- Zeile ausgeschlossen, nehm' ich mal an. Dann könnt's noch Unterschiede zwischen 32- und 64-Bit Version der externen Lib geben, möglicherweise ein Bug in der 64er. Oder irgenwelche Besonderheiten in Deiner Installation?
Das sind aber alles nur Vermutungen, debuggen bringt bei den paar Zeilen vermutlich auch nichts, aber wenn Du willst, kannst Du dein Journal mal reinstellen, dann versuch' ich's auf meiner Kiste mal.

Gruß, Michael

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

---

Hallo Thorsten,

für 64Bit muss es "?MACRO_playback_from_usertool@@YAXPEBD@Z"
heißen.

Gruß
Stefan

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

---

Hallo zusammen,

Es funktioniert!!!
Danke an euch beide.

Gruß Thorsten

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

---

Hallo Stefan,

mir hat deine Antwort auch weitergeholfen, deshalb gibts Unities.

------------------
Gruß Robert

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

---

Fehlermeldung_Macro_aus_Journal_starten.jpg

Hallo zusammen,
leider muss ich diesen alten Beitrag nochmal nach vorne holen, da ich es nicht schaffe den Code in ein vorhandenes Journal einzubinden.
Das Journal von mseufert mit der 64Bit Ergänzung von stefan.f funktioniert, wenn ich es als einzelnes Journal starte,  tadellos.
Diesen Macro Aufruf möchte ich nun ans Ende eines bereits bestehenden (und auch funktionierenden) Journals einbinden, nur hierbei kommt es zu Fehlermeldungen, die ich nicht verstehe. (Wobei ich ergänzen muss, dass meine Journale eher durch „try and error“ entstehen, denn durch Wissen. Hatte keine VB Schulung und fange momentan an, damit zu experimentieren.)

-----------------------------------------------------
Dies ist der Beginn meines vorhandenen Journals:

Option Strict Off
Imports System
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Windows.Forms.MessageBox
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UF

Module NXJournal

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim theUISession As UI = UI.GetUI
Dim answer As String = ""
Dim angauf As String = ""
Dim haupt As String = ""
Dim teilv As String = ""
Dim teilh As String = ""
Dim teil As String = ""
Dim pfad As String = ""
Dim datei As String = ""
Dim anzahl As Integer
Dim angauf_wert As Integer
Dim haupt_wert As Integer
Dim inhalt As String = ""
Dim vorlage As String = "O:\SiemensNX\PLMShare\nx85\win\ugii\templates\protect.prt"

Sub Main (ByVal args() As String)

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

Dies ist das Ende meines vorhandenen Journals:

    If File.Exists(pfad) Then
My.Computer.FileSystem.DeleteFile(vorlage)
My.Computer.FileSystem.CopyFile(pfad, vorlage)
MsgBox("Die Datei wurde erzeugt")
    Else
        MsgBox("Die Datei:    " & answer & "    existiert nicht!" & vbCrLf & "Das Journal wird beendet")
        Exit Sub       
    End If
End Sub
End Module

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

Und so hatte ich es mir gedacht:

    If File.Exists(pfad) Then
My.Computer.FileSystem.DeleteFile(vorlage)
My.Computer.FileSystem.CopyFile(pfad, vorlage)
        MsgBox("Die Datei wurde erzeugt")                                         
    Else
        MsgBox("Die Datei:    " & answer & "    existiert nicht!" & vbCrLf & "Das Journal wird beendet")
        Exit Sub       
    End If
         
Declare Sub MACRO_playback_from_usertool Lib "libugui" Alias "?MACRO_playback_from_usertool@@YAXPEBD@Z" (ByVal lpName As String)
Sub Main
MACRO_playback_from_usertool("O:\SiemensNX\PLMShare\nx85\A+F\Macro\datei_schreibgeschuetzt_oeffnen.macro")

End Sub
End Module

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

Anbei die Fehlermeldung. Wäre nett, wenn mir jemand einen Tipp geben würde.
Danke und Gruß
Dirk

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

---

Hallo Dirk,

die zweite Sub Main ist das, was mir auf den ersten Blick auffällt. Wo soll das Programm nun anfangen ??

Daneben gibt's einige Probleme, wenn ein Journal ein weiteres startet: Welche Session wird verwendet ? Wie findet Nr. 2 die Session von Nr.1 ? Müssen Variablen übergeben werden ? .........

Wenn's nicht zuviele Umstände macht, kopier' die Funktionen aus 2 in 1 und ruf' sie dann direkt auf. Alles andere ist im Journal nicht vorgesehen, auch der Aufruf via Macro ist nur eine schlechte Bastlelei.

Gruß, Michael

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

---

Fehlermeldung_Macro_aus_Journal_starten_2.jpg

Hallo Michael,

zuerstmal Danke für die Antwort.
Habs nur nicht ganz verstanden.
Mit dem 2ten Sub Main: ok

Ich möchte allerdings kein Journal mit einem weiteren starten; sondern ein Marco aus einem Journal heraus starten.

Dazu habe ich ein existierendes Journal (Nr.1), welches Dateien sucht, ggf findet wenn existent und kopiert.
Dieses Journal soll am Schluß ein Macro starten.
Das Journal Nr. 2 (nämlich dein Code aus deinem Beitrag vom 29.07.10 (den Aufruf eines Macros)) habe ich nur für mich zum Verständnis erstellt und gestetet. Dieses Journal funktioniert auch für sich.
Ich hatte nun versucht den Inhalt von Journal Nr.2 ans Ende von Journal Nr.1 zu kopieren. Eben ohne Erfolg.

Wenn ich das 2te Sub Main weglasse kommt es weiterhin zu einer Fehlermeldung.

Danke und Gruß
Dirk

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

---

Hallo Dirk,

das "Declare Sub MACRO_playback_from_usertool...." muss vor das erste Main. Das zweite Main muss ganz raus.

Gruß
Stefan

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

---

Hi,

ich klinke mich hierzu mal ein.
Bei mir funtioniert es so sehr gut:

Code:

---

Module NXJournal

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

  Sub Main

    MACRO_playback_from_usertool("C:\temp\test.macro")

  End Sub

End Module

---

Aber das Journal ist schon lange durch und das Macro kommt erst später zum Ende...

gibt es ne Möglichkeit das Journal so lange warten zu lassen, bis das Macro durch ist?
gruß
jo.sch

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

---

Hallo Stefan,

super hat funktioniert!

Vielen Dank und Gruß
Dirk

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

---

@ Dirk: Hab' wegen der zwei erwähnten Journals zuerst gedacht, Du willst mit dem Makro wieder ein Journal (die Nr. 2) anstossen.

@jo.sch: Das Makro macht sein eigenes Ding, nicht synchron zum Journal. Es läuft, nachdem es angestossen wurde, einfach wann es will. Aber Du kannst ff. machen: Nach dem Makro-Aufruf im Journal eine Warteschleife einbauen, die auf irgendwas wartet, was das Makro am Ende, quasi als Signal, erzeugt. z.B. ein bestimmtes Attribut anlegen. Sobald das existiert, weis das Journal: Makro ist durch, es kann jetzt weitergehen.

Gruß, Michael

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

---

@mseufert

leider muss ich dieses alte Thema nochmal aufwärmen. Wie würde so ein Attribut aussehen auf das das Makro wartet ?

Gruß

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

---

... ein x-beliebiges Attribut eben, Bsp: StringAttribute, Title MacroFinished.

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

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