Meine Version fuer beliebige Kontur (hier Vollkreis R15.01) und beliebigem Fraeser (Plattenfraeser/Kugelfrs./Torusfrs), wenn Eckenradius im WZ-Speicher (R2) eingetragen !!! BEGIN PGM HALBKUGEL-ALU MM BLK FORM 0.1 Z X-20 Y-20 Z-30 BLK FORM 0.2 X+20 Y+20 Z+0 * LBL1 ** RADIUS AN KONTUR FRAESEN: * * R15 mit SANDVIKFRS D20 * liest Plattenradius vom WZ-Speicher TOOL CALL 29 Z S9900 F4000 Q21 = 29; <-Werkzeugnummer Q22 = 9900 ; <-Drehzahl Q23 = 4000 ; <-Vorschub Q24 = 15 ; <-RadiusAnKontur Q28 = 0 ; <-OBERFLAECHE ! Q32 = 3; <-TeilWinkel Q33 = 0; <-StartWinkel Q34 = - 999; <-Z(maxR+R2+OA!) Q77 = 20 ; <-SichereHoehe Q74 = 0 ; <-Aufmass Z ?!?! ; +-+-+-+ BERECHNUNG +-+-+-+ Q35 = Q32 ; - Teilwinkelspeicher Q32 = Q33 ; - TeilwinkelZumStartw TOOL CALL Q21 Z SQ22 M3 M7 FN 18: SYSREAD Q98 = ID50 NR2 IDXQ21 FN 18: SYSREAD Q99 = ID50 NR3 IDXQ21 Q76 = Q23 * 0.3 Q40 = Q24 + Q99 Q70 = Q98 - Q99 - Q24 Q80 = Q28 + 2 37 Q91 = 0 LBL "2111" Q91 = Q91 + Q32 FN 11: IF +Q91 GT +90 GOTO LBL "2121" LBL "2131" Q71 = SIN Q91 * Q40 Q78 = COS Q91 * Q40 - Q40 + Q80 + Q74 Q73 = Q24 + Q99 - Q71 L IX+0 IY+0 IZ+0 R0 FMAX TOOL CALL Z DL+0 DR+0 Q36 = Q78 - 2 FN 12: IF +Q36 LT +Q34 GOTO LBL "2151" TOOL CALL Z DR-Q73 Q20 = Q36 ; >------------------------------------ CALL LBL 1 ; KONTUR-LBL RADIUS ; >------------------------------------ Q32 = Q35 ; TeilwinkelZumStartw FN 12: IF +Q91 LT +90 GOTO LBL "2111" LBL "2151" L IZ+Q77 R0 FMAX CALL LBL "2141" LBL "2121" Q91 = 90 FN 9: IF +Q91 EQU +90 GOTO LBL "2131" LBL "2141" M9 M30 * LBL-ANFANG * L1 Beliebige Kontur mit R15 LBL1 L X0 Y-15.01 RL FMAX M3 L Z+Q78 FMAX L Z+Q20 FQ76 L FQ23 CC X0 Y0 C X0 Y-15.01 DR- ; [ VK-R15.01] L Z+Q77 FMAX LBL0 END PGM HALBKUGEL-ALU MM
Meine Version fuer beliebige Kontur (hier Vollkreis R15.01) und beliebigem Fraeser (Plattenfraeser/Kugelfrs./Torusfrs), wenn Eckenradius im WZ-Speicher (R2) eingetragen !!!
0 BEGIN PGM HALBKUGEL-ALU MM
6 BLK FORM 0.1 Z X-20 Y-20 Z-30
7 BLK FORM 0.2 X+20 Y+20 Z+0
12 * LBL1 ** RADIUS AN KONTUR FRAESEN: **
13 * R15 von Oben a~3grd / SANDVIKFRS D20
14 * liest Plattenradius vom WZ-Speicher
15 TOOL CALL 29 Z S9900 F4000
16 Q21 = 29; <-Werkzeugnummer
17 Q22 = 9900 ; <-Drehzahl
18 Q23 = 4000 ; <-Vorschub
19 Q24 = 15 ; <-RadiusAnKontur
20 Q28 = 0 ; <-OBERFLAECHE !
21 Q32 = 3; <-TeilWinkel
22 Q33 = 0; <-StartWinkel
23 Q34 = - 999; <-Z(maxR+R2+OA!)
24 Q77 = 20 ; <-SichereHoehe
25 Q74 = 0 ; <-Aufmass Z ?!?!
26 ; +-+-+-+-+-+ BERECHNUNG +-+-+-+-+-+
27 Q35 = Q32 ; - Teilwinkelspeicher
28 Q32 = Q33 ; - TeilwinkelZumStartwinkel
29 TOOL CALL Q21 Z SQ22
30 M3 M7
31 FN 18: SYSREAD Q98 = ID50 NR2 IDXQ21
32 FN 18: SYSREAD Q99 = ID50 NR3 IDXQ21
33 Q76 = Q23 * 0.3
34 Q40 = Q24 + Q99
35 Q70 = Q98 - Q99 - Q24
36 Q80 = Q28 + 2
37 Q91 = 0
38 LBL "2111"
39 Q91 = Q91 + Q32
40 FN 11: IF +Q91 GT +90 GOTO LBL "2121"
41 LBL "2131"
42 Q71 = SIN Q91 * Q40
43 Q78 = COS Q91 * Q40 - Q40 + Q80 + Q74
44 Q73 = Q24 + Q99 - Q71
45 L IX+0 IY+0 IZ+0 R0 FMAX
46 TOOL CALL Z DL+0 DR+0
47 Q36 = Q78 - 2
48 FN 12: IF +Q36 LT +Q34 GOTO LBL "2151"
49 TOOL CALL Z DR-Q73
50 Q20 = Q36
51 ; >------------------------------------
52 CALL LBL 1 ; =====> KONTUR-LBL-RADIUS
53 ; >------------------------------------
54 Q32 = Q35 ; TeilwinkelZumStartwinkel
55 FN 12: IF +Q91 LT +90 GOTO LBL "2111"
56 LBL "2151"
57 L IZ+Q77 R0 FMAX
58 CALL LBL "2141"
59 LBL "2121"
60 Q91 = 90
61 FN 9: IF +Q91 EQU +90 GOTO LBL "2131"
62 LBL "2141"
63 M9
74 M30
75 * LBL-ANFANG
76 * L1 Beliebige Kontur mit R15_ RL
77 LBL1
78 L X0 Y-15.01 RL FMAX M3
79 L Z+Q78 FMAX
80 L Z+Q20 FQ76
81 L FQ23
82 CC X0 Y0
83 C X0 Y-15.01 DR- ; [ VK-R15.01]
84 L Z+Q77 FMAX
85 LBL0
91 END PGM HALBKUGEL-ALU MM