LBevelEXT.ngc

( Variable List for GCodeCnv Lathe)
#<_mat_length>=2.0000                          ( Length of Material )
#<_mat_Diameter>=2.0000                        ( Diameter of Material )
#<_mat_Radius>=[#<_mat_Diameter>/2]            ( Radius of Material )
#<_mat_surf>=2.000                             ( Top of Material )
#<_xorigin>=0.0000                             ( X axis offset for Coordinate sys 2 )
#<_zorigin>=0.0000                             ( Z axis offset for Coordinate sys 2 )
#<_toolnum>=  2                                ( Set Tool Number e.g. 2 -- 1/8" diameter )
#<_tooldia>=0.1250                             ( Set the tool diameter )
#<_toolrad>=[#<_tooldia>/2]                    ( Tool radius )
#<_cutoffwidth>=0.0938                         ( Cutoff Tool Width )
#<_cutofffeed>=0.001                           ( Cut off feed rate )
#<_useFeedPerRev>=0                            ( UseFeedPerRev )
#<_xfeed>=5.0                                  ( XY Feed rate )
#<_zfeed>=5.0                                  ( Z Feed rate )
#<_finefeed>=2.0                               ( Fine Feed rate )
#<_stepin>=0.0100                              ( plunge depth )
#<_stepover>=0.0100                            ( stepover distance )
#<_spindlespeed>= 500                          ( Spindle Speed )
#<_close_X>= 0.050                             ( Close to Origin )
#<_close_Z>=0.050                              ( Z clear height )
#<_clear_X>=[#<_mat_Radius>+#<_close_X>]       ( distance to clear X axis at end )
#<_clear_Z>=[#<_mat_surf>+3.000]               ( Distance for final retract )
#<_safe_X>=[#<_mat_Radius>+#<_close_X>]        ( X clear height )
#<_safe_Z>=[#<_mat_surf>+#<_close_Z>]             ( Z clear height )
#<_sqcorner>=[[SQRT[2]-1]*[#<_toolrad>+0.0001]]( Offset of Tool radius to corner )
#<_referencetool>=#5063
( End of Variable List )

( Cut bevel on workpiece )
(o<BevelEXT> sub [X pos] [Z pos] [length of bevel])
o<BevelEXT> sub
G10 L2 P3 X#1 Z#2                                ( Set current work origin )
G56
#<Xend> = [#1-#3]
#<Zend> = [#2-#3]
#<Xcut> = 0.0
#<Zcut> = 0.0
G00 X0.0
G00 Z0.0
O<L11> DO
   O<L12> IF [[#<Xcut>-#<_stepin>] GT #<Xend>]
      #<Xcut> = [#<Xcut>-#<_stepin>]
   O<L12> ELSE
      #<Xcut> = #<Xend>
   O<L12> ENDIF
   O<L13> IF [[#<Zcut>-#<_stepin>] GT #<Zend>]
      #<Zcut> = [#<Zcut>-#<_stepin>]
   O<L13> ELSE
      #<Zcut> = #<Zend>
   O<L13> ENDIF
   G00 X0.0 Z[#Zcut]
   G01 X[#<Xcut>] Z0.0 F#<_finefeed>                ( Start of X-Cut )
O<L11> WHILE [#<Xcut> LT #<Xend>]
G00 X0.0 Z0.0
o<BevelEXT> endsub

(Pre Code)

(Main Body Initialization Code)
G20 G18 G40 G80 G92.1 G61
G90
G64 P.0002
G10 L2 P1 X0.0 Z0.0
G10 L2 P2 X#<_xorigin> Z#<_zorigin>
T#<_toolnum>
S#<_spindlespeed> M3
M8
G55


o<BevelEXT> call [1.0000] [2.0000] [0.3750]

(Post Code)
M5 M9
G54
G00 Z0.0
    X0.0
M2