program wykonuje kanałek cylindryczny frezem kulowym......mam znacznie ulepszoną wersję tego programu, o wiele mniej obciążający procesor, z użyciem cc xz, yz, cp ipa, ale na maszynie.....




0 BEGIN PGM -KANALCYLINDER- MM
1 ;
2 *---------------------------------
3 Q1 = 50 ; PROMIEN CYLINDRA
4 Q2 = 0 ; ŚRODEK PROMIENIA
5 Q3 = 500 ; DLUGOSC KANALKA
6 Q4 = 0,5 ; DOSUW
7 *---------------------------------
8 Q25 = 35 ; NUMER NARZEDZIA
9 Q26 = 3000 ; OBROTY
10 Q27 = 400 ; POSUW
11 *---------------------------------
12 Q5 = 150 ; ILOSC KROKOW
13 *---------------------------------
14 ;
15 ;
16 ;
17 Q20 = Q3 / 2
18 Q21 = Q1 + 2
19 Q22 = Q1 + 0.2
20 BLK FORM 0.1 Z X-Q20 Y-Q21 Z-Q22
21 BLK FORM 0.2 X+Q20 Y+Q21 Z+0
22 ;
23 TOOL CALL Q25 Z SQ26 FQ27
24 M3
25 M8
26 ;
27 Q6 = Q1 - Q108
28 Q7 = Q2 - Q108
29 Q8 = Q2 / Q1
30 Q9 = ASIN Q8
31 Q10 = COS Q9 * Q6
32 Q11 = 90 - Q9
33 Q12 = 270 - Q11
34 Q13 = 270 + Q11 + 1
35 Q14 = ( Q3 / 2 ) + Q108 + ( 2 * Q4 )
36 Q15 = ( Q11 * 2 ) / Q5
37 Q17 = - Q14
38 Q18 = ( Q3 / 2 ) + ( 3 * Q4 )
39 ;
40 L X+Q17 Y-Q10 Z+100 R0 FMAX
41 CC Z+Q7 Y+0
42 LBL 2
43 L X+Q17 Y-Q10 Z+20 R0 FMAX
44 L Z+2 R0 FMAX
45 Q17 = Q17 + Q4
46 Q16 = Q12
47 LP PR+Q6 PA+Q16
48 LBL 1
49 Q16 = Q16 + Q15
50 LP PR+Q6 PA+Q16
51 FN 12: IF +Q16 LT +Q13 GOTO LBL 1
52 L Z+20 R0 FMAX
53 FN 12: IF +Q17 LT +Q18 GOTO LBL 2
54 ;
55 ;
56 L Z+100 R0 FMAX
57 M9
58 M5
59 L Z-2 R0 FMAX M91
60 L X+1040 Y+600 R0 FMAX M91
61 M30
62 END PGM -KANALCYLINDER- MM


napisałem już sporo programów uniwersalnych, działają, ten jest w sumie jeden z łatwiejszych.......