Hallo zusammen,
haben seit Ewigkeiten auf unseren alten 4-Achs Bearbeitungszentren ein Unterprogramm mit welchem wir mit nur ein paar Parametern einen Kreis
fräsen inklusive sanftem An- und Abfahren. Nachdem mir keiner genau sagen kann, welche Parameter nötig sind bzw. welche Funktion sie haben wende ich mich an euch. Das Unterprogramm besteht schon seit mindestens 15 Jahren und die zuständigen Herren sind alle schon in Rente.
Der Zyklusaufruf im Programm lautet wie folgt:
G0 X0 Y0 ->Positionierung in X/Y Mittelpunkt der Bearbeitung
G0Z-15 ->auf fertige Tiefe fahren
G103 R50D1A10K1Z-15 ->R= Radius der zu bearbeitenden Kontur ohne Radiuskorrektur
D= zu verrechnender Werkzeugradius
A=???????
K=K1=G1 K0=G0
Z=fertige Tiefe
Hier das Unterprogramm:
%
O00009013(G103 KREIS CCW)
IF[#6EQ#0]GOTO11
IF[#6NE0]GOTO12
IF[#1EQ#0]GOTO13
N12#108=#4003
#107=#5003
IF[#7NE99]GOTO17
G41D99
G4P500
#7=#4107
G40D0
N17#101=#[13000+#7]+#[12000+#7]
#102=[#18+#101]/2.
IF[#101LE0]GOTO9
IF[#102GE#18]GOTO10
#103=[#18-#102]*[#18-#102]
#104=[#102-#101]*[#102-#101]
#105=SQRT[#103+#104]+#101
IF[#6GT1]GOTO1
G0G90Z#26
GOTO2
N1#106=#4109
#106=#106/#6
G1G90Z#26F#106
#106=#106*#6
F#106
GOTO3
N2IF[#6NE0]GOTO3
IF[#105LT[#18-#1]]GOTO4
N3G1G91
GOTO5
N4G0G91
N5G41D#7X-[#18-#102]Y#102
G3X-#102Y-#102R#102
I#18
X#102Y-#102R#102
IF[#6EQ0]GOTO6
G1
GOTO7
N6G0
N7G40X[#18-#102]Y#102
GOTO8
N9#3000=999( 0 ODER - IM D-SPEICHER )
N10#3000=999( FRAESER ZU GROSS )
N11#3000=999( K EINGEBEN )
N13#3000=999( A EINGEBEN )
N8G90G0Z#107
G#108
M99
%
vielleicht kann mir einer dieses Unterprogramm erklären.
Vielen Dank