dziękuję z pomoc, działa ale wymagał małej poprawki ma być GOTOF zamiast GOTO
stosuję sam często parametry R pisząc programy uniwersalne, z danymi wpisywanymi przez operatora.
Mam jeszcze jedno pytanie, zagłębianie jest sumą wartości osi X w podprogramie, co w tym przypadku daje 10mm, jest to stanowczo za dużo, zmniejszenie do 2mm powoduje, że owszem zagłębia się o 2mm, ale kończy na średnicy 48mm a nie 40-tu jak jest warunku. Co trzeba jeszcze zmodyfikować aby osiągał punkt z warunku czyli 40mm.
Poniżej działający program po moich poprawkach, z parametrami R.

pozdrawiam adam

%MPFPETLA_D
;DANE DO WPISANIA PRZEZ OPERATORA-ELEMENTY ZARYSU DETALU

R10=3
R11=1.8
R12=2.2
R13=1.6
R14=1.4

R15=100 ;NAJAZD W OSI Z DLUGOSC DETALU
R16=100 ;NAJAZD W OSI X SREDNICA MATERIALU

;OBLICZENIA
R20=(R10+R11+R12+R13+R14)
R20=R20
N10 T1 D1
N15 MSG("TOCZENIE W PETLI DO SPELNIENIA WARUNKU R1<40 ")
N30 G96 S120 M4
N40 G90 G0 X=R16 Z=R15+2
N50 Z=R15
N60 R1=100
N70 Start1:
N80 L1P
N90 IF (R1<40) GOTOF Koniec1
N100 R1=R1-R20 ;ZAGLEBIANIE
N110 G90 G0 Z=R15
N120 X=R1
N130 GOTOF Start1
N140 Koniec1:
N150 G90 G0 X=R16 Z=R15+50
N160 M30

%SPFL1P
N20 G95 G91 G1 X=R10 Z-10 F.2
N30 X=R11 Z-15.7
N40 X=R12 Z-7.6
N50 X=R13 Z-8.25
N60 X=R14
N80 M17

czy jest możliwe napisanie w Sinumeriku 810D programu toczenia na tokarce, który powtarza n-razy podprogram (napisany przyrostowo-inkrementalnie) aż do osiągnięcia wymaganej pozycji w osi X bezwzględnie.
.czyli rozpoczynając np bezwzględnie w osi X100 ma kończyć podprogram na X40.
przykład poglądowy, takie rozważania

%MMPF1
...definicje zmiennych ?
N10 T1 D1
N15 G96 S120 M4
N20 G90 G0 X100 Z100
.....?
N25 L1
.....?
....?
N30 G90 G0 X150 Z200
N40 M30

%SPFL1
N10 G91 G1 X3 Z-10 F.2
N15 X1.8 Z-15.7
N20 X2.2 Z-7.6
N23 X1.6 Z-8.25
N30 X1.4
N35 M17


proszę o wyrozumiałość, jeżeli napisałem jakieś herezje