dosuw w osiach x y

[best91]

Witam, mógłby mi ktoś pomóc w przerobieniu tego programu, w którym dosuwam się w osi Z, na taki w którym można dosuwać się bokiem freza w osi XY? Powiedzmy zaczynając naddatkiem w DR +10 i zjeżdzać o 1mm do 0

R1=0.5
R2=-2
R3=1


G40 G17 G71 G90
N30 ; ===> OFF-set <===
N40 G54
N50 ; =================
N60 ;Start of Program


T="CUTTER 10" D1 M6 S3000 M3
G0 Z200
G0 X-130 Y-130
BG:
Z= R3 - R1
G41
G1 X-100 F5000
Y100
X100
Y-100
X-130
G40 Y-130
BG2:

R3=R3-R1
IF R3>R2 GOTO BG

G0 Z100
M30

[Gleba]

Sprawdź w symulatorze zanim puścisz, pisane w notatniku.

DEF INT _NAD, _XWYMIAR, _YWYMIAR
;ZMIENNE
_NAD=10 ;NADDATEK
_XWYMIAR=100
_YWYMIAR=100

G0 SUPA Z0 D0

T="CUTTER 10" D1 M6 S3000 M3
G40 G17 G71 G90
G54

PETLA:
G0 X=-_XWYMIAR-_NAD-20 Y=_YWYMIAR-_NAD-20
G0 Z5
G1 Z-2
G1 G41 X=-_XWYMIAR-_NAD Y=-_YWYMIAR-_NAD F5000
G1 Y=_YWYMIAR+_NAD
G1 X=_XWYMIAR+_NAD
G1 Y=-_YWYMIAR-_NAD
G1 X=-_XWYMIAR-_NAD
G1 G40 X=-_XWYMIAR-_NAD-20 Y=_YWYMIAR-_NAD-20
G0 Z15

IF (_NAD==0)
GOTO END:
ELSE
_NAD=_NAD-1
GOTO PETLA:
ENDIF

END:
G0 SUPA Z0 D0
D1
M30