Подскажите по использованию подпрограммы

[artclonic]

Добрый день, помогите с помощью подпрограммы упростить мою программку. Имею что-то по типу укладчика компонентов. К примеру вот такая задача выложить матрицу из 9 компонентов
A,B,C. Координаты бункеров с компонентами фиксированные координаты бункера A X-50 Y135, координаты бункера A X 25 Y100, координаты бункера A X-25 Y150.
Так вот Опускание захвата в бункер за компонентом (кадры N20-N40) и укладка захватом компонента (кадры N60-N80) будут повторятся в зависимости от количества компонентов в матрице
Подскажите как эти действия захвата засунуть в подпрограммы. И где эти подпрограммы надо прописать..

/Необходимо выложить матрицу из 9 компонентов
/A B C/
/A B C/
/A B C/
координаты бункера A X-50 Y135
координаты бункера A X 25 Y100
координаты бункера A X-25 Y150



N10 G0X-50Y135 /подход к бункеру А/

N20 G0Z15 /захват в 15мм/
N30 G0Z30F100 /захват в 30 мм, с подачей 100/
N40 G0Z0 /захват в 0мм/

N50 G0X0Y3 /переход к месту укладки/

N60 G0Z64 /захват в 64 мм/
N70 G04P0.5 /пауза 0,5 сек/
N80 G0Z0 /захват в 0мм/

N90 G0A3 /переход по 4-ой оси на 3 мм (переход на следующий ряд)/

/ и так далее.../

G0X25Y100 /подход к бункеру B/
G0Z15
G0Z30F100
G0Z0
G0X0Y6
G0Z64
G04P0.5
G0Z0
G0A3
G0X-25Y150 /подход к бункеру C/
G0Z15
G0Z30F100
G0Z0
G0X0Y9
G0Z64
G04P0.5
G0Z0
G0A3
G0X-50Y135
G0Z15
G0Z30F100
G0Z0
G0X0Y3
G0Z64
G04P0.5
G0Z0
G0A6
G0X25Y100
G0Z15
G0Z30F100
G0Z0
G0X0Y6
G0Z64
G04P0.5
G0Z0
G0A6
G0X-25Y150
G0Z15
G0Z30F100
G0Z0
G0X0Y9
G0Z64
G04P0.5
G0Z0
G0A6
G0X-50Y135
G0Z15
G0Z30F100
G0Z0
G0X0Y3
G0Z64
G04P0.5
G0Z0
G0A9
G0X25Y100
G0Z15
G0Z30F100
G0Z0
G0X0Y6
G0Z64
G04P0.5
G0Z0
G0A9
G0X-25Y150
G0Z15
G0Z30F100
G0Z0
G0X0Y9
G0Z64
G04P0.5
G0Z0

[Nick]

Это под Mach?

[artclonic]

Да под под Mach. Бисер укладываю... (раньше по другой логике работало -фазное управление) Сейчас осваиваю Mach...