Zgadza się to jest uniwersalny program na wierszowanie promieni wklęsłych i wypukłych na każdym konturze. Oczywiście jest kompletny ale brakuje jeszcze części Z Q parametrami wyjściowymi. Ja ten program wywołuję za pomocą Cycl Def 12.

Einstein też się nie jeb.... od razu wymyślił cały kosmos. Ważne , że jest pozabezpieczane przed niechcianymi niespodziankami. A poza tym na starszych też chodzi.

0 BEGIN PGM PROFILRADIUS MM
1 FN 18: SYSREAD Q0 = ID20 NR5
2 FN 9: IF +Q0 EQU +0 GOTO LBL "WYKONAJ"
3 FN 9: IF +Q0 EQU +1 GOTO LBL "WYKONAJ"
4 FN 14: ERROR= 1000
5 LBL "WYKONAJ"
6 ;Promien plytki.
7 FN 18: SYSREAD Q20 = ID20 NR1
8 FN 18: SYSREAD Q21 = ID50 NR3 IDXQ20
9 FN 9: IF +Q351 EQU +1 GOTO LBL "ZGODNIE"
10 FN 9: IF +Q351 EQU -1 GOTO LBL "PRZECIWNIE"
11 FN 9: IF +Q351 EQU +0 GOTO LBL "WOBIESTRONY"
12 FN 16: F-PRINT TNC:\CYCLES\Q351.A / SCREEN:
13 M9 M5
14 FN 14: ERROR= 1011
15 LBL "ZGODNIE"
16 ;Warunek dla rodzaju promienia.
17 FN 9: IF +Q389 EQU +1 GOTO LBL 100
18 FN 9: IF +Q389 EQU -1 GOTO LBL 140
19 FN 16: F-PRINT TNC:\CYCLES\Q389.A / SCREEN:
20 M9 M5
21 FN 14: ERROR= 1011
22 LBL 100
23 ;Kat startu promienia
24 Q99 = 90
25 ;Krok frezowania
26 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
27 ;Start w osi Z
28 Q97 = Q203
29 ;Promien zaokraglenia
30 Q96 = Q201
31 ;Posuwy
32 Q95 = Q207
33 Q94 = Q253
34 ;2-ga bezpieczna wysok.
35 Q84 = Q203 + Q204
36 ;Naddatek
37 FN 1: Q23 =+Q21 + +Q206
38 FN 1: Q24 =+Q201 + +Q23
39 LBL 101
40 FN 6: Q89 = SIN +Q99
41 FN 7: Q88 = COS +Q99
42 FN 3: Q87 =+Q88 * +Q24
43 FN 2: Q87 =+Q87 - +Q24
44 FN 3: Q86 =+Q89 * +Q24
45 FN 2: Q86 =+Q24 - +Q86
46 FN 2: Q86 =+Q203 - +Q86
47 FN 1: Q85 =+Q86 + +Q200
48 FN 1: Q84 =+Q203 + +Q204
49 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
50 CYCL CALL
51 FN 2: Q99 =+Q99 - +Q98
52 FN 11: IF +Q99 GT +0 GOTO LBL 101
53 FN 9: IF +Q99 EQU +0 GOTO LBL 102
54 FN 12: IF +Q99 LT +0 GOTO LBL 102
55 LBL 102
56 FN 0: Q99 =+0
57 FN 6: Q89 = SIN +Q99
58 FN 7: Q88 = COS +Q99
59 FN 3: Q87 =+Q88 * +Q24
60 FN 2: Q87 =+Q87 - +Q24
61 FN 3: Q86 =+Q89 * +Q24
62 FN 2: Q86 =+Q24 - +Q86
63 FN 2: Q86 =+Q203 - +Q86
64 FN 1: Q85 =+Q86 + +Q200
65 FN 1: Q84 =+Q203 + +Q204
66 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
67 CYCL CALL
68 CALL LBL 999
69 LBL 140
70 FN 9: IF +Q355 EQU +0 GOTO LBL 150
71 ;2-ga bezp. wysok.
72 Q84 = Q203 + Q204
73 Q85 = Q203 - Q249 + Q201 + Q21
74 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q21 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q206 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q202 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
75 CYCL CALL
76 LBL 150
77 Q99 = 0
78 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
79 Q97 = Q203 - Q249 + Q201 - Q21
80 Q95 = Q207
81 Q94 = Q253
82 ;2-ga bezp. wysok.
83 Q84 = Q203 + Q204
84 Q23 = Q21 + Q206
85 Q24 = Q201 - Q23
86 LBL 151
87 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q21 )
88 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
89 Q85 = Q86 + Q200
90 FN 1: Q84 =+Q203 + +Q204
91 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
92 CYCL CALL
93 Q99 = Q99 + Q98
94 FN 11: IF +Q99 GT +90 GOTO LBL 152
95 FN 9: IF +Q99 EQU +90 GOTO LBL 152
96 FN 12: IF +Q99 LT +90 GOTO LBL 151
97 LBL 152
98 Q99 = 90
99 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q23 )
100 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
101 Q85 = Q86 + Q200
102 FN 1: Q84 =+Q203 + +Q204
103 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
104 CYCL CALL
105 CALL LBL 999
106 LBL "PRZECIWNIE"
107 FN 9: IF +Q389 EQU +1 GOTO LBL 200
108 FN 9: IF +Q389 EQU -1 GOTO LBL 240
109 FN 16: F-PRINT TNC:\CYCLES\Q389.A / SCREEN:
110 M9 M5
111 FN 14: ERROR= 1080
112 LBL 200
113 Q99 = 90
114 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
115 Q97 = Q203
116 Q96 = Q201
117 Q95 = Q207
118 Q94 = Q253
119 Q84 = Q203 + Q204
120 FN 1: Q23 =+Q21 + +Q206
121 FN 1: Q24 =+Q201 + +Q23
122 LBL 201
123 FN 6: Q89 = SIN +Q99
124 FN 7: Q88 = COS +Q99
125 FN 3: Q87 =+Q88 * +Q24
126 FN 2: Q87 =+Q87 - +Q24
127 FN 3: Q86 =+Q89 * +Q24
128 FN 2: Q86 =+Q24 - +Q86
129 FN 2: Q86 =+Q203 - +Q86
130 FN 1: Q85 =+Q86 + +Q200
131 FN 1: Q84 =+Q203 + +Q204
132 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
133 CYCL CALL
134 FN 2: Q99 =+Q99 - +Q98
135 FN 11: IF +Q99 GT +0 GOTO LBL 201
136 FN 9: IF +Q99 EQU +0 GOTO LBL 202
137 FN 12: IF +Q99 LT +0 GOTO LBL 202
138 LBL 202
139 FN 0: Q99 =+0
140 FN 6: Q89 = SIN +Q99
141 FN 7: Q88 = COS +Q99
142 FN 3: Q87 =+Q88 * +Q24
143 FN 2: Q87 =+Q87 - +Q24
144 FN 3: Q86 =+Q89 * +Q24
145 FN 2: Q86 =+Q24 - +Q86
146 FN 2: Q86 =+Q203 - +Q86
147 FN 1: Q85 =+Q86 + +Q200
148 FN 1: Q84 =+Q203 + +Q204
149 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
150 CYCL CALL
151 CALL LBL 999
152 LBL 240
153 FN 9: IF +Q355 EQU +0 GOTO LBL 250
154 Q84 = Q203 + Q204
155 Q85 = Q203 - Q249 + Q201 + Q21
156 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q21 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q206 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q202 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
157 CYCL CALL
158 LBL 250
159 Q99 = 0
160 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
161 Q97 = Q203 - Q249 + Q201 - Q21
162 Q95 = Q207
163 Q94 = Q253
164 Q84 = Q203 + Q204
165 Q23 = Q21 + Q206
166 Q24 = Q201 - Q23
167 ;
168 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q21 )
169 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
170 Q85 = Q86 + Q200
171 FN 1: Q84 =+Q203 + +Q204
172 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
173 CYCL CALL
174 Q99 = Q99 + Q98
175 FN 11: IF +Q99 GT +90 GOTO LBL 252
176 FN 9: IF +Q99 EQU +90 GOTO LBL 252
177 FN 12: IF +Q99 LT +90 GOTO LBL 251
178 LBL 252
179 Q99 = 90
180 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q23 )
181 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
182 Q85 = Q86 + Q200
183 FN 1: Q84 =+Q203 + +Q204
184 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
185 CYCL CALL
186 CALL LBL 999
187 LBL "WOBIESTRONY"
188 ;Warunek dla rodzaju promienia.
189 FN 9: IF +Q389 EQU +1 GOTO LBL 300
190 FN 9: IF +Q389 EQU -1 GOTO LBL 340
191 FN 16: F-PRINT TNC:\CYCLES\Q389.A / SCREEN:
192 M9 M5
193 FN 14: ERROR= 1011
194 LBL 300
195 Q99 = 90
196 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
197 Q97 = Q203
198 Q96 = Q201
199 Q95 = Q207
200 Q94 = Q253
201 FN 1: Q23 =+Q21 + +Q206
202 FN 1: Q24 =+Q201 + +Q23
203 FN 1: Q29 =+Q203 + +Q200
204 LBL 301
205 FN 6: Q89 = SIN +Q99
206 FN 7: Q88 = COS +Q99
207 FN 3: Q87 =+Q88 * +Q24
208 FN 2: Q87 =+Q87 - +Q24
209 FN 3: Q86 =+Q89 * +Q24
210 FN 2: Q86 =+Q24 - +Q86
211 FN 2: Q86 =+Q203 - +Q86
212 FN 1: Q85 =+Q86 + +Q200
213 FN 0: Q84 =+Q85
214 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
215 CYCL CALL
216 FN 2: Q99 =+Q99 - +Q98
217 FN 11: IF +Q99 GT +0 GOTO LBL 311
218 FN 9: IF +Q99 EQU +0 GOTO LBL 312
219 FN 12: IF +Q99 LT +0 GOTO LBL 312
220 LBL 311
221 FN 6: Q89 = SIN +Q99
222 FN 7: Q88 = COS +Q99
223 FN 3: Q87 =+Q88 * +Q24
224 FN 2: Q87 =+Q87 - +Q24
225 FN 3: Q86 =+Q89 * +Q24
226 FN 2: Q86 =+Q24 - +Q86
227 FN 2: Q86 =+Q203 - +Q86
228 FN 1: Q85 =+Q86 + +Q200
229 FN 0: Q84 =+Q85
230 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
231 CYCL CALL
232 FN 2: Q99 =+Q99 - +Q98
233 FN 11: IF +Q99 GT +0 GOTO LBL 301
234 FN 9: IF +Q99 EQU +0 GOTO LBL 313
235 FN 12: IF +Q99 LT +0 GOTO LBL 313
236 LBL 312
237 FN 0: Q99 =+0
238 FN 6: Q89 = SIN +Q99
239 FN 7: Q88 = COS +Q99
240 FN 3: Q87 =+Q88 * +Q24
241 FN 2: Q87 =+Q87 - +Q24
242 FN 3: Q86 =+Q89 * +Q24
243 FN 2: Q86 =+Q24 - +Q86
244 FN 2: Q86 =+Q203 - +Q86
245 FN 1: Q85 =+Q86 + +Q200
246 FN 0: Q84 =+Q85
247 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
248 CYCL CALL
249 CALL LBL 999
250 LBL 313
251 FN 0: Q99 =+0
252 FN 6: Q89 = SIN +Q99
253 FN 7: Q88 = COS +Q99
254 FN 3: Q87 =+Q88 * +Q24
255 FN 2: Q87 =+Q87 - +Q24
256 FN 3: Q86 =+Q89 * +Q24
257 FN 2: Q86 =+Q24 - +Q86
258 FN 2: Q86 =+Q203 - +Q86
259 FN 1: Q85 =+Q86 + +Q200
260 FN 0: Q84 =+Q85
261 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
262 CYCL CALL
263 CALL LBL 999
264 LBL 340
265 FN 9: IF +Q355 EQU +0 GOTO LBL 350
266 Q84 = Q203 + Q204
267 Q85 = Q203 - Q249 + Q201 + Q21
268 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q21 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q206 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q202 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+0 ;RODZAJ FREZOWANIA
269 CYCL CALL
270 LBL 350
271 Q99 = 0
272 Q98 = ( Q202 * 360 ) / ( 2 * PI * Q201 )
273 Q97 = Q203 - Q249 + Q201 - Q21
274 Q95 = Q207
275 Q94 = Q253
276 Q84 = Q203 + Q204
277 Q23 = Q21 + Q206
278 Q24 = Q201 - Q23
279 LBL 351
280 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q21 )
281 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
282 Q85 = Q86 + Q200
283 Q84 = Q85
284 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
285 CYCL CALL
286 Q99 = Q99 + Q98
287 FN 11: IF +Q99 GT +90 GOTO LBL 353
288 FN 9: IF +Q99 EQU +90 GOTO LBL 353
289 FN 12: IF +Q99 LT +90 GOTO LBL 352
290 LBL 352
291 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q21 )
292 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
293 Q85 = Q86 + Q200
294 Q84 = Q85
295 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
296 CYCL CALL
297 Q99 = Q99 + Q98
298 FN 11: IF +Q99 GT +90 GOTO LBL 354
299 FN 9: IF +Q99 EQU +90 GOTO LBL 354
300 FN 12: IF +Q99 LT +90 GOTO LBL 351
301 LBL 353
302 Q99 = 90
303 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q23 )
304 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
305 Q84 = Q85
306 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=-1 ;RODZAJ FREZOWANIA
307 CYCL CALL
308 CALL LBL 999
309 LBL 354
310 Q99 = 90
311 Q87 = ABS ( - Q201 + ( COS Q99 * Q24 ) + Q23 )
312 Q86 = Q203 - Q249 + Q201 - ( SIN Q99 * Q24 ) - Q23
313 Q85 = Q86 + Q200
314 Q84 = Q85
315 CYCL DEF 25 KONTUR OTWARTY ~
Q1=-Q200 ;GLEBOKOSC FREZOWANIA ~
Q3=+Q87 ;NADDATEK NA STRONE ~
Q5=+Q85 ;WSPOLRZEDNE POWIERZ. ~
Q7=+Q84 ;BEZPIECZNA WYSOKOSC ~
Q10=-Q200 ;GLEBOKOSC DOSUWU ~
Q11=+Q253 ;WARTOSC POSUWU WGL. ~
Q12=+Q207 ;POSUW PRZY ROZWIERC. ~
Q15=+1 ;RODZAJ FREZOWANIA
316 CYCL CALL
317 LBL 999
318 L Z+Q204 R0 FMAX
319 END PGM PROFILRADIUS MM



