Instrukcje są w internecie, na pewno po angielsku. Jak znajdziesz instrukcje to upewnij się że to do twojej wersji oprogramowania.

Jak zmienisz na while to też powinno być ok.
IF-y dobrze wpisałeś? Wykasuj IF, STOPRE.

Anderk pisze:Sprawdze jutro w pracy jak bedzie to wyglądało na maszynie

Uważaj na te warunki IF, jak coś sknociłem to program może się zapętlić. To samo może nastąpić przy "nieodpowiedniej" wartości początkowej R1.
Sprawdzaj w trakcie wykonywania programu aktualne wartości parametrów R i czy IF robi to co powinno.

Podałem Ci przykład, w bloki N400-N490 wstawiasz swój kod i praktycznie gotowe. N370-N390 specjalnie dopisałem komentarz, to może być twoje przejście wykańczające (sprawdzasz czy R10 jest mniejsze lub równe twojemu 0.5).

Twojego przykładu nie "rozumiem". Zaczynasz gez G41, w połowie załączasz G41 a nigdzie nie ma G40 (przy kolejnym obiegu pętli wszystko będzie z G41).

G1Z-230
G0 Z=IC(-1)

Z-230 i jeszcze -1 na G0 ?


Nie możesz tego zrobić przy użyciu cykli toczenia ?

[ Dodano: 2013-03-07, 20:20 ]
Pewnie jeszcze będzie trzeba coś poprawić:

R1=20
R2=0.4
R3=3 ;KROK

REPEAT
G0 Z5.

PLAN1:
IF R1<5
G0 X=600-R1
G3 X=590-R1 Z0 CR=5 F=R2
G2 X=570-R1 Z-10 CR=10
G0 Z2.
ENDIF


PLAN2:
G1 G41 X=570-R1 Z1. F=R2
G1 Z-60 ANG=180 RND=25
G1 X=535-R1 Z-2154 RND=25
G1 Z-230
G0 G40 X=IC(-2.) Z5.


R1=R1-R3
STOPRE

IF R1<=R3 ;OSTATNIE PRZEJSCIE ?
IF (R1==(0.5-R3)) ; JESLI BYL NADDATEK
R1=0 ; PRZEJSCIE WYK.
ELSE
IF R1>0 ;JESLI MNIEJSZE OD ZERA TO BEDZIE KONEC PETLI
R1=0.5 ; ZOSTAW NADDATEK
ENDIF
ENDIF

UNTIL R1>=0

Anderk, Zdecyduj się albo WHILE albo REPEAT

IF&#8211;ELSE&#8211;ENDIF
LOOP&#8211;ENDLOOP
FOR&#8211;ENDFOR
WHILE&#8211;ENDWHILE
REPEAT&#8211;UNTIL

Nie powinieneś odwoływać się do wnętrza jednej pętli z drugiej.
Gdy używasz obliczeń z parametrami R dobrze jest użyć STOPRE aby sterowanie zaczekało na aktualne wartości parametrów (standardowo program jest wczytywany ileś bloków do przodu a wtedy wartości R mogą być nieaktualne).

N80 T36 ;FREZ 20MM
N90 M6
N100 G0 B0
N110 G17 G55 X=-XPOS Y=YSRO+YPOS Z=WYS+80 S4300 M3
N320 R10=GLP
N330 REPEAT
N340 G0 X=-XPOS Y=YSRO+YPOS
N350 Z=(WYS+2)-R10
N360 R10=R10+DEP
N370 IF ABS(R10)>ABS(GLR) ;jesli za glemboko
N380 R10=GLR ; ostateczna glembokosc
N390 ENDIF
N400 G1 Z=WYS-R10 F1200
N410 X0. Y=YSRO+YPOS3 F2570
N420 X=-(PROM/2)
N430 G2 I=AC(0) J=AC(YSRO+YPOS3) AR=180
N440 G1 X=PROM
N450 X=IC(2.) Y=IC(-2.)
N460 X=PROM Y=YSRO+YPOS3
N470 G3 I=AC(0) J=AC(YSRO+YPOS3) AR=180
N480 G1 X=IC(-2.) Y=IC(-2.)
N490 G0 Z=(WYS+2)-R10
N500 STOPRE
N510 UNTIL ABS(R10)>=ABS(GLR)
N520 G0 G40 Z320. M9