Witam!
GOTO to oczywista sprawa, ale nie idzie.
Wykonałem parę prób, myśle że problem jest w tym że omijamy cały początek programu Q....Co z tym zrobić może ktoś ma pomysł??
Pozdrawiam!

Witam!!
Proszę.
0 BEGIN PGM PARAM_R+ZAW10 MM
1 ;NAZWA-P-
2 ;NR RYS
3 ;ZERO W OSI, Z NA POWIERZCHNI
4 ;FR-2-FR.PALCOWY#16
5 ;ROW.-8-MONOLIT#10
6 ;FAZA-19-MONOLIT#10_90ST-Z2
7 ;-----PARAMETRY------------------
8 FN 0: Q1 =+24 ;R-GLOWY
9 FN 0: Q2 =+34 ;SZER.GLOWY
10 FN 0: Q4 =+70 ;FI ZEWN.ZGR.
11 FN 0: Q5 =+50 ;FI NA GOTOWO
12 FN 0: Q6 =+1 ;NA 14 LUB 15
13 ;Q6=+0 DLA GL.15
14 ;Q6=+1 DLA GL.14
15 FN 0: Q7 =+5 ;ZAPAS BEZP.
16 ;-----NIEZMIENIAC----------------
17 FN 4: Q10 =+Q2 DIV +2 ;SZER./2
18 FN 4: Q11 =+Q4 DIV +2 ;FI ZEW./2
19 FN 4: Q12 =+Q5 DIV +2 ;FI GOT./2
20 Q13 = Q10 + 8 + Q7
21 Q14 = Q11 + 8 + Q7
22 FN 2: Q15 =+Q1 - +Q10
23 Q3 = SQRT ( ( Q15 * ( ( 2 * Q1 ) - Q15 ) ) )
24 ;--------------------------------
25 BLK FORM 0.1 Z X-Q12 Y-Q11 Z-20
26 BLK FORM 0.2 X+Q12 Y+Q11 Z+0
27 M51
28 ;FR-2-FR.PALCOWY#16
29 TOOL CALL 2 Z S5000
30 CYCL DEF 7.0 PUNKT BAZOWY
31 CYCL DEF 7.1 X+0
32 CYCL DEF 7.2 Y+0
33 CYCL DEF 7.3 Z+Q6
34 L Z+200 R0 FMAX M31
35 L X+Q13 Y-Q14 R0 FMAX M31
36 L Z+3 R0 FMAX M13
37 L Z+0 R0 FMAX ;START LBL
38 LBL "R"
39 L X+Q13 Y-Q14 R0 FMAX M13
40 L IZ-3 R0 F900
41 APPR LCT X+Q10 Y-Q11 R2 RR
42 L X+Q10 Y-Q3 RR
43 RND R8.5
44 CR X+Q10 Y+Q3 R+Q1 DR+
45 RND R8.5
46 L X+Q10 Y+Q11
47 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
48 L X-Q10 Y+Q3 RR
49 RND R8.5
50 CR X-Q10 Y-Q3 R+Q1 DR+
51 RND R8.5
52 L X-Q10 Y-Q14 RR
53 L X+Q13 Y-Q14 R0 FMAX
54 LBL 0
55 CALL LBL "R" REP4
56 L Z+300 R0 FMAX M5 M9
57 ;ROW.-8-MONOLIT#10
58 TOOL CALL 8 Z S4500
59 L Z+200 R0 FMAX M31
60 L X+0 Y+Q14 R0 FMAX M31
61 L Z+3 FMAX M13
62 LBL "ZAW10"
63 L X+0 Y+Q14 R0 FMAX
64 L Z+3 R0 FMAX
65 L Z-6 R0 FMAX
66 L Y+Q12 F600
67 L Z+3 R0 FMAX
68 L Y+Q14 FMAX
69 L Z-12 R0 FMAX
70 L Y+Q12
71 L Z+3 R0 FMAX
72 L Y+Q14 R0 FMAX
73 L Z-13.2 R0 FMAX ;GL.ZAW10
74 L Y+Q12
75 L Z+3 R0 FMAX
76 LBL 0
77 CYCL DEF 8.0 ODBICIE LUSTRZANE
78 CYCL DEF 8.1 Y
79 CALL LBL "ZAW10"
80 CYCL DEF 8.0 ODBICIE LUSTRZANE
81 CYCL DEF 8.1
82 L Z+300 R0 FMAX M5 M9
83 ;FAZA-19-MONOLIT#10_90ST-Z2
84 TOOL CALL 19 Z S10000 DR-2
85 L Z+200 R0 FMAX M31
86 L X+Q13 Y-Q14 R0 FMAX M31
87 L Z+2 R0 FMAX M13
88 L Z-3.2 R0 FMAX ;GL.FAZY
89 APPR LCT X+Q10 Y-Q11 R5 RR F3000
90 L X+Q10 Y-Q3
91 RND R8.5
92 CR X+Q10 Y+Q3 R+Q1 DR+
93 RND R8.5
94 L X+Q10 Y+Q11
95 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
96 L X-Q10 Y+Q3
97 RND R8.5
98 CR X-Q10 Y-Q3 R+Q1 DR+
99 RND R8.5
100 L X-Q10 Y-Q14
101 L Z+3 R0 FMAX
102 CALL LBL "FAZA_ZAW10"
103 CYCL DEF 10.0 OBROT
104 CYCL DEF 10.1 ROT+180
105 CALL LBL "FAZA_ZAW10"
106 CYCL DEF 10.0 OBROT
107 CYCL DEF 10.1 ROT+0
108 L Z+300 R0 FMAX M5 M9
109 L X+0 Y+360 Z+300 R0 FMAX M31
110 M30
111 LBL "FAZA_ZAW10"
112 L X+0 Y+Q14 R0 FMAX M13
113 L Z-3.2 R0 FMAX
114 APPR LCT X+5 Y+Q11 R2 RR F3000
115 L Y+Q12
116 CC X+0 Y+Q12
117 C X-5 Y+Q12 DR-
118 L X-5 Y+Q11
119 DEP LCT X+0 Y+Q14 R2
120 L Z+3 R0 FMAX
121 LBL 0
122 END PGM PARAM_R+ZAW10 MM

