21 lines
601 B
Plaintext
21 lines
601 B
Plaintext
o<change_g43> sub
|
|
;(debug, in change tool_in_spindle=#<tool_in_spindle> current_pocket=#<current_pocket>)
|
|
;(debug, selected_tool=#<selected_tool> selected_pocket=#<selected_pocket>)
|
|
|
|
; we must execute this only in the milltask interpreter
|
|
; or preview will break, so test for '#<_task>' which is 1 for
|
|
; the milltask interpreter and 0 in the UI's
|
|
O100 if [#<_task> EQ 0]
|
|
(debug, Task ist Null)
|
|
O100 return [999]
|
|
O100 endif
|
|
|
|
; using the code being remapped here means 'use builtin behaviour'
|
|
M6
|
|
|
|
; set tool offset
|
|
G43
|
|
|
|
; signal success be returning a value > 0:
|
|
o<change_g43> endsub [1]
|
|
M2 |