---

Der Helix funktioniert schon bei einer Bohrung! Aber wenn ich mehrere Fräsungen mit gleicher Tiefe habe funktioniert er nicht!

0  BEGIN PGM HELIX MM
1  L  Z+50 R0 FMAX M13
2  CC IX+0 IY+0
3  L  Z+2 R0 FMAX
4  L  Z+0 R0 FQ4
5  LP  PR+Q1  PA+360 RL FQ4
6  LBL 1
7  CP IPA+Q2 IZ+Q3 DR+ RL FQ4
8  FN 2: Q2 =+Q2 - +Q3
9  LBL 0
10 FN 10: IF +Q2 NE +Q3 GOTO LBL 1
11 CP IPA+Q2 IZ+Q3 DR+ RL FQ4
12 CP  PA+180 DR+
13 CP  PA+180 DR+
14 DEP CT  CCA+0 R+1
15 L  Z+50 R0 FMAX
16 END PGM HELIX MM

0  BEGIN PGM HELIXT MM    PGM-Name ist egal
1  BLK FORM 0.1 Z  X-20  Y-25  Z-21
2  BLK FORM 0.2  X+20  Y+20  Z+0
3  TOOL CALL 5 Z S5000
4  CYCL DEF 12.0 PGM CALL
5  CYCL DEF 12.1 PGM HELIX für Zyklus Aufruf mit M99
6  FN 0: Q1 =+X RADIUS +
7  FN 0: Q2 =-X TIEFE ins MINUS -
8  FN 0: Q3 =-X ZUSTELLUNG ins MINUS (muss Teilbar sein mit Q2) -
9  FN 0: Q4 =+X VORSCHUB +
10 CALL LBL 1
11 L  Z+200 R0 FMAX M30
12 LBL 1
13 L  X+0  Y+0 R0 FMAX M99 braucht keine Spindel und kein Z !
14 LBL 0
15 END PGM HELIXT MM

Vielleicht findet einer von euch meinen kleinen Fehler bzw. einen M-Befehl um die Parameter zurück zu setzten! M02, M30; ist im Programm nicht erlaubt!

danke im voraus

mfg hannes

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Hannes,
mal abgesehen davon, daß du IMHO einen Zuweisungsfehler in deinem Programm machst (Q2=X-Tiefe ins Minus; und dann im Bearbeitungsprogramm: CP IPA+Q2...) setze doch einfach den Tiefenparameter am Ende des Bearbeitungsprogramms wieder auf den Startwert zurück.
(Am Anfang einen Q-Merker setzen: Q99 = Q2 und dann am Prog-Ende Q2 = Q99)
Damit setzt du den Parameter wieder auf den Wert, den er beim Sprung ins aufgerufene Programm hatte.
Eine andere Möglichkeit wäre, den Tiefenparameter (Q2) vor jedem Aufruf des Bearbeitungsprogramms neu zu setzen.

Gruß
...markusG

------------------
Der Kopf ist rund, damit die Gedanken die Richtung wechseln können!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Skeleton,

versuche es mal mit diesem Programm:

0  BEGIN PGM 426-208 MM
1  BLK FORM 0.1 Z  X-148  Y-148  Z-35
2  BLK FORM 0.2  X+148  Y+148  Z+0
3  ;
4  * - EINGABEN
5  ;===============================
6  ;
7  TOOL CALL 41 S3450
8  ; HX-FRAESER D 12
9  ;
10 FN 0: Q1 =+800 ; VORSCHUB
11 FN 0: Q51 =+15.3 ; TIEFE
12 FN 0: Q52 =+18.1 ; DURCHMESSER
13 FN 0: Q54 =+1 ; ZUSTELLUNG
14 FN 0: Q55 =+0 ; KOORDINATEN-OBERFLAECHE
15 FN 0: Q99 =+50 ; 2. SICHERHEITSABSTAND IN Z ABSOLUT
16 ;
17 ;===============================
18 ;
19 L  Z+100 R0 FMAX M3
20 CYCL DEF 12.0 PGM CALL
21 CYCL DEF 12.1 PGM TNC:\208.H
22 CALL LBL 1
23 L  Z+150 R0 FMAX M9
24 M30
25 ;
26 LBL 1 ; BOHRUNGEN SENKEN
27 L  X-100  Y+100 R0 FMAX M99
28 L  X-100  Y-100 R0 FMAX M99
29 L  X+100  Y-100 R0 FMAX M99
30 L  X+100  Y+100 R0 FMAX M99
31 LBL 0
32 ;
33 * - HINWEIS
34 ; SOLLTE DAS PROGRAMM MIT M2 M30
35 ;ABGEBROCHEN WERDEN, MUSS ES IM
36 ; PGM NEU ANGEWAEHLT WERDEN.
37 END PGM 426-208 MM

0  BEGIN PGM 208 MM
1  FN 0: Q50 =+Q54
2  FN 4: Q58 =+Q52 DIV +2
3  FN 1: Q60 =+Q54 + +Q55
4  FN 1: Q61 =+Q51 + +Q54
5  L  Z+Q60 R0 FMAX
6  L IY+Q58 RL FQ1
7  LBL 50
8  CC IX+0 IY-Q58
9  CP IPA+360 IZ-Q54 DR+
10 FN 1: Q50 =+Q50 + +Q54
11 FN 12: IF +Q50 LT +Q61 GOTO LBL 50
12 FN 2: Q50 =+Q61 - +Q50
13 FN 1: Q50 =+Q50 + +Q54
14 FN 9: IF +Q50 EQU +0 GOTO LBL 51
15 CC IX+0 IY-Q58
16 CP IPA+360 IZ-Q50 DR+
17 LBL 51
18 CC IX+0 IY-Q58
19 CP IPA+360 DR+
20 L IY-Q58 R0
21 L  Z+Q60 R0 FMAX
22 L  Z+Q99 R0 FMAX
23 END PGM 208 MM

läuft bestimmt!

mfg. Gerhard

[Diese Nachricht wurde von gera.ncp am 08. Dez. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP