Podprogram 4 konturu: wyspa trójkątna po prawej
0 BEGIN PGM 3 MM | |||
1 BLK FORM 0.1 Z X+0 Y+0 Z-40 | |||
2 BLK FORM 0.2 X+100 Y+100 Z+0 | |||
3 TOOL CALL 10 Z S2000 | ; Wywołanie narzędzia, średnica 20 | ||
4 L Z+100 R0 FMAX M3 | ; Przemieszczenie narzędzia | ||
5 CYCL DEF 14.0 GEOMETRIA KONTURU | |||
6 CYCL DEF 14.1 PODPR.KONTURU1 | |||
7 CYCL DEF 25 KONTUR OTWARTY ~ | |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
| |||
8 CYCL CALL | ; Wywołanie cyklu | ||
9 L Z+250 R0 FMAX | ; przemieszczenie narzędzia | ||
10 M30 | ; koniec programu | ||
11 LBL 1 | ; Podprogram konturu | ||
12 L X+0 Y+15 RL | |||
13 L X+5 Y+20 | |||
13 CT X+5 Y+75 | |||
14 CT X+5 Y+75 | |||
15 L Y+95 | |||
16 RND R7.5 | |||
17 L X+50 | |||
18 RND R7.5 | |||
19 L X+100 Y+80 | |||
20 LBL 0 | |||
21 END PGM 3 MM |