Mam pytanie do kolegi Belof co o tym sądzisz.

Dodane 3 minuty :
Oczywiście to nie jest wszystko działa 100% na 530 na 640 też ale z małą modyfikacją,

Dodane 9 minuty 35 sekundy:
Widzę , że kolega Belof nie jest w ciemię bity. Chętnie porozmawiam na priv o sterowaniu HH.

Proszę o przetestowanie mojego programu na rowki segera. To jest podprogram zrobiony jakby był Cycl Cal aktywny. Wrzućcie podprogram SEEGER na TNC:\CYCLES\ , a w programie z którego zaczynacie wpiszcie tylko Q parametry z pliku frezowanie segera.

Dodane 4 minuty 52 sekundy:
Zainteresowanych proszę o kontakt na priv , bo nie umiem tego wrzucić na forum.

Kolego Rafa30 podaj jakies przykłady może coś wymyślimy wspólnie. Teraz pracuję nad cyklem do frezowania rowków segera, może coś z tego bedzie. Chetnie się podziele swoimi cyklami.

Przykro mi bardzo kolego Belof , ale nie zgadles jestem zwyklym pracownikiem, pracuje na maszynie i nie wydalem na szkolenia ani jednego euro. Po prostu potrzeba zmusza czasami do kreatywnego dzialania. Zrobilem kilka takich podprogramow parametrycznych, ktore bardzo pomagaja w pracy, ale szukam jeszcze jakis pomyslow. Jakis czas temu opisywalem na tym forum podprogram do frezowania promieni ale nie przypadl nikomu do gustu.

Kolego rafa30 chyba juz kiedys rozmawialismy na temat cykli wlasnych, jakis czas temu. Szukam pomyslow na jakies cykle na ktore HH jeszcze nie wpadl. Zrobilem juz np. na fazki i promienie wklesle i wypukle na konturach. Planowanie powierzchni prostokatnych i okraglych. A teraz pracuje nad cyklem do frezowania rowkow segera.

Szukam pomysłów na cykle własne na iTNC 530 i inne. Czy szanowni użytkownicy tego forum mają jakieś pomysły na cykle, które mogły by ułatwić pracę operatorowi?.