Hallo Wolfgang,

"Geht nicht" gibt es nicht. Ich habe es hinbekommen.

Die Tasten (F+) "OemTrig1" und (F-) "OemTrig2" rufen das Makro "M900" auf.
Im Makro wird dann der Vorschub mit "DoOemButton(108)" und "DoOemButton(109)" eingestellt. Da muss noch deutlich verfeinert werden, aber ersteinmal geht es grundsätzlich.

Die Tasten (J+) "OemTrig3" und (J-) "OemTrig4" rufen ebenfalls des Makro M900.
Im Makro wird dann die aktuelle Schrittweite mit "Schrittweite = GetOemDro(828)" abgefragt. Je nachdem, welche Schrittweite aktiv ist wird mit "DoOemButton(191...194)" die nächst höhere oder nächst kleiner Schrittweite eingestellt. Anschließend werden die LED's der entsprechenden Schrittweiten mit "ActivateSignal(Output1...4)" und "DeactivateSignal(Output1...4)" gesteuert.
Da das Makro bei Programmstart (Mach3) und auch dei "Reset" automatisch aufgerufen wird, werden die LED's der Schrittweite aktualisiert.

Die Tasten (Start) "OemTrig5 und (Stop) "OemTrig6" sollen später ein geladenes Programm starten bzw. stopen. Ob das wirklich so kommt, ist noch offen. Vielleicht verwende ich die Tasten auch für etwas anderes. Sie sind erst einmal hardwaretechnisch da.

Hier ist der Inhalt meines Makro900:

SetTriggerMacro(900)
If IsActive(OemTrig1) Then 'Taste F+ 'MsgBox "Taste F + gedrückt"
DoOemButton(108) ' % Vorschub +
End If

If IsActive(OemTrig2) Then 'Taste F- 'MsgBox "Taste F + gedrückt"
dooembutton(109) ' % Vorschub -
End If

If IsActive(OemTrig3) Then 'Taste J+ 'MsgBox "Taste F+ gedrückt"
Schrittweite = GetOemDro(828)
If Schrittweite = 0.01 Then
DoOemButton(192) '1
ElseIf Schrittweite = 0.1 Then
DoOemButton(191) '0.1
ElseIf Schrittweite = 1 Then
DoOemButton(194) '0.01
End If
End If

If IsActive(OemTrig4) Then 'Taste J- 'MsgBox "Taste J- gedrückt"
Schrittweite = GetOemDro(828)
If Schrittweite = 999 Then
DoOemButton(191) '1
ElseIf Schrittweite = 1 Then
DoOemButton(192) '0.1
ElseIf Schrittweite = 0.1 Then
DoOemButton(193) '0.01
End If
End If

If IsActive(oemtrig5) Then 'Taste Start 'MsgBox " Taste Start gedrückt"
End If

If IsActive(oemtrig6) Then 'Taste Stop 'MsgBox " Taste Stop gedrückt"
End If

'Jog Modus abfragen und entsprechend LED einschalten
If GetOemDro(828) = 0.01 Then
ActivateSignal(output1)
DeactivateSignal(output2)
DeactivateSignal(output3)
DeactivateSignal(output4)
End If

If GetOemDro(828) = 0.1 Then
DeactivateSignal(output1)
ActivateSignal(output2)
DeactivateSignal(output3)
DeactivateSignal(output4)
End If

If GetOemDro(828) = 1 Then
DeactivateSignal(output1)
DeactivateSignal(output2)
ActivateSignal(output3)
DeactivateSignal(output4)
End If

If GetOemDro(828) = 999 Then
DeactivateSignal(output1)
DeactivateSignal(output2)
DeActivateSignal(output3)
ActivateSignal(output4)
End If