Подпрограмма для канавок Siemens 808d

[Frezer1519]

Здравствуйте! Помогите пожалуйста! Стойка Siemens 808d, токарная. Как составить подпрограмму, чтобы выполнить 250 канавок на валу?
Канавки прямые. Ширина канавки 0.5 мм. Глубина канавки 0.5 мм. Шаг 1 мм. То есть 250 одинаковых врезаний. Спасибо!

[RNDL]

R1=0 ; переменная, считающая канавки
Шапка программы
G0 X60 Z5 ;подвод к торцу
KANAVKA: ;начало метки
G0 X60 Z-1 ;подвод к первой канавке по Z
G0 X51 ; подвод к диаметру. Допустим 50мм диаметр вала
G1 X49 F0.02 ; прорезание первой канавки
G0 X60 ; отвод от диаметра, первая канавка готова
R1=(R1+1) ; добавление к счётчику
ATRANS Z-1 ; смещение влево на 1мм для следующей канавки
ENDLABEL: ; конец метки
IF R1<=250 GOTO KANAVKA; если R1 меньше либо равно 250, выполняется кусок программы между началом и концом метки.
TRANS ; отмена всех смещений
G0 X60
G0 Z5
M5 M9
M30

[Frezer1519]

Спасибо! попробую

[Frezer1519]

Попробовал. Делает одну канавку. И на исходную. Может попробовать с подпрограммой L ? В руководстве есть варианты.

[RNDL]

Ошибка в синтаксисе.
Начало метки это KANAVKA:
Конец метки это ENDLABEL:
В конце ставится двоеточие. У вас стоит перед именем метки точка с запятой, т.е. вы их закомментировали, соответственно стойка их не видит
И в начале программы обязательно поставьте R1=0

[RNDL]

Через подпрограмму конечно тоже можно, но по своему опыту скажу, что по меткам удобнее. Не нужно постоянно прыгать из основной программы в подпрограмму. Меньше шансов допустить ошибку

[Frezer1519]

Спасибо! Получилось)