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 |
|