Hallo,
Stelle dieses Makro für FANUC 11 geschrieben zur Verfügung.
Eventuell auf Steuerungstyp anpassen.
Programm lief jahrelang in der Praxis.
Programm vor Abarbeitung Testen ,Simulieren
Für weitere Info PM
%
O0606(GEWINDFRAESP.AUSSEN+INNEN)
#6=54(NULLPUNKT 54-58)
#1=5(T)
#2=187.321®
#11=200(F)
#19=399(S)
#5=0(BOLZEN=1 MUTTER=0)
#183=0(SACKLOCH 1=
J 0=N)
#12=82(AUSSEN/NENNDMESSER D)
#4=80(KERNDURCHMESSER D3 D1)
#9=1(GEWIND.TIEFE H3 H1)
#3=2(STEIGUNG P)
#8=3(ANZAHL D.SCHNEIDENZAEHNE)
#10=14(WERKZEUGRADIUS)
#7=65(GEWINDETIEFE IN Z)
(ACHTUNG BEI DURCHGANGGEWINDE WIRD MAX 1MAL STEIGUNG TIEFER KORRIGIERT)(WERTE FUER #12 #4 #9 #3 STEHEN IM TABELLENBUCH)
IF#183EQ0GOTO200
IF#183EQ1GOTO200
GOTO9
N200
IF#12-2*#9LT#4-.5GOTO9
#110=[#8*#3]-1*#3
#122=#110
IF#183EQ1GOTO223
IF#7LE#110+#3GOTO43
GOTO47
N43
#110=0
#110=#7-#3
#113=1
N47
IF#5EQ1GOTO50
IF#5EQ0GOTO40
GOTO9
N40
IF#10GT[#4/2]GOTO9
T#1
#103=#3+#110
#196=#3
G10G90P#1R#2
G0G#6G80G90G40
X0Y0S#19M03F#11
G43H#1Z10M08
#108=[[#4/2+#9]]-[[#10]]
IF[[#8*#3]]-[[#3]]GE#7GOTO3
G1Z-#110
GOTO2
N5
#105=1
#103=[#3+#110]
#124=0
N1
G1Y#108
G02X0Y#108I0J-#108Z-#103
#124=0
N2
#103=0
#103=#101
#101=#103+#3+#124
#103=#101
IF#128EQ1GOTO34
IF#103LT#110+#196GOTO2
IF#105EQ1GOTO4
#101=0
#101=#110+#3
GOTO5
N4
G0Y0
IF#113EQ1GOTO9
#126=[#103]+[#122-#3]
IF#126GE#7GOTO3
G1Z-#126
#124=0
#124=#122-#3
#128=1
IF#128EQ1GOTO2
N34
#128=0
IF#103GT#7GOTO3
GOTO1
N3
#156=#7/#3
#157=ROUND[#156]
#159=[#157*#3]
IF#159GT#7GOTO19
GOTO81
N19
#158=[#159-#3]
GOTO82
N81
#158=[#159]
N82
G1Z-#158
G1Y#108
G02X0Y#108I0J-#108Z-[#158+#3]
G0Y0
GOTO9
N50
IF#183EQ1GOTO9
T#1
#103=#3+#110
#196=#3
G10G90P#1R#2
G0G#6G80G90G40
X0Y0S#19M03F#11
G43H#1Z10M08
#108=[[#12/2-#9]]+[[#10]]
G1Y[#108+4]
IF[[#8*#3]]-[[#3]]GE#7GOTO33
G1Z-#110
GOTO22
N55
#105=1
#103=[#3+#110]
#124=0
N11
G1Y#108
G02X0Y#108I0J-#108Z-#103
#124=0
N22
#103=0
#103=#101
#101=#103+#3+#124
#103=#101
IF#128EQ1GOTO340
IF#103LT#110+#196GOTO22
IF#105EQ1GOTO44
#101=0
#101=#110+#3
GOTO55
N44
G1Y[#108+4]
IF#113EQ1GOTO9
#126=[#103]+[#122-#3]
IF#126GE#7GOTO33
G1Z-#126
#124=0
#124=#122-#3
#128=1
IF#128EQ1GOTO22
N340
#128=0
IF#103GT#7GOTO33
GOTO11
N33
#156=#7/#3
#157=ROUND[#156]
#159=[#157*#3]
IF#159GT#7GOTO190
GOTO810
N190
#158=[#159-#3]
GOTO820
N810
#158=[#159]
N820
G1Z-#158
G1Y#108
G02X0Y#108I0J-#108Z-[#158+#3]
G1Y[#108+4]
GOTO9
N223
IF#5EQ1GOTO654
GOTO600
N654
(KOMBINATION BOLZEN SACKLOCH)
(NICHT MOEGLICH)
M0
GOTO9
N600
IF#10GT[#4/2]GOTO9
T#1
#168=#2-#7
G10G90P#1R#168
G0G#6G80G90G40
X0Y0S#19M03F#11
G43H#1Z[#7+10]M08
#190=.2
G1Z#190
#108=[[#4/2+#9]]-[[#10]]
#160=#3+#190
#164=#160
#162=[[#8*#3]]-#3
#165=#162
#163=0
N6
G1Y#108
#160=0
#160=#161
#161=#164+#163
#160=#161
#164=0
#164=#3
G03X0Y#108I0J-#108Z#160
G0Y0
#163=#160+#162
IF#163GT#7GOTO99
G1Z#163
GOTO6
N99
G0Z#7
G10G90P#1R#2
N9
G91G28G0Z0
G90G49
([43H41H52H4CH4FH53H56H41H5AH51H55H45H5AH38H36H34H35H])
([53H54H45H49H4EH57H49H45H53H45H4EH4EH45H55H46H41H4EH47H31H31H30H])
([30H39H32H36H30H31H36H30H38H])
M30
P9140M98
%