Witam!
Zrobiłem test na maszynie, nie idzie wystartowac z bloku innego narzędzia.
Może ktoś ma jakiś pomysł.

Witam!
A jak się ma sprawa gdy w programie jest kilka narzędzi, czy idzie ruszyć z dowolnego narzędzia???

Witam!
W instrukcji pisze że Q108 definiuje R narzędzia czy coś takiego.
Ten program napisałem sam, przerobiłem tradycyjny na Q parametry po to aby mieć na maszynie jeden a nie dziesięć podobnych. Pomału wchodzę w ten temat, kilka programów już działa.
Moje pytanie, czy zdefiniowane Q parametry na początku programu, działają dla wszystkich narzędzi w programie??? A co z LBLami??

Witam!
Proszę o sprawdzenie programu, co daje Q108.
Nie mogę wystartować od bloku drugiego narzędzia.

0 BEGIN PGM PARAM_R+ZAW10 MM
1 ;NAZWA-P-
2 ;NR RYS
3 ;ZERO W OSI, Z NA POWIERZCHNI
4 ;FR-2-FR.PALCOWY#16
5 ;ROW.-8-MONOLIT#10
6 ;FAZA-19-MONOLIT#10_90ST-Z2
7 BLK FORM 0.1 Z X-70 Y-70 Z-40
8 BLK FORM 0.2 X+70 Y+70 Z+0
9 M51
11 ;-----SPRAWDZIC------------------
12 FN 0: Q1 =+24 ;R-GLOWY
13 FN 0: Q2 =+34 ;SZER.GLOWY
14 FN 0: Q4 =+70 ;FI ZEWN.ZGR.
15 FN 0: Q5 =+50 ;FI NA GOTOWO
16 FN 0: Q6 =+1 ;NA 14 LUB 15
17 ;Q6=+0 DLA GL.15
18 ;Q6=+1 DLA GL.14
19 FN 0: Q7 =+5 ;ZAPAS BEZP.
19 ;-----NIEZMIENIAC----------------
20 FN 4: Q10 =+Q2 DIV +2 ;SZER./2
21 FN 4: Q11 =+Q4 DIV +2 ;FI ZEW./2
22 FN 4: Q12 =+Q5 DIV +2 ;FI GOT./2
23 FN 2: Q15 =+Q1 - +Q10
24 Q3 = SQRT ( ( Q15 * ( ( 2 * Q1 ) - Q15 ) ) )
25 ;--------------------------------
26 ;FR-2-FR.PALCOWY#16
26 TOOL CALL 2 Z S5000
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+Q6
31 L Z+200 R0 FMAX M31
32 Q13 = Q10 + Q108 + Q7
33 Q14 = Q11 + Q108 + Q7
34 L X+Q13 Y-Q14 R0 FMAX M31
35 L Z+3 R0 FMAX M13
36 L Z+0 R0 FMAX ;START LBL
37 LBL "R"
38 L X+Q13 Y-Q14 R0 FMAX M13
39 L IZ-3 R0 F900
40 APPR LCT X+Q10 Y-Q11 R2 RR
41 L X+Q10 Y-Q3
42 RND R8.5
43 CR X+Q10 Y+Q3 R+Q1 DR+
44 RND R8.5
45 L X+Q10 Y+Q11
46 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
47 L X-Q10 Y+Q3 RR
48 RND R8.5
49 CR X-Q10 Y-Q3 R+Q1 DR+
50 RND R8.5
51 L X-Q10 Y-Q14 RR
52 L X+Q13 Y-Q14 R0 FMAX
53 LBL 0
54 CALL LBL "R" REP4
55 L Z+300 R0 FMAX M5 M9
56 ;ROW.-8-MONOLIT#10
56 TOOL CALL 8 Z S4500
57 L Z+200 R0 FMAX M31
59 L X+0 Y+Q14 R0 FMAX M31
60 L Z+3 FMAX M13
61 LBL "ZAW10"
62 L X+0 Y+Q14 R0 FMAX
63 L Z+3 R0 FMAX
64 L Z-6 R0 FMAX
65 L Y+Q12 F600
66 L Z+3 R0 FMAX
67 L Y+Q14 FMAX
68 L Z-12 R0 FMAX
69 L Y+Q12
70 L Z+3 R0 FMAX
71 L Y+Q14 R0 FMAX
72 L Z-13.2 R0 FMAX ;GL.ZAW10
73 L Y+Q12
74 L Z+3 R0 FMAX
75 LBL 0
76 CYCL DEF 8.0 ODBICIE LUSTRZANE
77 CYCL DEF 8.1 Y
78 CALL LBL "ZAW10"
79 CYCL DEF 8.0 ODBICIE LUSTRZANE
80 CYCL DEF 8.1
55 L Z+300 R0 FMAX M5 M9
6 ;FAZA-19-MONOLIT#10_90ST-Z2
26 TOOL CALL 19 Z S10000 DR-2
27 L Z+200 R0 FMAX M31
30 L X+Q13 Y-Q14 R0 FMAX M31
31 L Z+2 R0 FMAX M13
32 L Z-3.2 R0 FMAX ;GL.FAZY
33 APPR LCT X+Q10 Y-Q11 R5 RR F3000
34 L X+Q10 Y-Q3
35 RND R8.5
36 CR X+Q10 Y+Q3 R+Q1 DR+
37 RND R8.5
38 L X+Q10 Y+Q11
39 CR X-Q10 Y+Q11 R+Q11 DR+ FMAX
40 L X-Q10 Y+Q3
41 RND R8.5
42 CR X-Q10 Y-Q3 R+Q1 DR+
43 RND R8.5
44 L X-Q10 Y-Q14
45 L Z+3 R0 FMAX
46 CALL LBL "FAZA_ZAW10"
47 CYCL DEF 10.0 OBROT
48 CYCL DEF 10.1 ROT+180
49 CALL LBL "FAZA_ZAW10"
50 CYCL DEF 10.0 OBROT
51 CYCL DEF 10.1 ROT+0
27 CYCL DEF 7.0 PUNKT BAZOWY
28 CYCL DEF 7.1 X+0
29 CYCL DEF 7.2 Y+0
30 CYCL DEF 7.3 Z+0
81 L Z+300 R0 FMAX M5 M9
82 L X+0 Y+360 Z+300 R0 FMAX M31
83 M30
55 LBL "FAZA_ZAW10"
56 L X+0 Y+Q14 R0 FMAX M13
57 L Z-3.2 R0 FMAX
58 APPR LCT X+5 Y+Q11 R2 RR F3000
59 L Y+Q12
60 CC X+0 Y+Q12
61 C X-5 Y+Q12 DR-
62 L X-5 Y+Q11
63 DEP LCT X+0 Y+Q14 R2
64 L Z+3 R0 FMAX
65 LBL 0
84 END PGM PARAM_R+ZAW10 MM