Mitsubishi Electric E70 Series, Инструкция по эксплуатации

Страница: 550 / 782

E70 Series Instruction Manual
Appendix 4.3 Standard Fixed Cycle Subprogram (For L system)
IV - 17
[G76(
Ｏ
100000760) Compound thread cutting cycle]
G.1 ;
#12 = 1 ;
#13 = #9 ;
IF [ABS[#13] GE [ABS[#8]]] GOTO 1 ;
#16 = 1 ;
#13 = #8 ;
N1#11 = #13 ;
IF [ABS[#11] LT [ABS[#4-#5]]] GOTO 2 ;
#11 = #4-#5 ;
#14 = 1 ;
N2 #17 = #11 ;
#10 = ROUND[[#11+#5] * #7] ;
IF [[#10 XOR #1] GE 0] GOTO 20 ;
#10 = -#10 ;
N20 G00 X#10 ;
#55 = #10 ;
DO1 ;
#15 = ROUND[#10*#3/#1] ;
N90 #40 = 90 #41 = #5001 #42 = #5002 ;
G00 Y#2+#3-#4-#15+#11 ;
G33 X#1-#10Y-#3+#15 Q#22 M96.101 P1000D3 ;
G00 Y-#2+#4-#11 M97.101 ;
IF [#14 GT 0] GOTO 3 ;
IF [#16 GT 0] GOTO 7 ;
#12 = #12+1 ;
#13 = ROUND[#9*SQRT[#12]] ;
IF [ABS[#13-#11] GE [ABS[#8]]] GOTO 8 ;
#16 = 1 ;
N7 #13 = #11+#8 ;
N8 #11 = #13 ;
IF [ABS[#11] LT [ABS[#4-#5]]] GOTO 9 ;
#11 = #4-#5 ;
#14 = 1 ;
N9 #10 = ROUND[[#17-#11]*#7] ;
IF [[#10 XOR #1] GE 0]GOTO 6 ;
#10 = -#10 ;
N6 #10 = #10+#55 ;
G00 X-#1+#10 ;
N12 END1 ;
N3 IF [ABS[#6] LT 1] GOTO 5 ;
#14 = 0 ;
#13 = 0 ;
DO2 ;
IF [#14 GT 0]GOTO 5 ;
#13 = #13+#6 ;
IF [ABS[#13] LT [ABS[#5]]] GOTO 4 ;
#13 = #5 ;
#14 = 1 ;
N4 G00 X#10-#1 ;
N91 #40 = 91 #41 = #5001 #42 = #5002 ;
G00 Y#2+#3-#4+#13-#15+#11 ;
G33 X#1-#10 Y-#3+#15 Q#22 M96.101 P1000 D3 ;
G00 Y-#2+#4-#13-#11 M97.101 ;
END2 ;
N5 G00 X-#1 ;
M99 ;