

0 BEGIN PGM polwalec MM
1 BLK FORM 0.1 Z X+0 Y-50 Z-50
2 BLK FORM 0.2 X+150 Y+50 Z+0
3 ;gl63
4 TOOL CALL 15 Z S1400 DR+0.5
5 LBL 2
6 ;kat-pierwsze wejscie
7 FN 0: Q1 =+0
8 ;kat-skok
9 FN 0: Q2 =+0.1
10 ;kat-koniec
11 FN 0: Q3 =+90
12 ;r w osi Y
13 FN 0: Q4 =+50
14 ;r w osi Z
15 FN 0: Q5 =+50
16 ;F roboczy
17 FN 0: Q7 =+4000
18 ;odjazd
19 FN 18: SYSREAD Q50 = ID50 NR2
20 Q50 = Q50 + Q4 + 10
21 CALL LBL 100
22 L Z+100 R0 FMAX M3
23 L X-50 Y+Q50 R0 FMAX
24 L Z+50 R0 FMAX
25 APPR LT X-50 Y+0 LEN0 RL F1000 M8
26 L X+185 Y+0 FQ7 M9
27 L Z+55 R0 FMAX
28 L X-50 Y+Q50 R0 FMAX
29 LBL 1
30 Q20 = Q4 * SIN Q1
31 Q21 = Q5 * COS Q1
32 L Z+Q21 R0 FMAX
33 APPR LT X-50 Y+Q20 LEN0 RL FMAX M8
34 L X+185 FQ7 M9
35 L Z+55 R0 FMAX
36 L X-50 Y+Q50 R0 FMAX
37 FN 1: Q1 =+Q1 + +Q2
38 FN 12: IF +Q1 LT +Q3 GOTO LBL 1
39 FN 9: IF +Q1 EQU +Q3 GOTO LBL 1
40 LBL 0
41 CYCL DEF 8.0 ODBICIE LUSTRZANE
42 CYCL DEF 8.1 Y
43 CALL LBL 2
44 CYCL DEF 8.0 ODBICIE LUSTRZANE
45 CYCL DEF 8.1
46 L Z+100 R0 FMAX
47 STOP M30
48 ;baza
49 LBL 100
50 CYCL DEF 7.0 PUNKT BAZOWY
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 CYCL DEF 7.0 PUNKT BAZOWY
55 CYCL DEF 7.1 IX+0
56 CYCL DEF 7.2 IY+0
57 CYCL DEF 7.3 IZ-Q5
58 LBL 0
59 END PGM polwalec MM
Jezeli do wybrania wykanczajacego zastosujemy ta sama glowice bo technologia tego wymaga (kiedy polwalec lezy na plaskiej podstawie). Wystarczy wyzerowac przy narzedziu wartosc w DR .