Nützliche Unterprogramme
24.12.2010, 06:15 Uhr
Ich habe hier mal 2 nützliche Programme gepostet, die wir in der Arbeit des öfteren einsetzen. Laufen aber nur auf Heidenhain-Steuerungen die mit FN18 umgehen können.
1. Langloch / Nut als Helix
Wenn man eine Nut aus dem Vollen heraus fräsen will, so pendelt der normale Zyklus von Heidenhain ja immer erst ein bevor er auf Zustelltiefe die Kontur fährt.
Das ganze als Helix ist natürlich um einiges schneller.
Hier das Programm:
0 BEGIN PGM nuthelix MM
1 * - Startpunkt fuer das Programm Nuthelix ist immer der Mittelpunkt der~
Nut!
2 ;
3 ;Definition des Zyklus
4 FN 0: Q200 =+0,5 ;Sicherheitsabstand
5 FN 0: Q201 =-0,5 ;Tiefe
6 FN 0: Q206 =+1800 ;Vorschub
7 FN 0: Q385 =+500 ;Vorschub schlichten
8 FN 0: Q334 =+0,25 ;Zustellung
9 FN 0: Q203 =-109,5 ;Koordinate Oberflaeche
10 FN 0: Q204 =+500 ;2.Sicherheits Abstand
11 FN 0: Q218 =+200 ;Nutlaenge
12 FN 0: Q219 =+108 ;Nutbreite
13 FN 0: Q220 =+54 ;Eckenradius
14 FN 0: Q374 =+90 ;Drehlage
15 ;
16 ;Ab hier nichts mehr aendern!!
17 FN 11: IF +Q219 GT +Q218 GOTO LBL 102
18 FN 0: Q99 =+0
19 FN 4: Q98 =+Q218 DIV +2
20 FN 4: Q97 =+Q219 DIV +2
21 Q96 = ( Q108 * 4 )
22 FN 12: IF +Q96 LT +Q219 GOTO LBL 101
23 FN 11: IF +Q108 GT +Q97 GOTO LBL 99
24 FN 11: IF +Q108 GT +Q98 GOTO LBL 99
25 FN 11: IF +Q108 GT +Q220 GOTO LBL 99
26 FN 9: IF +Q99 EQU +0 GOTO LBL 98
27 LBL 102
28 FN 14: ERROR= 1032
29 ;BREITE GROESSER ALS DIE LAENGE!
30 LBL 0
31 LBL 101
32 FN 14: ERROR= 1052
33 LBL 0
34 LBL 99 ;Fehlermeldung Radius
35 FN 14: ERROR= 1003
36 ;WERKZEUGRADIUS ZU GROSS!
37 LBL 0
38 LBL 98 ;Berechnungen
39 FN 18: SYSREAD Q20 = ID270 NR1 IDX1
40 FN 18: SYSREAD Q21 = ID270 NR1 IDX2
41 CYCL DEF 7.0 NULLPUNKT
42 CYCL DEF 7.1 X+Q20
43 CYCL DEF 7.2 Y+Q21
44 CYCL DEF 10.0 DREHUNG
45 CYCL DEF 10.1 ROT+Q374
46 Q59 = ( Q219 - ( Q220 * 2 ) ) / 2
47 Q60 = ( Q218 - ( Q220 * 2 ) ) / 2
48 Q61 = Q220 * 2
49 Q62 = Q201 + Q203
50 Q63 = Q203 + Q200
51 Q64 = Q334 / 2
52 Q67 = Q97 - Q220
53 LBL 0
54 ;
55 L Z+Q204 R0 FMAX M3
56 L Z+Q63 R0 F5000
57 L X+Q97 Y-Q60 RL FQ206
58 LBL 4
59 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
60 Q31 = Q30 + Q334
61 FN 12: IF +Q31 LT +Q62 GOTO LBL 6
62 CALL LBL 5
63 FN 11: IF +Q31 GT +Q62 GOTO LBL 4
64 FN 9: IF +Q31 EQU +Q62 GOTO LBL 6
65 LBL 0
66 LBL 5
67 L Y+Q60 IZ-Q64 RL FQ206
68 CR X+Q59 Y+Q98 R+Q220 DR+ FQ206
69 L X-Q59 RL FQ206
70 CR X-Q97 Y+Q60 R+Q220 DR+ FQ206
71 L Y-Q60 IZ-Q64 RL FQ206
72 CR X-Q59 Y-Q98 R+Q220 DR+ FQ206
73 L X+Q59 RL FQ206
74 CR X+Q97 Y-Q60 R+Q220 DR+ FQ206
75 LBL 0
76 LBL 6
77 STOP
78 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
79 FN 2: Q65 =+Q62 - +Q30
80 Q66 = Q65 / 2
81 L Y+Q60 IZ+Q66 RL FQ385
82 CR X+Q59 Y+Q98 R+Q220 DR+ FQ385
83 L X-Q59 RL FQ385
84 CR X-Q97 Y+Q60 R+Q220 DR+ FQ385
85 L Y-Q60 IZ+Q66 RL FQ385
86 CR X-Q59 Y-Q98 R+Q220 DR+ FQ385
87 L X+Q59 RL FQ385
88 CR X+Q97 Y-Q60 R+Q220 DR+ FQ385
89 L Y+Q60 RL FQ385
90 CR X+Q59 Y+Q98 R+Q220 DR+ FQ385
91 L X-Q59 RL FQ385
92 CR X-Q97 Y+Q60 R+Q220 DR+ FQ385
93 L Y-Q60 RL FQ385
94 CR X-Q59 Y-Q98 R+Q220 DR+ FQ385
95 L X+Q59 RL FQ385
96 CR X+Q97 Y-Q60 R+Q220 DR+ FQ385
97 L X+0 Y+0 R0 FQ385
98 LBL 0
99 ;
100 LBL 100
101 L Z+Q204 R0 FMAX
102 CYCL DEF 10.0 DREHUNG
103 CYCL DEF 10.1 ROT+0
104 CYCL DEF 7.0 NULLPUNKT
105 CYCL DEF 7.1 X+0
106 CYCL DEF 7.2 Y+0
107 LBL 0
108 END PGM nuthelix MM
2. Rechteck Aussen als Helix
0 BEGIN PGM RECHTECKHELIX-AUSSEN MM
1 * - Startpunkt fuer das Programm ist immer der Mittelpunkt des Teils
2 ;
3 ;Definition des Zyklus
4 FN 0: Q200 =+0,5 ;Sicherheitsabstand
5 FN 0: Q201 =-150 ;Tiefe
6 FN 0: Q206 =+2500 ;Vorschub
7 FN 0: Q385 =+500 ;Vorschub schlichten
8 FN 0: Q334 =+1 ;Zustellung
9 FN 0: Q203 =+0 ;Koordinate Oberflaeche
10 FN 0: Q204 =+50 ;2.Sicherheits Abstand
11 FN 0: Q218 =+200 ;Laenge
12 FN 0: Q219 =+100 ;Breite
13 FN 0: Q220 =+1 ;Eckenverrundung
14 FN 0: Q374 =+0 ;Drehlage
15 ;
16 ;Ab hier nichts mehr aendern!!
17 FN 11: IF +Q219 GT +Q218 GOTO LBL 102
18 FN 0: Q99 =+0
19 FN 4: Q98 =+Q218 DIV +2
20 FN 4: Q97 =+Q219 DIV +2
21 FN 9: IF +Q99 EQU +0 GOTO LBL 98
22 LBL 102
23 FN 14: ERROR= 1032
24 ;BREITE GROESSER ALS DIE LAENGE!
25 LBL 0
26 LBL 98 ;Berechnungen
27 FN 18: SYSREAD Q20 = ID270 NR1 IDX1
28 FN 18: SYSREAD Q21 = ID270 NR1 IDX2
29 CYCL DEF 7.0 NULLPUNKT
30 CYCL DEF 7.1 X+Q20
31 CYCL DEF 7.2 Y+Q21
32 CYCL DEF 10.0 DREHUNG
33 CYCL DEF 10.1 ROT+Q374
34 Q59 = ( Q219 - ( Q220 * 2 ) ) / 2
35 Q60 = ( Q218 - ( Q220 * 2 ) ) / 2
36 Q61 = Q220 * 2
37 Q62 = Q201 + Q203
38 Q63 = Q203 + Q200
39 Q64 = Q334 / 2
40 Q67 = Q97 - Q220
41 FN 0: Q68 =+15
42 Q69 = Q108 + 15 + Q97
43 Q70 = Q64 / 2
44 LBL 0
45 ;
46 L Z+Q204 R0 FMAX M3
47 L Z+Q63 R0 F5000
48 L X-Q68 Y+Q69 R0 FQ206
49 APPR LCT X+0 Y+Q97 R5 RL FQ206
50 LBL 4
51 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
52 Q31 = Q30 + Q334
53 FN 12: IF +Q31 LT +Q62 GOTO LBL 6
54 CALL LBL 5
55 FN 11: IF +Q31 GT +Q62 GOTO LBL 4
56 FN 9: IF +Q31 EQU +Q62 GOTO LBL 6
57 LBL 0
58 LBL 5
59 L X+Q98 Y+Q97 IZ-Q70 RL FQ206
60 RND RQ220 FQ1
61 L X+Q98 Y-Q97 RL FQ206
62 RND RQ220 FQ206
63 L X-Q98 Y-Q97 IZ-Q64 RL FQ206
64 RND RQ220 FQ206
65 L X-Q98 Y+Q97 RL FQ206
66 RND RQ220 FQ206
67 L X+0 Y+Q97 IZ-Q70 RL FQ206
68 LBL 0
69 LBL 6
70 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
71 FN 2: Q65 =+Q62 - +Q30
72 Q66 = Q65 / 2
73 Q67 = Q66 / 2
74 L X+Q98 Y+Q97 IZ+Q67 RL FQ206
75 RND RQ220 FQ1
76 L X+Q98 Y-Q97 RL FQ206
77 RND RQ220 FQ206
78 L X-Q98 Y-Q97 IZ-Q66 RL FQ206
79 RND RQ220 FQ206
80 L X-Q98 Y+Q97 RL FQ206
81 RND RQ220 FQ206
82 L X+0 Y+Q97 IZ-Q67 RL FQ206
83 ;
84 L X+Q98 Y+Q97 RL FQ385
85 RND RQ220 FQ385
86 L X+Q98 Y-Q97 RL FQ385
87 RND RQ220 FQ385
88 L X-Q98 Y-Q97 RL FQ385
89 RND RQ220 FQ385
90 L X-Q98 Y+Q97 RL FQ385
91 RND RQ220 FQ385
92 L X+0 Y+Q97 RL FQ385
93 DEP LCT X+Q68 Y+Q69 R5 FQ385
94 L Z+Q204 R0 FMAX
95 LBL 0
96 ;
97 LBL 100
98 L Z+Q204 R0 FMAX
99 CYCL DEF 10.0 DREHUNG
100 CYCL DEF 10.1 ROT+0
101 CYCL DEF 7.0 NULLPUNKT
102 CYCL DEF 7.1 X+0
103 CYCL DEF 7.2 Y+0
104 LBL 0
105 END PGM RECHTECKHELIX-AUSSEN MM
Viel Spass damit
1. Langloch / Nut als Helix
Wenn man eine Nut aus dem Vollen heraus fräsen will, so pendelt der normale Zyklus von Heidenhain ja immer erst ein bevor er auf Zustelltiefe die Kontur fährt.
Das ganze als Helix ist natürlich um einiges schneller.
Hier das Programm:
0 BEGIN PGM nuthelix MM
1 * - Startpunkt fuer das Programm Nuthelix ist immer der Mittelpunkt der~
Nut!
2 ;
3 ;Definition des Zyklus
4 FN 0: Q200 =+0,5 ;Sicherheitsabstand
5 FN 0: Q201 =-0,5 ;Tiefe
6 FN 0: Q206 =+1800 ;Vorschub
7 FN 0: Q385 =+500 ;Vorschub schlichten
8 FN 0: Q334 =+0,25 ;Zustellung
9 FN 0: Q203 =-109,5 ;Koordinate Oberflaeche
10 FN 0: Q204 =+500 ;2.Sicherheits Abstand
11 FN 0: Q218 =+200 ;Nutlaenge
12 FN 0: Q219 =+108 ;Nutbreite
13 FN 0: Q220 =+54 ;Eckenradius
14 FN 0: Q374 =+90 ;Drehlage
15 ;
16 ;Ab hier nichts mehr aendern!!
17 FN 11: IF +Q219 GT +Q218 GOTO LBL 102
18 FN 0: Q99 =+0
19 FN 4: Q98 =+Q218 DIV +2
20 FN 4: Q97 =+Q219 DIV +2
21 Q96 = ( Q108 * 4 )
22 FN 12: IF +Q96 LT +Q219 GOTO LBL 101
23 FN 11: IF +Q108 GT +Q97 GOTO LBL 99
24 FN 11: IF +Q108 GT +Q98 GOTO LBL 99
25 FN 11: IF +Q108 GT +Q220 GOTO LBL 99
26 FN 9: IF +Q99 EQU +0 GOTO LBL 98
27 LBL 102
28 FN 14: ERROR= 1032
29 ;BREITE GROESSER ALS DIE LAENGE!
30 LBL 0
31 LBL 101
32 FN 14: ERROR= 1052
33 LBL 0
34 LBL 99 ;Fehlermeldung Radius
35 FN 14: ERROR= 1003
36 ;WERKZEUGRADIUS ZU GROSS!
37 LBL 0
38 LBL 98 ;Berechnungen
39 FN 18: SYSREAD Q20 = ID270 NR1 IDX1
40 FN 18: SYSREAD Q21 = ID270 NR1 IDX2
41 CYCL DEF 7.0 NULLPUNKT
42 CYCL DEF 7.1 X+Q20
43 CYCL DEF 7.2 Y+Q21
44 CYCL DEF 10.0 DREHUNG
45 CYCL DEF 10.1 ROT+Q374
46 Q59 = ( Q219 - ( Q220 * 2 ) ) / 2
47 Q60 = ( Q218 - ( Q220 * 2 ) ) / 2
48 Q61 = Q220 * 2
49 Q62 = Q201 + Q203
50 Q63 = Q203 + Q200
51 Q64 = Q334 / 2
52 Q67 = Q97 - Q220
53 LBL 0
54 ;
55 L Z+Q204 R0 FMAX M3
56 L Z+Q63 R0 F5000
57 L X+Q97 Y-Q60 RL FQ206
58 LBL 4
59 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
60 Q31 = Q30 + Q334
61 FN 12: IF +Q31 LT +Q62 GOTO LBL 6
62 CALL LBL 5
63 FN 11: IF +Q31 GT +Q62 GOTO LBL 4
64 FN 9: IF +Q31 EQU +Q62 GOTO LBL 6
65 LBL 0
66 LBL 5
67 L Y+Q60 IZ-Q64 RL FQ206
68 CR X+Q59 Y+Q98 R+Q220 DR+ FQ206
69 L X-Q59 RL FQ206
70 CR X-Q97 Y+Q60 R+Q220 DR+ FQ206
71 L Y-Q60 IZ-Q64 RL FQ206
72 CR X-Q59 Y-Q98 R+Q220 DR+ FQ206
73 L X+Q59 RL FQ206
74 CR X+Q97 Y-Q60 R+Q220 DR+ FQ206
75 LBL 0
76 LBL 6
77 STOP
78 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
79 FN 2: Q65 =+Q62 - +Q30
80 Q66 = Q65 / 2
81 L Y+Q60 IZ+Q66 RL FQ385
82 CR X+Q59 Y+Q98 R+Q220 DR+ FQ385
83 L X-Q59 RL FQ385
84 CR X-Q97 Y+Q60 R+Q220 DR+ FQ385
85 L Y-Q60 IZ+Q66 RL FQ385
86 CR X-Q59 Y-Q98 R+Q220 DR+ FQ385
87 L X+Q59 RL FQ385
88 CR X+Q97 Y-Q60 R+Q220 DR+ FQ385
89 L Y+Q60 RL FQ385
90 CR X+Q59 Y+Q98 R+Q220 DR+ FQ385
91 L X-Q59 RL FQ385
92 CR X-Q97 Y+Q60 R+Q220 DR+ FQ385
93 L Y-Q60 RL FQ385
94 CR X-Q59 Y-Q98 R+Q220 DR+ FQ385
95 L X+Q59 RL FQ385
96 CR X+Q97 Y-Q60 R+Q220 DR+ FQ385
97 L X+0 Y+0 R0 FQ385
98 LBL 0
99 ;
100 LBL 100
101 L Z+Q204 R0 FMAX
102 CYCL DEF 10.0 DREHUNG
103 CYCL DEF 10.1 ROT+0
104 CYCL DEF 7.0 NULLPUNKT
105 CYCL DEF 7.1 X+0
106 CYCL DEF 7.2 Y+0
107 LBL 0
108 END PGM nuthelix MM
2. Rechteck Aussen als Helix
0 BEGIN PGM RECHTECKHELIX-AUSSEN MM
1 * - Startpunkt fuer das Programm ist immer der Mittelpunkt des Teils
2 ;
3 ;Definition des Zyklus
4 FN 0: Q200 =+0,5 ;Sicherheitsabstand
5 FN 0: Q201 =-150 ;Tiefe
6 FN 0: Q206 =+2500 ;Vorschub
7 FN 0: Q385 =+500 ;Vorschub schlichten
8 FN 0: Q334 =+1 ;Zustellung
9 FN 0: Q203 =+0 ;Koordinate Oberflaeche
10 FN 0: Q204 =+50 ;2.Sicherheits Abstand
11 FN 0: Q218 =+200 ;Laenge
12 FN 0: Q219 =+100 ;Breite
13 FN 0: Q220 =+1 ;Eckenverrundung
14 FN 0: Q374 =+0 ;Drehlage
15 ;
16 ;Ab hier nichts mehr aendern!!
17 FN 11: IF +Q219 GT +Q218 GOTO LBL 102
18 FN 0: Q99 =+0
19 FN 4: Q98 =+Q218 DIV +2
20 FN 4: Q97 =+Q219 DIV +2
21 FN 9: IF +Q99 EQU +0 GOTO LBL 98
22 LBL 102
23 FN 14: ERROR= 1032
24 ;BREITE GROESSER ALS DIE LAENGE!
25 LBL 0
26 LBL 98 ;Berechnungen
27 FN 18: SYSREAD Q20 = ID270 NR1 IDX1
28 FN 18: SYSREAD Q21 = ID270 NR1 IDX2
29 CYCL DEF 7.0 NULLPUNKT
30 CYCL DEF 7.1 X+Q20
31 CYCL DEF 7.2 Y+Q21
32 CYCL DEF 10.0 DREHUNG
33 CYCL DEF 10.1 ROT+Q374
34 Q59 = ( Q219 - ( Q220 * 2 ) ) / 2
35 Q60 = ( Q218 - ( Q220 * 2 ) ) / 2
36 Q61 = Q220 * 2
37 Q62 = Q201 + Q203
38 Q63 = Q203 + Q200
39 Q64 = Q334 / 2
40 Q67 = Q97 - Q220
41 FN 0: Q68 =+15
42 Q69 = Q108 + 15 + Q97
43 Q70 = Q64 / 2
44 LBL 0
45 ;
46 L Z+Q204 R0 FMAX M3
47 L Z+Q63 R0 F5000
48 L X-Q68 Y+Q69 R0 FQ206
49 APPR LCT X+0 Y+Q97 R5 RL FQ206
50 LBL 4
51 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
52 Q31 = Q30 + Q334
53 FN 12: IF +Q31 LT +Q62 GOTO LBL 6
54 CALL LBL 5
55 FN 11: IF +Q31 GT +Q62 GOTO LBL 4
56 FN 9: IF +Q31 EQU +Q62 GOTO LBL 6
57 LBL 0
58 LBL 5
59 L X+Q98 Y+Q97 IZ-Q70 RL FQ206
60 RND RQ220 FQ1
61 L X+Q98 Y-Q97 RL FQ206
62 RND RQ220 FQ206
63 L X-Q98 Y-Q97 IZ-Q64 RL FQ206
64 RND RQ220 FQ206
65 L X-Q98 Y+Q97 RL FQ206
66 RND RQ220 FQ206
67 L X+0 Y+Q97 IZ-Q70 RL FQ206
68 LBL 0
69 LBL 6
70 FN 18: SYSREAD Q30 = ID270 NR1 IDX3
71 FN 2: Q65 =+Q62 - +Q30
72 Q66 = Q65 / 2
73 Q67 = Q66 / 2
74 L X+Q98 Y+Q97 IZ+Q67 RL FQ206
75 RND RQ220 FQ1
76 L X+Q98 Y-Q97 RL FQ206
77 RND RQ220 FQ206
78 L X-Q98 Y-Q97 IZ-Q66 RL FQ206
79 RND RQ220 FQ206
80 L X-Q98 Y+Q97 RL FQ206
81 RND RQ220 FQ206
82 L X+0 Y+Q97 IZ-Q67 RL FQ206
83 ;
84 L X+Q98 Y+Q97 RL FQ385
85 RND RQ220 FQ385
86 L X+Q98 Y-Q97 RL FQ385
87 RND RQ220 FQ385
88 L X-Q98 Y-Q97 RL FQ385
89 RND RQ220 FQ385
90 L X-Q98 Y+Q97 RL FQ385
91 RND RQ220 FQ385
92 L X+0 Y+Q97 RL FQ385
93 DEP LCT X+Q68 Y+Q69 R5 FQ385
94 L Z+Q204 R0 FMAX
95 LBL 0
96 ;
97 LBL 100
98 L Z+Q204 R0 FMAX
99 CYCL DEF 10.0 DREHUNG
100 CYCL DEF 10.1 ROT+0
101 CYCL DEF 7.0 NULLPUNKT
102 CYCL DEF 7.1 X+0
103 CYCL DEF 7.2 Y+0
104 LBL 0
105 END PGM RECHTECKHELIX-AUSSEN MM
Viel Spass damit
31.12.2010, 12:33 Uhr
Danke für deine Arbeit sehr nützlich, bietet sich auch als cyclus an 
04.02.2012, 23:01 Uhr
Hallo Ihr,
gibt es eine Möglichkeit diese Programme zu kopieren damit man sie nicht komplett abtippen muss?
Grüße Manuel
gibt es eine Möglichkeit diese Programme zu kopieren damit man sie nicht komplett abtippen muss?
Grüße Manuel
05.02.2012, 06:17 Uhr
CNCFanatiker
Level 8 = Community-Ehrenmitglied
Gruppe: Administrator
Mitglied seit: 16.12.2001
Beiträge: 5.089
Mitglied seit: 16.12.2001
Beiträge: 5.089
QUOTE (Bender {MMO} @ 04.02.2012, 23:01 Uhr) 
Hallo Ihr,
gibt es eine Möglichkeit diese Programme zu kopieren damit man sie nicht komplett abtippen muss?
Grüße Manuel
Guten Morgen Manuel,gibt es eine Möglichkeit diese Programme zu kopieren damit man sie nicht komplett abtippen muss?
Grüße Manuel
Zwischenablage -> STRG+C und einfügen in einen Editor und abspeichern als HEIDENHAIN-Programm [*.h]
(...dann über Schnittstelle [USB/Netzwerk] auf die Steuerung...)
--------------------
Gruß / Regards
CNCFanatiker
AdminCrew
Wenn wir immer das tun was wir können, dann bleiben wir immer das was wir sind.
If we always this act what we are able to do, then we always remain what we are.
CNCFanatiker
AdminCrew
Wenn wir immer das tun was wir können, dann bleiben wir immer das was wir sind.
If we always this act what we are able to do, then we always remain what we are.
06.02.2012, 20:47 Uhr
Hallo CNCFanatiker,
dankeschön, hat einwandfrei funktioniert
Grüße Manuel
dankeschön, hat einwandfrei funktioniert
Grüße Manuel
1 Besucher lesen dieses Thema (Gäste: 1)
0 Mitglieder: