Nie wiem dlaczego tak tak ostro w materiał się pakujesz jak możesz skorzystać z dojazdu APPR. Ja bym ten program w ten sposób napisał
0 BEGIN PGM XXX MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-20
2 BLK FORM 0.2 X+100 Y+60 Z+0
3 TOOL CALL 2 S1200
4 L X+22 Y-40 FMAX M3
5 L Z-3 FMAX
6 APPR CT X+22 Y+0 CCA90 R+5 RL F30
7 L X+0 Y+22
8 DEP CT CCA90 R+5
9 L Z+50 R0 FMAX
10 L X+78 Y+100 R0 FMAX
11 L Z-3 FMAX
12 APPR CT X+78 Y+60 CCA90 R+5 RL
13 L X+100 Y+38
14 DEP CT CCA90 R+5
15 L Z+50 R0 FMAX
16 L X+22 Y-40 FMAX
17 L Z-3 FMAX
18 APPRT CT X+22 Y+8 CCA90 R+5 RL
19 L X+8
20 CHF 14
21 L Y+52
22 RND R12
23 L X+92
24 CHF 14
25 L Y+8
26 RND R12
27 L X+22
28 DEP CT CCA 90 R5
29 L Z+50 R0 FMAX
30 M2
31 END PGM XXX MM

Zawsze możesz jeszcze dojazdy i odjazdy pozmieniać. Nie wiem jakim narzędziem robiłeś i dlatego może się wydawać że długo dojeżdża. Ale to zawsze można zmienić