OMC / 18M, Makros

Hallo FANUCer,

ich hätte da noch 2 wunderbare Makros für die OMC und 18M!

Es sind 2 komplexe Dinger zur Ablaufsteuerung. Über ein Hauptprogramm lassen sich automatisch Unterprogramme, Werkzeuge, Nullpunkte etc. aufrufen. Je nach Steuerung sind bis zu 24 Nullpunkte möglich ... usw. usw. usw.

Beispiel Hauptprogramm für die OMC:

:1000
G66P9101

Z10.0(REFERENZEBENE)

T1R1(VON WERKZEUG)
T2R6(BIS WERKZEUG)

P1R1(VON NULLPUNKT)
P2R1(BIS NULLPUNKT)

F1R1(VON TEIL)
F2R1(BIS TEIL)

X0.0(X-TEILEABSTAND)

K0(LAUFRICHTUNG)

G67
G66P9102

T11P1001R92.07(MK 63)
T12P1002R100.74(SF 16)
T13P1003R93.07(SONDER)
T14P1004R124.21(BOHRER 3.1)
T15P1005R137.46(SENKER)
T4P1006R81.79(R2)

H17R8.0
H18R4.9
H19R3.

X1R75.273
Y1R267.934
Z1R464.472

X2R175.273
Y2R267.934
Z2R464.472

X3R275.273
Y3R267.934
Z3R464.472


G67
N720M98P9100
N730M30


Bei Interesse einfach melden!

Gruss,
Ralf

Hallo Graffi, wäre es möglich mir das Macro für die 18MC, als Datenanhand per E-mail zu schicken ? Wenn ich es gebrauchen kann, dann schicke ich Dir bei Bedarf eine Macrosammelung für Fanuc (ähnlich einer Parameterprogramierung), damit kann man die verschiedenartigsten Bearbeitungen in 2D durchführen. Ähnlich Zyklen, also Bohrbilder, Flächen, Taschen (rechteck o. kreis), Konturen usw.
Also sehen wir mal, was da so kommt.

Viele Grüsse Conni

Hallo Conni!

Anbei mal das Makro für die 18M mit einem Beispiel für ein Hauptprogramm.

Im Makro selber musst Du evtl. die Tischposition bei Bearbeitungsende verändern, die Stellen sind mit (REF) markiert!

Variable Spiegel:
0=Kein
1=In jedem ungeraden NP
2=In jedem geraden NP
3=In jedem ungeraden Teil
4=In jedem geraden Teil

Variable Laufrichtung:
0=Wechseln
1=NP immer von Links nach Rechts
2=NP immer von Rechts nach Links

Werkzeugzeile(n):

Z.B.: #1=11.001(SF 16)

#1 = Laufende Nr.
11.001 = Tool-Nr und Programmnr. (T1 und O1001)
Tipp:
-11.001 = Das Minuszeichen sorgt für ein Messstop!


Das Makro lief 7 Jahre ohne Macken, bei Fragen einfach melden!

Ich selber brauche keine Makros mehr, trotzdem danke!

Gruss!




---- BEISPIEL HAUPTPROGRAMM

:1000

#507=10.(REFERENZEBENE)

#517=1(VON WERKZEUG)
#510=17(BIS WERKZEUG)

#503=1(VON NULLPUNKT)
#504=6(BIS NULLPUNKT)

#506=1(VON TEIL)
#516=1(BIS TEIL)

#515=0.(X-TEILEABSTAND)

#527=0(LAUFRICHTUNG)
#518=0(XY-SPIEGEL)

#1=11.001(SF 16)
#2=21.002(SF 6 )
#3=31.003(SF 4 )
#4=41.004(SF 1.8)
#5=51.005(B 3.3)
#6=71.007(B 2.5)
#7=61.006(KK)
#8=81.008(M3)
#9=11.009(MK)
#10=21.010(BNF 5.75)
#11=31.011(B 2.95)
#12=41.012(B 2.6)
#13=51.013(B 2.1)
#14=61.014(B 3.3)
#15=71.015(KK)
#16=81.016(M4)
#17=91.017(KK)


(NULLPUNKTE X Y Z)
(1)
#11099=109.747
#11098=245.942
#11097=423.027

(2)
#11096=165.978
#11095=245.942
#11094=423.027

(3)
#11093=264.617
#11092=245.940
#11091=422.917

(4)
#11090=316.998
#11089=245.940
#11088=422.917

(5)
#11087=415.811
#11086=245.954
#11085=422.917

(6)
#11084=468.739
#11083=245.954
#11082=422.917

M98P9300
M30

----- BEISPIEL 1. UNTERPROGRAMM

:1001(SCHAFTFRAESER 16 MM)
N10T2
N20G0X-23.9Y-2.S4000M3M8
N30Z-9.2
....
N240M99


------ MAKRO

