Circle

(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

O111 IF [condition 1] .... O222 IF [condition 2 ... O222 ENDIF .... O111 ENDIF