Mitsubishi C70

Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
IV - 10
(2) Machining center specifications
G12
G13
Circular cut G34 Bolt hole circle
O120 CIRCLE-CUTTING O340 BOLT-HOLE-CIRCLE
#42=#40-#41
G#39X#42Y0I#42/2
X0Y0I-#42
X-#42Y0I-#42/2
M99
#45=0
WHILE[#45LT[ABS[#43]]]DO1
#46=360*#45/#43+#42
#47=RND[#41*COS[#46]]#48=RND[#41*SIN[#4
6]]
X#39+#47Y#40+#48
#39=-#47#40=-#48#45=#45+1
END1
M99
G35 Line at angle G36 Arc
O350 LINE-AT-ANGLE O360 ARC
#45=0
WHILE[#45LT#43]DO1
#46=#45*#41
#47=RND[#46*COS[#42]]#48=RND[#46*SIN[#4
2]]
X#39+#47Y#40+#48
#39=-#47#40=-#48#45=#45+1
END1
M99
#45=0
WHILE[#45LT#43]DO1
#46=#45*#44+#42
#47=RND[#41*COS[#46]]#48=RND[#41*SIN[#4
6]]
X#39+#47Y#40+#48
#39=-#47#40=-#48#45=#45+1
END1
M99
G37 Automatic tool length measurement G37.1 Grid
O370 AUTO-TLM O379 GRID
G31Z#5F#3
IF[ROUND[ABS[#2-[##10*#11-#12]]]GT#8]GOT
O1
IF[ROUND[##10*#11-#12]EQ#4]GOTO1
##9=##10-#12/#11-#2/#11+##9
#3003=#1
N2
M99
N1#3901=126
#45=0#47=#39#48=#40
WHILE[#45LT#43]DO1
#46=1
X#47Y#48
WHILE[#46LT#44]DO2
X#41
#46=#46+1
END2
#47=0#48=#42#41=-#41#45=#45+1
END1
M99