% ;(Abzeilen Parameter-ikremental Radius) G90 G17 G40 G80 G00 G21 G64 P0.01 G90.1 (Radius Center Absolut) G0 G53 Z148 G0 Y200 ;--------Parameter--------- #3001=1200 (Z-Vorschub) #3002=1200 (X-Y Vorschub) #3005=20 (Inkremantal Abheben) ;--------Parameter ENDE--------- ; (Konturanfang Rechnung) o1010 sub G90.1 (radius Center Absolut) G0 X-50 Y-65 G0 Z2 G1 G90 Z#4010 F#3001 (DEBUG, Tiefe soll #4010) G1 G90 G41 X#4005 Y-60 G1 y-10 G02 G91 ^-112 I-14 J-10 G1 G90 X0 G1 Y-55 G1 X-35 G90 G0 Z2 #4005=[#4005+#4006] G40 o1010 endsub ; (Konturende Rechnen) ;-----Tiefenrechnung Anfang----- o100 sub o10 While [#4010 GT #4007] o1010 call #4010 = [#4010 + #4002] o10 endwhile o11 While [#4010 EQ #4007] o1010 call #4010 = [#4010 + #4002] o11 endwhile G0 Z10 G40 G90 M05 G0 G53 Z148 G0 Y200 G90 G91.1 o100 endsub ;------Tiefenrechnung Ende------ o101 sub (Schruppen) ;o call ;M06 T101 G10 L1 P101 R7.8(R7.68) M06 T102 G10 L1 P102 R5.90 ;o call G0 G53 Z148 M3 S2000 #4010=-0.15 (Starthöhe) #4002=-0.15 (Z-Zustellung) #4005=-24(Startposition X) #4006=-0.13(versatz zustellung) #4007=-20.6 (Endtiefe) o100 call G90 G0 G53 Z148 G0 Y200 o101 endsub o101 call (Schruppen) M30 %