GE Fanuc Series 21i-M
: 13 kwie 2011, 01:02
Witam
Jak w temacie, chciałbym do jednego freza dopisać dodatkową korekcję długości i średnicy.
Dopiero co się oswajam z tą maszyną i sterowaniem i za bardzo nie wiem od czego zacząć.
O6666( PROGRAM FOR K / 07 )
#1=1( WKST. TYP )
M295
#1103=0
#1104=0
#1105=0
#1106=0
#500=#1
IF[#1LT8]GOTO1
#1106=1
#1=#1-8
N1IF[#1LT4]GOTO2
#1105=1
#1=#1-4
N2IF[#1LT2]GOTO3
#1104=1
#1=#1-2
N3IF[#1LT1]GOTO4
#1103=1
N4M293( TYP NEW )
N1111M73
IF[#1007GT.8]GOTO199( BUTTON DELETE BALANCING DATA )
#2=60457
M98P[#521+100]( READ RESULTS FOR MILLING )
#3001=0
WHILE[#3001LT30]DO1
END1
IF[#528GT#111]THEN#3000=22( DEPTH TO BIG )
G0G53G49Z0M82
M290( OPEN GATEWAY )
IF[#1010LT.2]GOTO1
M72
N1
/N1GOTO198( NO MILLING )
#3001=0
WHILE[#3001LT200]DO1
END1
IF[#530LE#114*.9]GOTO10
T7M6( RADIUS 6 FACE )
G43H#513M254
N40IF[ABS[#[12000+#513]+#[13000+#513]-#[13010+#513]]GT.5]THEN#3000=11( ERROR IN GEOMETRIE )
IF[ABS[#[10000+#513]+#[11000+#513]-#[11010+#513]]GT.4]THEN#3000=12( ERROR IN OFFSET )
G54Y0X[#[12000+#513]+#[13000+#513]-#101]B#527
#3001=0
WHILE[#3001LE30]DO1
END1
M98P9023
#1=#5024
IF[#1GT359]THEN#1=#1-360
IF[#1GT40]THEN#3000=10( ERROR B AXIS )
G43H#513Z[#100/2+1]S#105M3
G1Z[#100/2-#528]F#106M18
B#526F#107
G0G91X1
G0G90G53G49Z0M5
N10IF[#520LE#114*.9]GOTO20( IN TOL. )
....
Jak w temacie, chciałbym do jednego freza dopisać dodatkową korekcję długości i średnicy.
Dopiero co się oswajam z tą maszyną i sterowaniem i za bardzo nie wiem od czego zacząć.
O6666( PROGRAM FOR K / 07 )
#1=1( WKST. TYP )
M295
#1103=0
#1104=0
#1105=0
#1106=0
#500=#1
IF[#1LT8]GOTO1
#1106=1
#1=#1-8
N1IF[#1LT4]GOTO2
#1105=1
#1=#1-4
N2IF[#1LT2]GOTO3
#1104=1
#1=#1-2
N3IF[#1LT1]GOTO4
#1103=1
N4M293( TYP NEW )
N1111M73
IF[#1007GT.8]GOTO199( BUTTON DELETE BALANCING DATA )
#2=60457
M98P[#521+100]( READ RESULTS FOR MILLING )
#3001=0
WHILE[#3001LT30]DO1
END1
IF[#528GT#111]THEN#3000=22( DEPTH TO BIG )
G0G53G49Z0M82
M290( OPEN GATEWAY )
IF[#1010LT.2]GOTO1
M72
N1
/N1GOTO198( NO MILLING )
#3001=0
WHILE[#3001LT200]DO1
END1
IF[#530LE#114*.9]GOTO10
T7M6( RADIUS 6 FACE )
G43H#513M254
N40IF[ABS[#[12000+#513]+#[13000+#513]-#[13010+#513]]GT.5]THEN#3000=11( ERROR IN GEOMETRIE )
IF[ABS[#[10000+#513]+#[11000+#513]-#[11010+#513]]GT.4]THEN#3000=12( ERROR IN OFFSET )
G54Y0X[#[12000+#513]+#[13000+#513]-#101]B#527
#3001=0
WHILE[#3001LE30]DO1
END1
M98P9023
#1=#5024
IF[#1GT359]THEN#1=#1-360
IF[#1GT40]THEN#3000=10( ERROR B AXIS )
G43H#513Z[#100/2+1]S#105M3
G1Z[#100/2-#528]F#106M18
B#526F#107
G0G91X1
G0G90G53G49Z0M5
N10IF[#520LE#114*.9]GOTO20( IN TOL. )
....