Abzielen auf mehreren Schraubstöcken, Abzeilen im "ap"- und "ae"-Richtung für beliebige Kont

Hallo,

vielleicht hilft es dem ein oder anderen ja weiter. Habe mir Q-Parameterprogramm geschrieben - bei uns im jede CNC-Programm integriert - welche seit Jahren auf TNC 355, 407, 430, 530, 620, 640 einwandfrei funktioniert.
Diese Unterprogramm für Mehrfachbearbeitung für bearbeitung von mehreren Werkstücken mit Unterprogrammen für "ae"-Abzeilen und "ap"-Abzeilen Unterprogramm ist effizient und schnell für alle Konturenfräsen einsetzbar.
Man braucht nur 3 Q-Werte für LBL100 und 3 Q-Werte für LBL300 nach dem Werkzeug-Aufruf (TOOL CAL xxxx) definieren:

Abzeilen-Daten für "ap"- und "ae"-Richtung definieren.
;-------------------------------
BLK FORM 0.1 Z X-10 Y-50 Z-20
BLK FORM 0.2 X+90 Y+50 Z+0.5
; -------------------------------
* - TOOL 1112 HPC-SR.FR-12
TOOL CALL 1112 Z DR+0
; --------------
FN 0: Q80 =+110 ; Vc
FN 0: Q81 =+0.1 ; f/z
CALL PGM TNC:\ZYKLEN\-SDA
; --------------
; Daten fuer LBL 100 (ap)
FN 0: Q1 =+16 ; End-Tiefe
FN 0: Q11 =+8 ; Start-Tiefe
FN 0: Q21 =+8 ; Zustellung
;
; Daten fuer LBL 300 (ae)
FN 0: Q55 =+9 ; Start DR-Wert
FN 0: Q65 =+2.4 ; Konstante ae-Wert
FN 0: Q75 =-1.5 ; End DR-Wert
;
L M3 M13
L M110
FN 0: Q98 =+300
FN 0: Q99 =+1
CALL LBL 190
L M111
;
M9
;
CALL LBL 99 ; WKZ-Parkposition
* - --- Programm-Ende ---------
L M30
;-------------------------------



Kontur beschreibung mit konstante Start Position.
Konstante abstand der Werkzeug-Schneide zum Kontur.
Unabhängig ob das Werkzeug-Durchmesser D=50 mm oder D=2mm hat
;-------------------------------
LBL 1
* - LBL1 KONTUR
FN 18: SYSREAD Q80 = ID50 NR2
Q81 = 82 + Q80 + 5 ; Anfartwert-X
Q82 = 40 + Q80 + 5 ; Anfartwert-Y
;
L X+Q81 Y+Q82 R0 FMAX M3
L Z-Q31 R0 FMAX
;
L X+80 RL FQ3
L Y-40
L X+0
RND R0.5
L Y+40
RND R0.5
L X+80
RND R0.5
L IY-0.55
;
L Z+5 R0 FMAX
L R0
LBL 0
;-------------------------------



LBL 100 als feste CNC-Programmteil für "ap"-Abzeilen für Planflächen und Konturen.
Der LBL 100 Unterprogramm wird nie geändert.
Ausnahme: Wenn die Z+0 Werkstückfläche nicht die höchste Fläche ist, dann "L Z+50 R0 FMAX" Sicherheitsabstand auf "Z+???" über die höchste Werkstückfläche programmieren.
;-------------------------------
LBL 100
* - LBL100 Abzeilen
FN 0: Q31 =+Q11
FN 11: IF +Q31 GT +Q1 GOTO LBL 121
FN 9: IF +Q31 EQU +Q1 GOTO LBL 121
LBL 101
; ------
CALL LBL 50 ; UPGM-AUFRUF
; ------
FN 1: Q31 =+Q31 + +Q21
FN 12: IF +Q31 LT +Q1 GOTO LBL 101
LBL 121
FN 0: Q31 =+Q1
CALL LBL 101 REP1
L Z+50 R0 FMAX
LBL 0
LBL 50 ; UPGM-AUFRUF
FN 9: IF +1 EQU +1 GOTO LBL Q99
;-------------------------------


LBL 300 als feste CNC-Programmteil für "ae"-Abzeilen für Konturen.
Der LBL 300 Unterprogramm wird nie geändert.
;-----------------------------
LBL 300
* - LBL300 Seitliche "ae"-Zustellung
Q555 = Q55
FN 12: IF +Q555 LT +Q75 GOTO LBL 311
FN 9: IF +Q555 EQU +Q75 GOTO LBL 311
LBL 301
; ------
TOOL CALL Z DR+Q555
CALL LBL 100
; ------
Q555 = Q555 - Q65
FN 11: IF +Q555 GT +Q75 GOTO LBL 301
LBL 311
FN 0: Q555 =+Q75
CALL LBL 301 REP1
LBL 0
; ----------------------------


LBL 190 als feste CNC-Programmteil für mehrfach Bearbeitung.
Die Positionen sind mit Pressettabelle, Nullpunktverschiebung oder kombiniert definiert.
;-------------------------------
LBL 190
* - LBL190 Mehrfach
CALL LBL 151 ; Schraubstock 1
CALL LBL 248
;
CALL LBL 152 ; Schraubstock 2
CALL LBL 248
;
CALL LBL 153 ; Schraubstock 3
CALL LBL 248
LBL 0
LBL 248 ; UPGM-AUFRUF
FN 9: IF +1 EQU +1 GOTO LBL Q98
;-------------------------------
LBL 150
; Koordinaten-Transformation zuruecksetzen
CYCL DEF 8.0 SPIEGELN
CYCL DEF 8.1
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 ROT+0
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 X+0
CYCL DEF 7.2 Y+0
LBL 0
;
LBL 151 ; Schraubstock 1
CALL LBL 150
CYCL DEF 247 BEZUGSPUNKT SETZEN ~
Q339=+1 ;BEZUGSPUNKT-NUMMER
LBL 0
;
LBL 152 ; Schraubstock 2
CALL LBL 150
CYCL DEF 247 BEZUGSPUNKT SETZEN ~
Q339=+2 ;BEZUGSPUNKT-NUMMER
LBL 0
;
LBL 153 ; Schraubstock 3
CALL LBL 150
CYCL DEF 247 BEZUGSPUNKT SETZEN ~
Q339=+3 ;BEZUGSPUNKT-NUMMER
LBL 0
; ----------------------------


Download:
Beschreibung für Mehrfache Bearbeitung
 Mehrfach.doc ( 31KB ) Anzahl der Downloads: 12


Beispielprogramm für Mehrfache Bearbeitung
 Mehrfach.H ( 4.42KB ) Anzahl der Downloads: 10



Warum sind die Programme so aufgebaut?
Bei meine Firma haben wir Einzeln- und Kleinserienproduktion. Programmlaufzeiten 15 min bis 3 Std. Wir erstellen unsere CNC-Programme ohne CAD-Unterstützung selber direkt auf die Maschine.
Wir arbeiten im Zweischichtbetrieb auf alle Maschinnen (aktuell TNC 530 und TNC 640) mit eigenen oder von Kollegen geschriebenen Programmen.
Um effizient zu arbeiten sind die Programme nach festen Muster aufgebaut so das jede Mitarbeiter arbeitet (optimmiert, korrigiert) mit die Programme wie mit seine eigene Programm.
Neue Programm-Änderungen oder -Verbesserungen werden nach Absprache im neuen Programmen angewendet. (Die Bewertungsgrunde: Qualität-, Sicherheits-, Effizient-Verbessern)