Circle

More
24 Jan 2016 20:05 #69066 by BigJohnT
BigJohnT created the topic: Circle
This sub mills an inside or outside circle. Outside is done.
(info: Mill Circle)
o<circle>sub

#<Z_Start> = #1 (=0.100 Z Start)
#<Z_Depth> = #2 (Z Depth)
#<Z_Steps> = #3 (Z Steps)
#<Circle_Dia> = #4 (Circle Diameter)
#<X_Coord> = #5 (X Center)
#<Y_Coord> = #6 (Y Center)
#<InOut> = #7 (=0 0=Outside 1=Inside)
#<Tool> = #8 (=1 Tool Number)
#<Tool_Dia> = #9 (Tool Diameter)
#<FeedRate> = #10 (Feed IPM)
#<RPM> = #11 (=1800 Spindle RPM)
#<X_Park> = #12 (=0 X Park)
#<Y_Park> = #13 (=0 Y Park)

T#<Tool> M6
G43
F#<FeedRate>
M3 S#<RPM>
M110
o110 if [#<InOut> EQ 0]
(MSG,Outside Circle Climb Mill)
#<Path> = [#<Circle_Dia>+[#<Tool_Dia>]]
#<X_Start> = [#<X_Coord>+[#<Circle_Dia>/2]+[#<Tool_Dia>/2]]
G0 X#<X_Start> Y#<Y_Coord>
Z#<Z_Start>
G2 X#<X_Start> Y#<Y_Coord> Z#<Z_Depth> I-[#<Path>/2] P#<Z_Steps>
G2 X#<X_Start> Y#<Y_Coord> Z#<Z_Depth> I-[#<Path>/2] P1
G91
G1 X[#<Tool_Dia>/2]
G90
G0 G53 Z0
G0 X#<X_Park> Y#<Y_Park>
o110 else
(MSG,Inside Circle Climb Mill)
o110 endif

o<circle>endsub

JT
Time to create page: 0.058 seconds
Powered by Kunena Forum