Hi guys,
Got a little problem with this macro as it conventional mill and the high feed doesn't like that so I need to change this to climb milling. any help would be appreciated.
%
O1120(SKIMMING - TITANIUM ONLY)
T30M6
(63mm HIGH FEED SECO FACEMILL)
(PULL STUD = 1x THU COOLANT 308765 50)
(BACKEND = 1x BT50BSM2C22100M)
(CUTTER BODY = 1x R220.21-0063-LO06.9A)
(SPARE SCREWS = 9x C02508-T08P)
(INSERT = 9x LOHT060310TR-M07 MS2050)
G40G80G17G21
M50
M68
G0G90G80G40G54X0Y0S315M3
M16
T50
G43Z200H30
G65P9921D30X0.Y0.U1899.V140.R1.Q.6Z0.C10.E0.75F1700
(D=TOOL NUMBER)
(X=X START OF BILLET)
(Y=Y START OF BILLET)
(U=X FINISH SIZE)
(V=Y FINISH SIZE)
(R=START HEIGHT)
(Q=DEPTH OF CUT-MAX 0.6)
(Z=FINISH HEIGHT)
(C= RUN OFF DISTANCE)
(E= STEP OVER PERCENTAGE)
(F=FEED RATE)
G0Z50
G0G80M09
M05
G94
M69(CHIP CONVEYOR OFF)
M50
M30
%
%
O9921(SQUARE-UNI-DIR)
(G65P9921X-Y-U-V-D-R-Z-F-E-C-K-Q-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[[#18-#26]LT0]GOTO993
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#22]EQ0]GOTO990
IF[#21LT0]GOTO990
IF[#22LT0]GOTO990
#10=#[13000+#7]+#[12000+#7](OFFSET-C-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#8EQ#0]GOTO50
GOTO60
N50#8=0.60
N60IF[#8GT1]GOTO996
IF[#3EQ#0]GOTO70
GOTO80
N70#3=#10
N80IF[#3LT0]GOTO992
IF[#6EQ#0]GOTO90
GOTO100
N90#6=0
N100#26=#26+#6
IF[#17EQ#0]GOTO110
GOTO120
N110#17=#18-#26
N120IF[#17GT[#18-#26]]GOTO997(Q-GT-[R-Z])
IF[#6GT#17]GOTO998(K-GT-Q)
#27=#24-[#3+#10]
#28=#25+#10*[2*#8-1]
#29=#18-#17
#30=#28
#14=2*#10*#8
DO1
#28=#30
G00X#27Y#28
Z#18
G01Z#29F[#9/2]
DO2
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO200
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#29F[#9/2]
END2
N200#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
IF[#6EQ0]GOTO500
#26=#26-#6
G00G90Z#18
Z#32
#28=#30
G00G90X#27Y#28
Z#18
G01Z#26F[#9/2]
DO3
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO500
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#26F[#9/2]
END3
N500(***END-OF-FINISH***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
Got a little problem with this macro as it conventional mill and the high feed doesn't like that so I need to change this to climb milling. any help would be appreciated.
%
O1120(SKIMMING - TITANIUM ONLY)
T30M6
(63mm HIGH FEED SECO FACEMILL)
(PULL STUD = 1x THU COOLANT 308765 50)
(BACKEND = 1x BT50BSM2C22100M)
(CUTTER BODY = 1x R220.21-0063-LO06.9A)
(SPARE SCREWS = 9x C02508-T08P)
(INSERT = 9x LOHT060310TR-M07 MS2050)
G40G80G17G21
M50
M68
G0G90G80G40G54X0Y0S315M3
M16
T50
G43Z200H30
G65P9921D30X0.Y0.U1899.V140.R1.Q.6Z0.C10.E0.75F1700
(D=TOOL NUMBER)
(X=X START OF BILLET)
(Y=Y START OF BILLET)
(U=X FINISH SIZE)
(V=Y FINISH SIZE)
(R=START HEIGHT)
(Q=DEPTH OF CUT-MAX 0.6)
(Z=FINISH HEIGHT)
(C= RUN OFF DISTANCE)
(E= STEP OVER PERCENTAGE)
(F=FEED RATE)
G0Z50
G0G80M09
M05
G94
M69(CHIP CONVEYOR OFF)
M50
M30
%
%
O9921(SQUARE-UNI-DIR)
(G65P9921X-Y-U-V-D-R-Z-F-E-C-K-Q-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[[#18-#26]LT0]GOTO993
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#22]EQ0]GOTO990
IF[#21LT0]GOTO990
IF[#22LT0]GOTO990
#10=#[13000+#7]+#[12000+#7](OFFSET-C-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#8EQ#0]GOTO50
GOTO60
N50#8=0.60
N60IF[#8GT1]GOTO996
IF[#3EQ#0]GOTO70
GOTO80
N70#3=#10
N80IF[#3LT0]GOTO992
IF[#6EQ#0]GOTO90
GOTO100
N90#6=0
N100#26=#26+#6
IF[#17EQ#0]GOTO110
GOTO120
N110#17=#18-#26
N120IF[#17GT[#18-#26]]GOTO997(Q-GT-[R-Z])
IF[#6GT#17]GOTO998(K-GT-Q)
#27=#24-[#3+#10]
#28=#25+#10*[2*#8-1]
#29=#18-#17
#30=#28
#14=2*#10*#8
DO1
#28=#30
G00X#27Y#28
Z#18
G01Z#29F[#9/2]
DO2
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO200
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#29F[#9/2]
END2
N200#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
IF[#6EQ0]GOTO500
#26=#26-#6
G00G90Z#18
Z#32
#28=#30
G00G90X#27Y#28
Z#18
G01Z#26F[#9/2]
DO3
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO500
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#26F[#9/2]
END3
N500(***END-OF-FINISH***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%