:9300
#531=0
#528=#507(N)
#507=FIX[#507](N)
#528=#528-#507(N)
#528=#528*100(N)
GOTO2500
N210
#3000=#521
GOTO3070
N270
IF[#518EQ1.]GOTO540
IF[#518EQ2.]GOTO610
IF[#518EQ3.]GOTO680
IF[#518EQ4.]GOTO750
#521=1
GOTO210
N370
IF[#520EQ0]GOTO420
IF[#520EQ1]GOTO470
#521=2
GOTO210
N420
G0X0.Y0.M75
M76
#520=1
GOTO#523
N470
G0X0.Y0.M77
#520=0
GOTO#523
N540
#519=#502/2
#529=ROUND[#502/2]
IF[#519NE#529]GOTO370
GOTO#523
N610
#519=#502/2
#529=ROUND[#502/2]
IF[#519EQ#529]GOTO370
GOTO#523
N680
#519=#505/2
#529=ROUND[#505/2]
IF[#519EQ#529]GOTO370
GOTO#523
N750
#519=#505/2
#529=ROUND[#505/2]
IF[#519NE#529]GOTO370
GOTO#523
N830
IF[#527EQ0]GOTO990
IF[#527EQ1]GOTO910
IF[#527EQ2]GOTO950
IF[#527EQ3]GOTO1040
#521=11
GOTO210
N910
#511=1
#505=#506-1
GOTO#523
N950
#511=0
#505=#516+1
GOTO#523
N990
IF[#511EQ0]GOTO1090
#511=0
#505=#516+1
GOTO#523
N1040
IF[#512EQ1]GOTO1090
#511=0
#505=#516+1
GOTO#523
N1090
#511=1
#505=#506-1
GOTO#523
N1150
IF[#512EQ0]GOTO1190
#512=0
GOTO#523
N1190
#512=1
GOTO#523
N1230
#509=#100*10(NEU)
#508=0+#501
#508=#[#508]
#508=#508-#509
#508=#508*1000(NEU)
#509=9999
GOTO1660
N1310
#508=#509+#501
GOTO1660
N1350
IF[#500EQ999999]GOTO1440
IF[#501LT#510]GOTO1390
GOTO3070
N1390
IF[#500EQ999999]GOTO1440
#523=1410
GOTO1150
N1410
#523=1420
GOTO830
N1420
#501=#501+1
N1440
#100=0+#501
#100=#[#100]/10
#100=FIX[#100]
GOTO1230
N1490
IF[#500EQ999999]GOTO1580
IF[#501LT#510]GOTO1530
GOTO3070
N1530
IF[#500EQ999999]GOTO1580
#523=1550
GOTO1150
N1550
#523=1560
GOTO830
N1560
#501=#501+1
N1580
#100=#501
GOTO1310
N1630
IF[#509EQ9999]GOTO1350
GOTO1490
N1660
#500=0
M9
M5
(TWECHSEL)
G91G28Z0.

G49G90G40G80
IF[#100GT0]GOTO1760
#100=ABS[#100]
#508=ABS[#508]
M0
N1760
IF[#149EQ#100]GOTO2000
G54T#100
M6
#149=#100
GOTO2000
N1850
#530=10000+#100(N)
#[#530]=#528(N)
G0G80G40
G90G10L2P1X#513Y-#[#525]Z-#[#526]
G43H#100Z#507
IF[#518EQ0]GOTO1910
#523=1900
GOTO270
N1900
N1910
M98P#508
G0G80G90G40Z#507
IF[#520EQ0]GOTO2000
#523=1950
GOTO270
N1950
GOTO2000
N2000
IF[#511EQ1]GOTO2040
GOTO2090
N2040
#505=#505+1
IF[#505GT#516]GOTO2140
GOTO2170
N2090
#505=#505-1
IF[#505LT#506]GOTO2140
GOTO2170
N2140
GOTO2250
N2170
#514=#515*#505
#513=#[#524]+#514
GOTO1850
N2250
IF[#512EQ1]GOTO2280
GOTO2320
N2280
IF[#502GE#504]GOTO2360
#502=#502+1
GOTO2400
N2320
IF[#502LE#503]GOTO2360
#502=#502-1
GOTO2400
N2360
GOTO1630
N2400
#523=2410
GOTO830
N2410
#519=#502*3
#524=11102-#519
#525=11101-#519
#526=11100-#519
GOTO2000
N2500
M5
M9
IF[#520EQ0]GOTO2560
G1G40G90X0.Y0.F2000
M77
N2560
(REF)
G0G91G28Z0.
G91G28Y0.
G90G53X140.
#520=0
#501=#517
#502=#503
IF[#516GT0]GOTO2650
#516=#506
N2650
IF[#504GT0]GOTO2680
#504=#503
N2680
#511=1
#506=#506-1
#516=#516-1
#505=#506-1
#512=1
IF[#527NE2]GOTO2770
#511=0
#505=#516+1
N2770
IF[#506GT#516]GOTO2800
GOTO2870
N2800
#513=#506
#506=#516
#516=#513
#505=#516+1
#511=0
N2870
IF[#503GT#504]GOTO2910
GOTO2980
N2910
#513=#503
#503=#504
#504=#513
#502=#504
#512=0
N2980
#500=999999
#519=#502*3
#524=11102-#519
#525=11101-#519
#526=11100-#519
GOTO1630
N3070
M9
M5
(REF)
G0G91G28Y0.Z0.
G90G53X140.000
#518=0
M99