|
Macro aus Journal
heraus starten
Um ein Macro aus
einem Journal heraus auszurufen kann folgender Schnipsel
verwendet werden. Dabei wird davon ausgegangen dass das
Macro im gleichen Verzeichnis liegt wie das Journal.
Möchte man das Macro über eine absolute Pfadangabe
starten so kann auf die Function "ExtractFilename"
verzichtet werden und beim Aufruf von "StartMacro" wird
der komplette Pfad als String übergeben.
|
|
Imports
System
Imports NXOpen
Module NXJournal
Declare Sub StartMacro
Lib "libugui"
Alias "?MACRO_playback_from_usertool@@YAXPEBD@Z"
(ByVal lpName
as String)
Sub Main ()
dim theSession
as Session = Session.GetSession()
dim MacroPath
as String
MacroPath = theSession.ExecutingJournal()
MacroPath = ExtractFileDir(MacroPath)
StartMacro(MacroPath &"\MyMacro.macro")
End Sub
Function ExtractFileDir(DateiPfad)
dim s as
String
dim Pos as
String
s = DateiPfad
s = StrReverse(s)
Pos = InStr(1,s,"\")
s = right(s,Len(s) -Pos)
s = StrReverse(s)
if Len(s) =
2 then
s = s &"\"
ExtractFileDir = s
End Function
End Module |
|
