O9022.NC

%
O9022(MUSHROOM PLANE MEASUREMENT) 
 
#150=10.(DIAMETR TOOL) 
#151=30.(DIAMETR MUSHROOM) 
#152=15.(DIAMETR MEASURMENT) 
#153=5.(HEIGNH MUSHROOM) 
#154=2.(LEGHT OVERRUN) 
 
#155=500.(FAST FEED SPEED) 
#156=300.(FEED SPEED)
#157=40.(WORK FEED SPEED)
 
#158=5.(MAX LEGHT SHIFT) 
#159=1.(STEP SHIFT)
 
 
#160=99(TYPE STARTUP)
IF[#4000EQ9022]THEN#160=30(MACRO NAMES MUST BE EQUIVALENT) 
 
 
(---- MUSHROOM POSITION ----)
#161=[#5001-[#5021-#981]](X ABS COORDINATES) 
#162=[#5002-[#5022-#982]](Y ABS COORDINATES) 
#163=[#5003-[#5023-#983]](Z ABS COORDINATES) 
(---- END ----)

 
G90G1X#161Y#162F#155 
G90G1Z[#163+2.]F#155 
 
 
(---- MEASURMENT X AXIS ----)
 
(X+ TOUCH) 
G91G1X[#152/2+#150/2]F#155 
G91G31P1Z-3.F#157(TOUCH) 
G4X0.1 
#181=#5023(Z MACHINE)
G91G1Z2.F#156(REBOUND) 
G4X0.1 
G90G1X#161Y#162F#155 
 
(X- TOUCH) 
G91G1X[-#152/2-#150/2]F#155
G91G31P1Z-3.F#157(TOUCH) 
G4X0.1 
#182=#5023(Z MACHINE)
G91G1Z2.F#156(REBOUND) 
G4X0.1 
G90G1X#161Y#162F#155 
 
(---- END ----)
 
 
(---- MEASURMENT Y AXIS ----)
 
(Y+ TOUCH) 
G91G1Y[#152/2+#150/2]F#155 
G91G31P1Z-3.F#157(TOUCH) 
G4X0.1 
#183=#5023(Z MACHINE)
G91G1Z2.F#156(REBOUND) 
G4X0.1 
G90G1X#161Y#162F#155 
 
(Y- TOUCH) 
G91G1Y[-#152/2-#150/2]F#155
G91G31P1Z-3.F#157(TOUCH) 
G4X0.1 
#184=#5023(Z MACHINE)
G91G1Z2.F#156(REBOUND) 
G4X0.1 
G90G1X#161Y#162F#155 
 
(---- END ----)
 
 
(---- OUTPUT ----) 
#990=[#181+#182+#183+#184]/4(Z MACHINE POINT) 
#991=#183-#990(MUSHROOM FACE RELATIVE POINT +Y) 
#992=#181-#990(MUSHROOM FACE RELATIVE POINT +X) 
#993=#184-#990(MUSHROOM FACE RELATIVE POINT -Y) 
#994=#182-#990(MUSHROOM FACE RELATIVE POINT -X) 
(---- END ----)


G4X0.5  
M#160(END PROGRAM) 
 
(ERRORS) 
N1201#3000=1(WRONG DIA TOOL OR MUSHROOM) 
N1202#3000=2(MUSHROOM NOT FOUND) 
%