Back Cbore Macro

[Rick McAllister]

Hello All,

I hate to ask, but does anyone have a basic back counterbore macro for the reverse flip out type of back spotface tool?

 

I'm a haven't written a macro in years and I'm very rusty.

 

Thanks in advance.

[mayday]

Writing a simple sub may be easier. just write it in incramental mode. make the moves you want to perform using the hole centerline as X,Y zero. then position to the hole in your main program in abosute mode and call the sub

[Craig-B]

Rick,

You can created a custom drill cycle in Mastercam and call it back bore. Then set it up to move the way you want.

[Rick McAllister]

Thanks Guys,

 

I broke down and wrote the macro. It will be added to all of our controls. Our posts will be modified to add the custom drill cycle.

 

[Rick McAllister]

%

O8701(BACK CBORE MACRO)

(G65P8701R.7Q.4E8.D-3.F3.I-.5J-.45K30.Z1.)

(D= SPINDLE REVERSE WING OUT POINT)

(E= CLOSE WING FEED RATE)

(F= CUT FEED RATE)

(I= FINAL FEED Z DEPTH- TOP OF MTRL TO CBORE BTM)

(J= FEED TO POINT TO CLOSE WING AFTER CUT)

(K= CLOSED WING FEED RATE)

(Q= CLOSE WING 'FEED TO' POINT AT F FEED)

(R= INITIAL RAPID PLANE HEIGHT)

(Z= RAPID PLANE- MUST BE GT TOOL TIP LENGTH)

(SPINDLE FEEDS INTO HOLE M04 AT S RPM TO D VALUE THEN STOPS REVERSES SPINDLE M03 AT S RPM)

(SPINDLE STOPS AND REVERSES M04 AT S RPM PRIOR TO FEEDING OUT OF HOLE AFTER CYCLE IS COMPLETE)

IF[#4EQ0]GOTO2000

IF[#5LE#4]GOTO3000

IF[#5LE#7]GOTO4000

IF[#8LE0]GOTO8000

IF[#9LE0]GOTO9000

M50

M8

M04

G90G0Z#26

G1Z#17F#8

G1Z#7F#6

M05

M03

G1Z#4F#9

G1Z[#4-.02]

M05

M04

G1Z#5F#8

G1Z#26F#6

M99

N2000

#3000=121(VARIABLE I MUST BE DEFINED OR CAN NOT BE ZERO)

N3000

#3000=122(VARIABLE J MUST BE GREATER THAN VARIABLE I)

N4000

#3000=123(VARIABLE I MUST BE GREATER THAN VARIABLE D)

N7000

#3000=126(VARIABLE D MUST BE LESS THAN THAN VARIABLE I)

N8000

#3000=127(VARIABLE E MUST BE DEFINED OR CAN NOT BE ZERO)

N9000

#3000=128(VARIABLE F MUST BE DEFINED OR CAN NOT BE ZERO)

M30

%