Hier ist das Programm als Text da die Datei nach dem Hochladen nicht zu
gebrauchen ist.
()
()
( ***************** RADIALE BOHRUNGEN FRAESEN ****************** )
()
()
V1=20 ( GROESSE DER BOHRUNG )
V2=10 ( FRAESERDURCHMESSER )
V3=0 ( STARTPUNKT DER BOHRUNGEN Z-ACHSE )
V4=10 ( TIEFE DER BOHRUNG )
V5=3 ( ANZAHL DER ZUSTELLUNGEN )
V6=3 ( ANZAHL DER BOHRUNGEN )
V7=90 ( RADIUS TEILKREIS )
V8=0 ( STARTWINKEL DER 1. BOHRUNG )
V9=0.1 ( VORSCHUB BEIM EINTAUCHEN )
V10=0.2 ( VORSCHUB BEIM FRAESEN )
V11=2000 ( SB=
DREHZAHL BEIM FRAESEN )
V12=0101 ( WERKZEUGSTATION MIT WERKZEUGKORREKTUR )
V13=250 ( WERKZEUGWECHSELPUNKT Z-ACHSE )
()
()
( *************** BERECHNUNGEN *************** )
()
()
V14=V3-V4
V15=V14*[-1]/V5
V16=1 ( ZAEHLER 1 ANZAHL ZUSTELLUGEN Z-ACHSE )
V17=0 ( ZAEHLER 2 ANZAHL BOHRUNGEN )
V18=[V1-V2]/2
()
()
G00 X600 Z=V13
G50 S2000
NAT01
M110
G00 Z=V2+10 T=V12 SB=V11
G00 X=V7
G00 Z=V3+2 M15 M63 M146
NANFB G137 C=V8
G00 X=V7 Y0 M08 M13 M63
G01 G95 Z=V3+0.2 F=V9*3
NANFA G01 Z=V3-V15 F=V9 M147
G101 X=V7+V18 F=V10 M146
G102 X=V7-V18 Y0 L=V18 F=V10
G102 X=V7+V18 Y0 L=V18 F=V10
G01 X=V7 F=V10*3
V3=V3-V15
V16=V16+1
IF[V16 LE V5] NANFA
G00 Z=V3+2+[V5*V15]
G136
V8=V8+[360/V6]
G137
V3=0 V16=1
V17=V17+1
IF[V17 GE V6] NANFC
GOTO NANFB
NANFC G00 Z=V2+10 M09 M12
G136
M109
G00 X600 Z=V13
M02