Guten Morgen,
mit "Luxus" kann ich leider nicht dienen. Dafür brauchst du genaugenommen auch eine Y-Achse.
mit der C-Achse ist es ja ein bisschen geschummelt
aber hier das Unterprogramm.
(**************************************************)
NUT INNEN STOSSEN
VERSION: 2020-09-17
(**************************************************)
NAT10 (NUT INNEN STOSSEN)
TWK = 101010 (WERKZEUGKORREKTUR)
XAD = 16.00 (ANFAHRTSDURCHMESSER)
XED = 20.70 (ENDDURCHMESSER)
ZAP = 3.00 (ANFAHRTSPUNKT IN Z)
ZEP = -6.00 (ENDPUNKT IN Z)
CSP = 0.00 (STARTPUNKT - C)
XZX = 0.20 (ZUSTELLUNG IM DURCHMESSER)
FSB = 6000 (VORSCHUB)
AWB = 0 (FOLGT WEITERE BEARBEITUNG? JA = 1 * NEIN = 0)
CALL ONIST (NUT INNEN STOSSEN AXIAL)
ONIST (NUT INNEN STOSSEN)
M5 M63
M110
M808
G0 X=XAD Z=ZAP C=CSP T=TWK G94 M8 M63
XEDA = XAD (ENDDURCHMESSER = STARTDURCHMESSER)
NSIS
XEDA = XEDA+XZX (ENDDURCHMESSER WIRD ANGEPASST)
IF [XEDA GE XED] NSIE
(WENN ANGEPASSTER ENDDURCHMESSER > ODER = ENDDURCHMESSER -> 'NSWE')
G0 X=XEDA
G1 Z=ZEP F=FSB
G4 F0.05
G1 X=XAD
G0 Z=ZAP
G1 X=XEDA+XZX
IF [XEDA LT XED] NSIS
(WENN ANGEPASSTER-ENDDURCHMESSER < ENDDURCHMESSER -> AUF'NXDL')
NSIE
G0 X=XED
G1 Z=ZEP F=FSB
G4 F0.05
G1 X=XAD
G0 Z=ZAP
IF [AWB EQ 1] NUEND (ABFRAGE: FOLGT WEITERE BEARBEITUNG)
G0 X999 Z100 M109
NUEND
M1
RTS
Viel erfolg