
kolega KK 1966 nic nie pisze jak mu poszło czy doszedł już do sedna czy jeszcze nie

Wróć do „Podprogramy w programie”
Myslę że kazdy z nas ten program napisałby inaczej ale i tak by zadziałał0 BEGIN PGM 100 MM
1 BLK FORM 0.1 Z X-75 Y-17.5 Z-2.5
2 BLK FORM 0.2 X+75 Y+17.5 Z+0
3 TOOL CALL 1 Z S3150
4 L Z+100 R0 FMAX M3
5 FN 0: Q1 =+1
6 FN 0: Q2 =+10
7 FN 0: Q3 =+200
8 FN 0: Q4 =-2
9 CYCL DEF 7.0 PUNKT BAZOWY
10 CYCL DEF 7.1 X-64.3
11 CYCL DEF 7.2 Y-8
12 CALL PGM 90
13 CYCL DEF 7.0 PUNKT BAZOWY
14 CYCL DEF 7.1 X-46.55
15 CYCL DEF 7.2 Y-8
16 CALL PGM 91
17 CYCL DEF 7.0 PUNKT BAZOWY
18 CYCL DEF 7.1 X-39.99
19 CYCL DEF 7.2 Y-1.51
20 CALL PGM 92
21 L Z+100 R0 FMAX M6
22 TOOL CALL 2 Z S3150
23 L Z+100 M3
24 CYCL DEF 7.0 PUNKT BAZOWY
25 CYCL DEF 7.1 X-16.3
26 CYCL DEF 7.2 Y-14
27 CALL PGM 93
28 CYCL DEF 7.0 PUNKT BAZOWY
29 CYCL DEF 7.1 X-1.85
30 CYCL DEF 7.2 Y-8
31 CALL PGM 94
32 CYCL DEF 7.0 PUNKT BAZOWY
33 CYCL DEF 7.1 X+16.05
34 CYCL DEF 7.2 Y-1.5
35 CALL PGM 95
36 CYCL DEF 7.0 PUNKT BAZOWY
37 CYCL DEF 7.1 X+24.45
38 CYCL DEF 7.2 Y-8
39 CALL PGM 96
40 CYCL DEF 7.0 PUNKT BAZOWY
41 CYCL DEF 7.1 X+35.7
42 CYCL DEF 7.2 Y-8
43 CALL PGM 96
44 CYCL DEF 7.0 PUNKT BAZOWY
45 CYCL DEF 7.1 X+50.62
46 CYCL DEF 7.2 Y-8
47 CALL PGM 97
48 CYCL DEF 7.0 PUNKT BAZOWY
49 CYCL DEF 7.1 X+64.58
50 CYCL DEF 7.2 Y-3
51 CALL PGM 98
52 L Z+100 R0 FMAX M30
53 END PGM 100 MM
29 L X+0 Y+58 R0 FMAX M13 M99
30 L X+0 Y-58 R0 FMAX M99
31 L Z+100 R0 FMAX M5 M9
32 L Z +100 R0 F MAX M
33 TOOL CALL 48 Z S10000
34 L Z+100 R0 FMAX M 13
32 CALL PGM ZAB_OPIS_KOL130.h ;-------wywołanie-----
33 CYCLE CAAL M
32 L X+0 Y+360 Z+100 R0 FMAX M30
33 END PGM LBL_M12 MM
-----------prog---wywołany-----
0 BEGIN PGM ZAB_OPIS_KOL130 MM
1 L Z+100 R0 FMAX M31
2 CYCL DEF 10.0 OBROT
3 CYCL DEF 10.1 IROT-163 ;POCZ.OPISU
4 L X+0 Y-44 R0 FMAX M31 ;Y=R
5 L Z+5 R0 FMAX M31
6 LBL "OPIS"