Great thing about Mach is you can do about anything you want!
Always take precaution when running code and attempt to break it so later it doesn’t happen unexpectedly!!!
1.Place this code on a button or Macro.
2.Make sure you are in a "Stop" condition
3.Run script
The script finds the next M6/M06 from your "Currently Line" after which YOU WILL NEED TO either HIT RUN FROM HERE or SET NEXT LINE. Depending on your needs I did not want to add that in.
Recap this script should only be run when in a stop condition and will only find the next M6/M06 from your current position in the file.
If you find any issues let me know, but use at your own discretion.
Dim currentfile As String
Dim filesys, filetxt, lastline, oldline As String
Dim currentLine As String
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
currentLine = GetOEMDRO(816)
Found = False
currentfile = FileName
Set filetxt = filesys.OpenTextFile(currentfile, ForReading, True)
Dim i As Integer
i = 0
Do While filetxt.AtEndOfStream <> true
linestring = UCase(filetxt.ReadLine()) & " "
If linestring <> " " Then
i = i+1
If i > currentLine Then
If ((InStr(linestring,"M6") >0 Or InStr(linestring,"M06")>0)) Then
SetOEMDRO(816,i)
Found = True
MsgBox "File has been set to line:"& GetOEMDRO(816)&" Your next toolchange position.Your previous line was:"¤tLine
Exit Do
End If
End If
End If
Loop
If Found = False Then
MsgBox "No M6/M06 Found after LINE:"& currentLine
End If
filetxt.Close
Set filesys = Nothing
Set filetxt = Nothing
Have fun!
Thanks Jason Blake