cnc-club.ru

работаю на автоматической линии, хочу немного изменить действия программы, но в программировании не разбираюсь.
помогите разобраться с программой

; Group 3 bend
;
ATRANS X=R0 Y=R1
G17 G90 G64
$A_OUT[1]=0
$A_OUT[2]=0
$A_OUT[3]=0
$A_OUT[4]=0
;
;
; StartUp - Axes to entry position
G0 X45
;
;
LBL_INI:
G0 Y-1
G0 X0.6
LBL0: IF $A_IN[2]==0 GOTOB LBL0
$A_OUT[2]=1
;
;
LBL0_END: IF $A_IN[2]==1 GOTOB LBL0_END
$A_OUT[2]=0
;
; Motion block#2
;
LBL2: IF $A_IN[3]==0 GOTOB LBL2
$A_OUT[3]=1
G0 X1
G1 X1 Y8 F5000
G1 X1 Y8 F5000
G0 X3
G0 Y-1
LBL2_END: IF $A_IN[3]==1 GOTOB LBL2_END
$A_OUT[3]=0
;
; Motion block#4
;
LBL4: IF $A_IN[3]==0 GOTOB LBL4
$A_OUT[3]=1
G1 X1.2 Y-96 F5000
G1 X1 Y-96 F5000
G0 Y-10
LBL4_END: IF $A_IN[3]==1 GOTOB LBL4_END
$A_OUT[3]=0
;
; Motion block#99
;
LBL99: IF $A_IN[3]==0 GOTOB LBL99
$A_OUT[3]=1
LBL99_END: IF $A_IN[3]==1 GOTOB LBL99_END
$A_OUT[3]=0
;
; End PartProgram
;
GOTOB LBL_INI
M2

Разобрались - хороший код

PS проняло до слёз.

Да ни кто ж, не спорит - всякое бывает...

Блин опять, перечитал с начала и опять ржу.

Интрига

Вдруг автор действительно считает, что дал все исходные данные, и сформулировал хотелку ?