CNC Halbkugel Programm? Bitte helfen ;D
Hi!
Kennt sich jemand mit der CNC-Programmierung aus?
Ich suche ein Programm das eine Halbkugel fräst.
Kann mir jemand eines geben/schicken oder erklären wie ich
das angehn sollte?
Wäre nett.
Ich brauche es nur für den Lernzweck
MFG: MKT600
4 Antworten
hi, wie versprochen gibt es hier ein kleines lernbeispiel anhand einer haidenhain-steuerung.
Am besten schreib ich dir nun einfach ein Programm mit einer Kugel R15 für die Erklärung reichen die Zeichen hier nicht aus ^^
TOOL DEF 1 L0 R5 --> Fräserdeffinition
TOOL CALL 1 Z S 15000 --> Fräseraufruf
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 Z-15 --> immer am Radiusende; X und Y sind mittig vom Rundmaterial
FN0: Q1 = 0 --> Anfangswinkel
FN0: Q2 = 2 --> Zustellwinkel, je mehr umso gröber wird die Oberfläche
FN0: Q3 = 90 --> Endwinkel
FN0: Q4 = 15 --> Radius der Kugel
FN0: Q7 = 0,01 --> etwas vom Nullpunkt in X Abstand wegbleiben (aufmaß)
FN0: Q26= 2000 --> Vorschub der Kontur
L Z100 F MAX M03
L X50 Y0 R0 FMAX --> Anfangs-bzw. Startpunkt
L Z20
LBL 1
FN6: Q10= SIN+Q1 --> folgende Definitionen einfach abschreiben^^
FN3: Q10= Q10 * +Q4
FN1: Q10= Q10 + +Q7
FN7: Q20= COS +Q1
FN3: Q20= Q20 * +Q4 --> Abschreiben zu ende ^^
CC X0 Y0 --> Nullpunkt für Polarkoordinaten
LC Q20 R0 F Q26
LP PR Q10 PA 0 RR F Q26
CP PA 0 DR+
L X 50 Y 0 R0 F MAX
FN9: IF Q1 EQU Q3 GOTO LBL99 --> 5Definitionen zum schrittweisen Abfahren des Labels 1
FN1: Q1=Q1 + Q2
FN12: IF Q1 LT Q3 GOTO LBL1
FN0: Q1=Q3
FN9: IF 0 EQU 0 GOTO LBL1
LBL99
LBL 0
L Z100 F9999 M30
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
Sorry, ich kriege hier leider keine Umbrüche hin .... sind nach dem senden einfach weg.
hi, bitte warte bis morgen. dann kann ich dir das ganze für ne Haidenhain Steuerung sagen.