top of page

Hauptprogramm

 

0 BEGIN PGM 0 MM
1 BLK FORM 0.1 Z X-100 Y-75 Z-40
2 BLK FORM 0.2 X+100 Y+75 Z+2
3 ;
4 ; Schruppen
5 ; Fraeser 12
6 TOOL CALL 1 Z S10610
7 CYCL DEF 5.0 KREISTASCHE
8 CYCL DEF 5.1 ABST 2
9 CYCL DEF 5.2 TIEFE -30
10 CYCL DEF 5.3 ZUSTLG 2 F1061
11 CYCL DEF 5.4 RADIUS 25
12 CYCL DEF 5.5 F2122 DR+
13 FN0: Q1=+20
14 FN0: Q2=+2
15 CALL LBL 1
16 CALL LBL 250
17 STOP M0
18 ;
19 ; Schlichten
20 ; Fraeser 10
21 TOOL CALL 2 Z S10610
22 FN0: Q1=+20
23 FN0: Q2=+2
24 FN0: Q3=-30
25 FN0: Q5=2122
26 FN0: Q6=2
27 FN0: Q7=50
28 CYCL DEF 12.0 PGM CALL
29 CYCL DEF 12.1 PGM CIRCLE
30 CALL LBL 1
31 CALL LBL 250
32 STOP M0
33 ;
34 M30
35 ;
36 LBL 1
37 ; Tasche D50
38 L X+50 Y+40 R0 FMAX M3
39 L Z+Q1 FMAX
40 L Z+Q2 F2000 M99
41 L X-50 FMAX M99
42 L Y-40 FMAX M99
43 L X+50 FMAX M99
44 L Z+Q1 FMAX
45 LBL 0
46 ;
47 LBL 250
48 L Z+200 FMAX
49 LBL 0
50 ;

Kreistasche schlichten

0  BEGIN PGM CIRCLE MM 
1  L  Z+Q2 R0 F2000
2  ;----------------
3  Q5 = ABS Q5
4  Q6 = ABS Q6
5  Q7 = ABS Q7
6  ;----------------
7  Q10 = Q7 / 2
8  Q11 = Q2
9  CC IX+0 IY+0
10 LP  PR+Q10  PA+0 RL
11 FN 9: IF +Q6 EQU +0 GOTO LBL 2
12 ;----------------
13 LBL 1
14 Q11 = Q11 - Q6
15 FN 12: IF +Q11 LT +Q3 GOTO LBL 2
16 CP IPA+360  Z+Q11 DR+ FQ5
17 FN 11: IF +Q11 GT +Q3 GOTO LBL 1
18 ;----------------
19 LBL 2
20 CP IPA+360  Z+Q3 DR+ FQ5
21 CP IPA+360  Z+Q3 DR+
22 L  Z+Q1 R0 FMAX
23 LP  PR+0  PA+0 R0 FMAX
24 L F2000
25 ;----------------
26 END PGM CIRCLE MM 

bottom of page