Probing Routines

o<znullen> sub
G91                 ( relative mode for probing)
G38.2 Z-25 F100     ( trip switch on the way down)
G90                 ( absolute mode)
G92 Z-3         (Probe trigger z offset MAKE ZERO if Direkt Nouzzle)
G1 Z3.5 F150  (Move free)
o<znullen> endsub
M2

o<probe_hole> sub
 o155 if [#5400 GT 0] (is there a tool loaded)
   o156 if [#5410 GT 0] (tool diameter greater Zero)
	(DEBUG, ToolDiameter = #5410)
        #<_toolradius> = [#5410 / 2]
        G91   ( relative mode for probing)
        G38.2 x-20 F120     ( trip switch on the way X Minus Fast)
        G1 x5 F100 
        G38.2 x-6 F20     ( trip switch on the way X Minus slow)
	#20= #<_x>   (Remember X pos minus)
        G1 x3 F100 
        G38.2 x50 F120     ( trip switch on the way X Minus Fast)
        G1 x-5 F100 
        G38.2 x6 F40     ( trip switch on the way X Minus slow)
        #21 = [[#<_x> - #20]/2]
	#22 =[#20 + #21]
	G90
        G1 x#22 f500 (absolut X Mitte)
	G10 L20 P1 X0 
	(Y Richtung)
        G91   ( relative mode for probing)
        G38.2 y-20 F120     ( trip switch on the way Y Minus Fast)
        G1 y5 F100 
        G38.2 y-6 F20     ( trip switch on the way y Minus slow)
	#20= #<_y>   (Remember Y pos minus)
        G1 y5 F100 
        G38.2 y50 F120     ( trip switch on the way y Minus Fast)
        G1 y-5 F100 
        G38.2 y6 F40     ( trip switch on the way y Minus slow)
        #21 = [[#<_y> - #20]/2]
	#22 =[#20 + #21]
	G90
        G1 y#22 f500 (absolut y Mitte)
	G10 L20 P1 Y0 
        m100 ( Programm Neu Laden) 
	(msg, Fertig gesetzt wurde G54 XY mit Werkzeug #5400)
   o156 endif 
  (msg, NO TOOL or Tool #5400)
 o155 endif 
o<probe_hole> endsub
M2

o<autonullen> sub
 o155 if [#5400 GT 0] (is there a tool loaded)
   o156 if [#5410 GT 0] (tool diameter greater Zero)
	(DEBUG, ToolDiameter = #5410)
        #<_toolradius> = [#5410 / 2]
        G91   ( relative mode for probing)
        G38.2 z-20 F80     ( trip switch on the way X Plus)
	(msg, Set G54 Z null  )
	G10 L20 P1 Z0 
	G1 z5 F250
        G1 X-10 ( X Freifahren)
      G90
      G1 Z-5 F250 ( Absolut Z runter )
        G91   ( relative mode for probing)
        G38.2 x20 F80     ( trip switch on the way X Plus)
	G90                 ( absolute mode)
	(msg, Set G54 X null REAL acording to tool diameter )
	G10 L20 P1 x-#<_toolradius> 
	G1 X-#5410 F250
        g1 z5
        g1 x [1.5* #5410]
        g91
        g1 y-10 f250
        g90 
        g1 z-5 f250
        g91
        G38.2 y20 F80     ( trip switch on the way Y Plus)
	G90                 ( absolute mode)
	(msg, Set G54 y null REAL acording to tool diameter )
	G10 L20 P1 y-#<_toolradius> 
	G1 y-#5410 F250
        g1 z5 f800
        m100
	(msg, Fertig gesetzt wurde G54 XYZ mit Werkzeug #5400)
   o156 endif 
 o155 endif 
(msg, TOOL is #5400 )
o<autonullen> endsub
M2

#!/bin/bash
# axis reload after g92 M100
axis-remote --reload
exit 0