%; AIRPODS_SQ_CONTOUR_CUTTER6.MPF ; SINUMERIK 840D Programm ; Rohteil 100 x 100 Null in Mitte ; Kontur ueber Eckpunkte X55 Y55 X-55 Y-55 ; Werkzeug Cutter 6 mm N10 G17 G90 G94 N20 G54 N30 ; Werkzeug aufrufen N40 T="CUTTER_6" D1 N50 M6 N60 S16000 M3 N70 M8 N80 ; Sicherheitebene N90 G0 X0 Y0 Z100 N100 G0 Z5 N110 ; Zustelldaten N120 ; Gesamttiefe Z-6 in 4 Zustellungen N130 #DEP=-6.0 N140 #STEP=-1.5 N150 #ZAKT=0.0 N160 ; Anfahrpunkt fuer Bahnkompensation links G41 N170 ; Start nahe unterer linker Ecke mit Einlauf N180 G0 X-58 Y-58 N190 ; Zustellschleife N200 WHILE [#ZAKT GT #DEP] DO N210 #ZAKT = [#ZAKT + #STEP] N220 IF [#ZAKT LT #DEP] THEN N230 #ZAKT = #DEP N240 ENDIF N250 ; Helix Einfahrt N260 G1 Z[#ZAKT] F300 N270 X-56 Y-55 F1200 N280 ; Bahnkompensation aktivieren D1 enthaelt Radius 3.0 N290 G41 D1 N300 ; Rechteckkontur im Uhrzeigersinn an X55 Y-55 X55 Y55 X-55 Y55 X-55 Y-55 N310 X55 Y-55 N320 X55 Y55 N330 X-55 Y55 N340 X-55 Y-55 N350 ; Auslauf N360 G40 N370 X-58 Y-58 N380 ; Ebenenwechsel fuer naechste Zustellung N390 G0 Z5 N400 ENDWHILE N410 ; Finishpass auf Endtiefe mit geringerer Vorschub N420 G0 X-56 Y-55 Z5 N430 G1 Z[#DEP] F300 N440 G41 D1 N450 F900 N460 X55 Y-55 N470 X55 Y55 N480 X-55 Y55 N490 X-55 Y-55 N500 G40 N510 G0 Z50 N520 ; Rueckzug und Ende N530 M9 N540 M5 N550 G0 X0 Y0 Z100 N560 M30 %