自己修改做出来的适合台湾中工FANUC 0i-MC的后处理器

qmarkboy

自己改的适用于FANUC 0iMC RO403ATC(L)的后处理器，希望高手能够给予指正


# --------------------------------------------------------------------------
# Start of File and Toolchange Setup
# --------------------------------------------------------------------------
psof0           #Start of file for tool zero                        
      psof

psof            #Start of file for non-zero tool number            
      pcuttype
      toolchng = one
      if ntools = one,
        [
        #skip single tool outputs, stagetool must be on
        stagetool = m_one
        !next_tool
        ]
      "%", e
      *progno, e
#     "(PROGRAM NAME - ", sprogname, ")", e
#     "(DATE=DD-MM-YY - ", date, " TIME=HH:MM - ", time, ")", e
#     pbld, n, *smetric, e      
#     pbld, n, *sgcode, *sgplane, "G40", "G49", "G80", *sgabsinc, e
      pbld, n,"G52","X0","Y0", e
      pbld, n, *sgcode, "G91", *sg28ref, "Z0", "M05", e
      pbld, n, *sgabsinc, *sgplane, e
      pbld, n, "G40", "G80", "G49", "M31", e
      pbld, n, "M10", e
      pbld, n, "G5.1", "Q1", e
      sav_absinc = absinc      
      if mi1 <= one, #Work coordinate system
        [
        absinc = one
#        pfbld, n, sgabsinc, *sg28ref, "Z0.", e
#        pfbld, n, *sg28ref, "X0.", "Y0.", e
#        pfbld, n, "G92", *xh, *yh, *zh, e
        absinc = sav_absinc
        ]
      pcom_moveb
      c_mmlt #Multiple tool subprogram call
      ptoolcomment
      comment
      pcan
      if stagetool >= zero, pbld, n, "M6", *t, e
      pindex
      if mi1 > one, absinc = zero
#      pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
#        pfcout, *speed, *spindle, pgear, strcantext, e
#      pbld, n, "G43", *tlngno, pfzout, scoolant, next_tool, e
      pcan1, pbld, n, "M21", e
      pbld, n, pfcout, *spindle, *speed, pgear, strcantext, e
      pbld, n, "G4", "X3", e
      pbld, n, *sgabsinc, "G54", e
      pbld, n, *sgcode, pwcs, pfxout, pfyout, e
      pbld, n, *sgcode, "G43", *tlngno, pfzout, scoolant, next_tool, e
      absinc = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng #Single tool subprogram call
              
ptlchg0         #Call from NCI null tool change (tool number repeats)                        
      pcuttype
      pcom_moveb
      c_mmlt #Multiple tool subprogram call
      comment
      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n, sgplane, e      
      pspindchng
      pbld, n, scoolant, e
      if mi1 > one & workofs <> prv_workofs,
        [
        sav_absinc = absinc
        absinc = zero
        pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
        pe_inc_calc
        ps_inc_calc
        absinc = sav_absinc
        ]
      if cuttype = zero, ppos_cax_lin
      if gcode = one, plinout
      else, prapidout
      pcom_movea
      c_msng #Single tool subprogram call

ptlchg          #Tool change                                       
      pcuttype
      toolchng = one
      if mi1 = one, #Work coordinate system
        [
        pfbld, n, *sg28ref, "X0.", "Y0.", e
        pfbld, n, "G92", *xh, *yh, *zh, e
        ]
      pbld, n, "M01", e
      pcom_moveb
      c_mmlt #Multiple tool subprogram call
      ptoolcomment
      comment
      pcan
      result = newfs(15, feed)  #Reset the output format for 'feed'
      pbld, n, "M6", *t, e
      pindex
      sav_absinc = absinc     
      if mi1 > one, absinc = zero
#      pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
#        pfcout, *speed, *spindle, pgear, strcantext, e
#      pbld, n, "G43", *tlngno, pfzout, scoolant, next_tool, e
      pcan1, pbld, n, "M21", e
      pbld, n, pfcout, *spindle, *speed, pgear, strcantext, e
      pbld, n, "G4", "X3", e
      pbld, n, *sgabsinc, "G54", e
      pbld, n, *sgcode, pwcs, pfxout, pfyout, e
      pbld, n, *sgcode, "G43", *tlngno, pfzout, scoolant, next_tool, e
      absinc = sav_absinc
      pcom_movea
      toolchng = zero
      c_msng #Single tool subprogram call

pretract        #End of tool path, toolchange