【公告】CIM的POST设置开讲，感兴趣的兄弟来支持一下！

      需要向你求助，不知如何联系你，请致信wmxmxb@163.net，不胜感谢。

darkbit兄真是博学多才，小兄我佩服了。
请问哪一位老兄可以下载CIM11的后处理给我，我现在用的是CIMATRON90 VER 6.22，太落后了。　－－谢谢！

darkbit兄真是博学多才，小兄佩服。
请问各位老兄，有谁可以下载地CIM11的后处理给我，我现在用的是CIMATRON90 VER 6.22，太落后了。－－－谢谢！

chuchu wrote:
darkbit兄真是博学多才，小兄佩服。  
  请问各位老兄，有谁可以下载地CIM11的后处理给我，我现在用的是CIMATRON90 VER 6.22，太落后了。－－－谢谢！

  
chuchu兄抬举了。
自我推销一个后处理,如下连接https://www.icax.net/viewthread. ... %3D1&page=#pid=

matthews wrote:
  我是这样指定输出R的，不知道各位还有什么好办法：  
  radius=sqrt(DXcenter*DXcenter+DYcenter*DYcenter) ;  
  OUTPUT "R " radius ;

  
我应该感谢matthews兄帮我一起完成这个题目。谢谢了！！！
  
你指定输出R不用这么麻烦，我发的变量表中就有半径变量，如下：
RADIUS_  Radius of the arc  1  CIRCULAR MOTION:  
  
因此只要一句就可：
  
OUTPUT "R " RADIUS_；
  
不用再计算，以避免累积误差，使G代码更准确。

其实用圆弧R，不光是一个表示的问题，还有角度或象限的问题，请看我以前的帖子https://www.icax.net/viewthread. ... mp;page=#pid=392648

matthews wrote:
IDENTICAL  X_CURPOS X_ENDPT ;   
  IDENTICAL  Y_CURPOS Y_ENDPT ;   
  每输出一行程序之前，调用一个新的值，即保持侦测状态。

  
这个解释有点问题
IDENTICAL  X_CURPOS X_ENDPT ;  是等同说明，即X_CURPOS=X_ENDPT 。
  
而等同说明的前提是，两者的数据类型要一样。
  
比如有如下语句：
OUTPUT X_CURPOS ；
和
OUTPUT X_ENDPT ；
它们的结果是一样的。

此等好贴竟在今天才发现
好在还是发现了，谢谢各位了！

各位好.....
  
我是最近加入的.......
  
看到這個公告... 我很感興趣..... 順便說說我改post 的一些技巧...
  
*-----user define batch file------
     &nbspRINT0 \J "@ECHO OFF" ;
     &nbspRINT0 \J "MD\NC\simen\" PART_NAME ;
     &nbspRINT0 \J "COPY " PART_NAME "." TP_NAME ".simen \NC\simen\" PART_NAME "\" NumYN ".MPF > NUL" ;
     &nbspRINT0 \J "COPY " PART_NAME "." TP_NAME ".tools \NC\simen\" PART_NAME "\" NumYN ".TOO > NUL" ;
     &nbspRINT0 \J "DEL " PART_NAME "." TP_NAME ".*" ;
  
其中 " Numyn " 的意思..... 各位能否告訴我是什么意思.....
  
那么這一段字串又說明什么?????
  
謝謝!!!!!!

顶~~~~~~~  
我以前写的Heidenhain.
  
*Control: Heidenhain 426
*By:Ray Lee
*Date: 7/Sep/98
*Type: 3-AXIS MILL
*Units: Inch
*Platform : Any (Source written on NT4.0)
  
*======= New Variables ====================================
FORMAT (CHARACTER)   FlagProcStart FlagTchngProcend FlagOriginChange CycleStart
        FlagProcBegTchng FlagSpin P00Flag FlagZRetract FlagZInit
                    CycleRetrLast FlagEndTp TpNameFirst FlagTpStart RapidFeed
                    FlagDrill FlagDidTchngOccur Eol;
FORMAT (SEQUENCING)  Seq LoopCutFile FlagXYDrillPos;
FORMAT (COORDINATES) XcircleEndpt YcircleEndpt Xcenter Ycenter CycRetract
        CycDepth CycPeck CycRetractLast CycDepthLast CycPeckLast
        XLast YLast ZLast ZInit ZRetract ZRetractLast
                    ZCycCurrent ZCycReturn ZCycBottom XLastDrill YLastDrill;
FORMAT (DWELL) CycDwell CycDwellLast;
FORMAT (FEED) CycFeed CycFeedLast;
  
*=======Interaction Variables and Default Assignments======
  
INTERACTION (CHARACTER)    "ZHomeAfterDrill(Y/N)"   FlagZHome   = "Y";
INTERACTION (SPINDLE_SPEED)"Max_Spindle_Speed"      SpinMax     = 30000;
INTERACTION (CHARACTER)    "Tool#(Y=T50/N=AsPgm)"   T50         = "N";
INTERACTION (CHARACTER)    "Seq(Y/N)"               SeqNum      = "Y";
INTERACTION (SEQUENCING)   "Seq_Increment"          SeqIncr     = 1;
INTERACTION (SEQUENCING)   "Seq_Start(<60000)"      SeqStart    = 1;
  
*=======Modal Values of Interaction Variables==============
  
non_modal SeqNum SeqIncr SeqStart SpinMax T50 FlagZHome;
  
*=======Modal Values of System Varariables=================
  
non_modal tp_name part_name date_sdd date_smm date_syy time_shh time_smm
    post_name proc_num proc_name proc_cmnt
          cyc_clear cyc_code cyc_depth cyc_dwell cyc_dzinit cyc_peck
          cyc_reduc cyc_retr cyc_times;
  
*=======Modal Values of Local Variables====================
  
non_modal FlagProcStart FlagTchngProcend FlagOriginChange Seq
    FlagSpin CycleStart XcircleEndpt YcircleEndpt
          Xcenter Ycenter CycRetract CycDepth CycPeck CycDwell
          CycFeed CycRetractLast CycDepthLast CycPeckLast CycDwellLast
          CycFeedLast P00Flag XLast YLast ZLast ZInit ZRetract
          ZRetractLast FlagZRetract FlagZInit CycleRetrLast
          FlagEndTp TpNameFirst LoopCutFile FlagTpStart
          ZCycCurrent ZCycReturn ZCycBottom RapidFeed XLastDrill YLastDrill
          FlagDrill FlagXYDrillPos FlagDidTchngOccur;
  
modal  Eol;
  
identical  x_curpos x_endpt;
identical  y_curpos y_endpt;
  
NEW_LINE_IS $;
  
  if_set(Seq _gt_ 60000)
    Seq = SeqStart;
     end_if;
  
  if_set(SeqNum _eq_ "Y")
    output \J Seq;
     else
    output \J;
  end_if;
     
  Seq = Seq + SeqIncr;
     
BEGINNING OF TAPE:
  
*** Variable Assignments ***
  
  FlagEndTp = "0";
     TpNameFirst = tp_name;
     LoopCutFile = 0;
  
****************************
  
END OF TAPE:
  
BEGINNING OF TLPATH:
  
*** Variable Assignments ***
  
  RapidFeed = "F9980";
  FlagProcStart = "1";
     FlagTchngProcend = "0";
     FlagDidTchngOccur = "0";
     FlagSpin = "0";
     FlagOriginChange = "0";
     CycRetract = 0;
     CycDepth = 0;
     CycPeck = 0;
     CycDwell = 0;
     CycFeed = 0;
     CycRetractLast = 0;
     CycDepthLast = 0;
     CycPeckLast = 0;
     CycDwellLast = 0;
     CycFeedLast = 0;
    &nbsp00Flag = "0";
     XLast = 0;
     YLast = 0;
     ZLast = 0;
     ZInit = 0;
     ZRetract = 0;
     ZRetractLast = 0;
     FlagZRetract = "0";
     CycleRetrLast = "I";
     FlagZInit = "0";
     CycleStart = "0";
     FlagProcBegTchng = "0";
     FlagTpStart = "0";
     ZCycCurrent = 0;
     ZCycReturn = 0;
     ZCycBottom = 0;
     XLastDrill = 0;
     YLastDrill = 0;
     FlagDrill = "0";
     FlagXYDrillPos = 0;
       if_set(FlagZHome _eq_ "y")
            FlagZHome = "Y";
          end_if;
          if_set(FlagZHome _eq_ "n")
            FlagZHome = "N";
          end_if;
  
       if_set(SeqNum _eq_ "y")
            SeqNum = "Y";
          end_if;
          if_set(SeqNum _eq_ "n")
            SeqNum = "N";
          end_if;
  
       if_set(T50 _eq_ "y")
            T50 = "Y";
          end_if;
          if_set(T50 _eq_ "n")
            T50 = "N";
          end_if;
  
          set_on RapidFeed mch_cool;
          Eol = "";
          set_off Eol;
  
****************************
  
  Seq = SeqStart;
  
  output \J "0 BEGIN PGM " tp_name " INCH" Eol;
  output $ "; " part_name " CREATED(DMY): " date_sdd "/" date_smm "/" date_syy
      " AT " time_shh ":" time_smm Eol;
  
  output $ "; POST: " post_name;
    if_set(T50 _eq_ "N")
         output "  TOOL NUMBERS AS ASSIGNED" Eol;
          else
               output "  TOOL NUMBERS ALL T50" Eol;
       end_if;
  
END OF TOOLPATH:
  
  output $ "M02**";
     output $ " END PGM " tp_name " INCH" Eol;
  
     if_set(FlagEndTp _eq_ "0")
       print0 \j "if not exist .\"post_name" md .\"post_name;
    print0 \j "copy " part_name "." tp_name "."post_name " .\"post_name"\" tp_name ".h";
     end_if;
     if_set(FlagEndTp _eq_ "1")
    print0 \j "copy " part_name "." TpNameFirst "."post_name "_" LoopCutFile " .\"post_name"\" tp_name ".h";
     end_if;
  
  FlagEndTp = "1";
     LoopCutFile = LoopCutFile + 1;
  set_on cut_file;
  
BEFORE CUT:
  
AFTER CUT:
  
BEGINNING OF PROC:
  
  FlagProcStart = "1";
     FlagProcBegTchng = "0";
  
END OF PROC:
  
  FlagTchngProcend = "0";
     CycleStart = "0";
  set_on z_home;
  
  if_set(mch_cool)
    output $ mch_cool Eol;
  end_if;
  if_set(proc_name _eq_ "DRILL")
       if_set(FlagZHome _ne_ "N")
         output $ "L" "Z" z_home RapidFeed Eol;
          end_if;
     end_if;
  
FEED:
  
  keep mch_feed;
  
SPIN:
  
  keep spin_speed;
  
COOLANT:
  
  keep mch_cool;
  
DWELL:
  
  keep mch_dwell;
  
CUTTER COMPENSATION: COFF:
  
  keep cutcom_off;
  
CUTTER COMPENSATION:
  
  keep cutcom_on;
  
TOOL CHANGE:
  
  if_set(FlagTpStart _eq_ "1")
    output $ "M00**";
     end_if;
  output $ "; METHOD " proc_num ": " proc_name Eol;
  output $ "; COMMENT: " proc_cmnt Eol;
  
  set_on curr_name curr_tool spin_speed spin_dir;
  
     FlagTchngProcend = "1";
     FlagProcBegTchng = "1";
  
     if_set(spin_speed _gt_ SpinMax)
       spin_speed = SpinMax;
     end_if;
  
  output $ "; CUTTER: " curr_name Eol;
  
     if_set(T50 _eq_ "N")
       output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
     else
       output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
     end_if;
     output $ spin_dir Eol;
  
  if_set(mch_cool)
    output $ mch_cool Eol;
  end_if;
  
     FlagTpStart = "1";
     FlagDidTchngOccur = "1";
  
LINEAR MOTION: FAST:
  
  if_set(FlagDidTchngOccur _eq_ "0")
       output $ "; METHOD " proc_num ": " proc_name Eol;
    output $ "; COMMENT: " proc_cmnt Eol;
  
    set_on curr_name curr_tool spin_speed spin_dir;
  
       FlagTchngProcend = "1";
       FlagProcBegTchng = "1";
  
       if_set(spin_speed _gt_ SpinMax)
         spin_speed = SpinMax;
       end_if;
  
    output $ "; CUTTER: " curr_name Eol;
  
       if_set(T50 _eq_ "N")
         output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
       else
         output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
       end_if;
       output $ spin_dir Eol;
  
    if_set(mch_cool)
      output $ mch_cool Eol;
    end_if;
  
       FlagTpStart = "1";
          FlagDidTchngOccur = "1";
     end_if;
  
     if_set(FlagTchngProcend _eq_ "0")
    set_on curr_name;
    output $ "; METHOD " proc_num ": " proc_name Eol;
    output $ "; COMMENT: " proc_cmnt Eol;
          output $ "; TOOL: " curr_name Eol;
            if_set(FlagTpStart _eq_ "1")
        if_set(spin_speed)
          FlagSpin = "1";
                 end_if;
          if_set(spin_dir)
                     FlagSpin = "1";
                   end_if;
               if_set(FlagSpin _eq_ "1")
              set_on curr_tool spin_speed spin_dir;
                       output $ "M05" Eol;
                if_set(spin_speed _gt_ SpinMax)
                  spin_speed = SpinMax;
                end_if;
                     if_set(T50 _eq_ "N")
                       output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                     else
                       output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                     end_if;
                     output $ spin_dir Eol;
                             FlagSpin = "0";
            end_if;
               end_if;
  end_if;
     
     FlagTchngProcend = "1";
  
     if_set(FlagTchngProcend _eq_ "1")
       if_set(proc_name _eq_ "MIL_GO")
            if_set(FlagTpStart _eq_ "1")
        if_set(spin_speed)
          FlagSpin = "1";
                 end_if;
          if_set(spin_dir)
                     FlagSpin = "1";
                   end_if;
               if_set(FlagSpin _eq_ "1")
              set_on curr_tool spin_speed spin_dir;
                       output $ "M05" Eol;
                if_set(spin_speed _gt_ SpinMax)
                  spin_speed = SpinMax;
                end_if;
                     if_set(T50 _eq_ "N")
                       output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                     else
                       output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                     end_if;
                     output $ spin_dir Eol;
                             FlagSpin = "0";
            end_if;
               end_if;
          end_if;
  end_if;
  
  FlagXYDrillPos = 0;
  
     if_set(FlagDrill _eq_ "1")
          FlagDrill = "0";
          set_on x_curpos y_curpos;
            if_set(XLastDrill _eq_ x_curpos)
                 FlagXYDrillPos = FlagXYDrillPos + 1;
               end_if;
                 if_set(YLastDrill _eq_ y_curpos)
                      FlagXYDrillPos = FlagXYDrillPos + 1;
                    end_if;
     end_if;
       if_set(FlagXYDrillPos _eq_ 2)
    else
      if_set(proc_name _eq_ "MIL_GO")
           set_on x_curpos y_curpos z_curpos;
              output $ "LX" x_curpos "Y" y_curpos "Z" z_curpos;
              if_set(lin_mov) output RapidFeed; end_if;
              if_set(lin_mov) set_off lin_mov; end_if;
              output Eol;
      else
           if_set(FlagProcStart _eq_ "1")
             set_on x_curpos y_curpos z_curpos;
          output $ "LX" x_curpos "Y" y_curpos RapidFeed;
          output $ "LZ" z_curpos;
          FlagProcStart = "0";
        else
          output $ "L";
             if_set(x_curpos) output "X" x_curpos; end_if;
             if_set(y_curpos) output "Y" y_curpos; end_if;
             if_set(z_curpos) output "Z" z_curpos; end_if;
                   if_set(lin_mov) output RapidFeed; end_if;
                   if_set(lin_mov) set_off lin_mov; end_if;
             output Eol;
           end_if;
         end_if;
       end_if;
  
     set_on mch_feed;
  set_on circ_mov nurbs_mov;
  
LINEAR MOTION:
  
  if_set(FlagDidTchngOccur _eq_ "0")
       output $ "; METHOD " proc_num ": " proc_name Eol;
    output $ "; COMMENT: " proc_cmnt Eol;
  
    set_on curr_name curr_tool spin_speed spin_dir;
  
       FlagTchngProcend = "1";
       FlagProcBegTchng = "1";
  
       if_set(spin_speed _gt_ SpinMax)
         spin_speed = SpinMax;
       end_if;
  
    output $ "; CUTTER: " curr_name Eol;
  
       if_set(T50 _eq_ "N")
         output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
       else
         output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
       end_if;
       output $ spin_dir Eol;
  
    if_set(mch_cool)
      output $ mch_cool Eol;
    end_if;
  
       FlagTpStart = "1";
          FlagDidTchngOccur = "1";
     end_if;
  
     if_set(FlagTchngProcend _eq_ "0")
    set_on curr_name;
    output $ "; METHOD " proc_num ": " proc_name Eol;
    output $ "; COMMENT: " proc_cmnt Eol;
          output $ "; TOOL: " curr_name Eol;
            if_set(FlagTpStart _eq_ "1")
        if_set(spin_speed)
          FlagSpin = "1";
                 end_if;
          if_set(spin_dir)
                     FlagSpin = "1";
                   end_if;
               if_set(FlagSpin _eq_ "1")
              set_on curr_tool spin_speed spin_dir;
                       output $ "M05" Eol;
                if_set(spin_speed _gt_ SpinMax)
                  spin_speed = SpinMax;
                end_if;
                     if_set(T50 _eq_ "N")
                       output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                     else
                       output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                     end_if;
                     output $ spin_dir Eol;
                             FlagSpin = "0";
            end_if;
               end_if;
  end_if;
  
     FlagTchngProcend = "1";
  
     if_set(FlagTchngProcend _eq_ "1")
       if_set(proc_name _eq_ "MIL_GO")
            if_set(FlagTpStart _eq_ "1")
        if_set(spin_speed)
          FlagSpin = "1";
                 end_if;
          if_set(spin_dir)
                     FlagSpin = "1";
                   end_if;
               if_set(FlagSpin _eq_ "1")
              set_on curr_tool spin_speed spin_dir;
                       output $ "M05" Eol;
                if_set(spin_speed _gt_ SpinMax)
                  spin_speed = SpinMax;
                end_if;
                     if_set(T50 _eq_ "N")
                       output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                     else
                       output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                     end_if;
                     output $ spin_dir Eol;
                             FlagSpin = "0";
            end_if;
               end_if;
          end_if;
  end_if;
  
     if_set(proc_name _eq_ "MIL_GO")
       set_on x_curpos y_curpos z_curpos;
       output $ "LX" x_curpos "Y" y_curpos "Z" z_curpos;
          if_set(mch_feed) output "F" mch_feed; end_if;
       output Eol;
  else
    output $ "L";
       if_set(x_curpos) output "X" x_curpos; end_if;
       if_set(y_curpos) output "Y" y_curpos; end_if;
       if_set(z_curpos) output "Z" z_curpos; end_if;
    if_set (cutcom_on) output cutcom_on; end_if;
    if_set (cutcom_off) output cutcom_off; end_if;           
       if_set(mch_feed) output "F" mch_feed; end_if;
       output Eol;
     end_if;
  
     set_on lin_mov;
  set_on circ_mov nurbs_mov;
  
CIRCULAR MOTION:
  
  set_on circ_mov x_center y_center;
  output $ "CC" "X" x_center "Y" y_center Eol;
     set_on x_endpt y_endpt;
     output $ "C" "X" x_endpt "Y" y_endpt circ_mov;
     if_set(mch_feed) output "F" mch_feed; end_if;
     output Eol;
  
  set_on lin_mov nurbs_mov;
  
MESSAGE:
  
  output $ "; " mess_str Eol;
  
INSERT WITH:
  
  output $ " " ins_str Eol;
  
INSERT WITHOUT:
  
  output \j ins_str Eol;
  
CYCLE:
  
***SPOT DRILL***
  
  if_set(cycle_1)
       if_set(CycleStart _ne_ "1")
          set_on x_curpos y_curpos z_curpos;
  
      if_set(FlagDidTchngOccur _eq_ "0")
           output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
  
        set_on curr_name curr_tool spin_speed spin_dir;
  
           FlagTchngProcend = "1";
           FlagProcBegTchng = "1";
  
           if_set(spin_speed _gt_ SpinMax)
             spin_speed = SpinMax;
           end_if;
  
        output $ "; CUTTER: " curr_name Eol;
  
           if_set(T50 _eq_ "N")
             output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
           else
             output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
           end_if;
           output $ spin_dir Eol;
  
        if_set(mch_cool)
          output $ mch_cool Eol;
        end_if;
  
           FlagTpStart = "1";
              FlagDidTchngOccur = "1";
         end_if;
  
      if_set(FlagProcBegTchng _eq_ "0")
        set_on curr_name;
        output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
        output $ "; TOOL: " curr_name Eol;
      if_set(spin_speed)
        FlagSpin = "1";
               end_if;
        if_set(spin_dir)
                   FlagSpin = "1";
                 end_if;
             if_set(FlagSpin _eq_ "1")
            set_on curr_tool spin_speed spin_dir;
                     output $ "M05" Eol;
              if_set(spin_speed _gt_ SpinMax)
                spin_speed = SpinMax;
              end_if;
                   if_set(T50 _eq_ "N")
                     output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                   else
                     output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                   end_if;
                   output $ spin_dir Eol;
                           FlagSpin = "0";
      end_if;
    end_if;
  end_if;
  
*-------Cycle Definition-------*
  
    set_on cyc_clear cyc_code cyc_depth cyc_dwell cyc_dzinit cyc_peck cyc_retr mch_feed;
  
    CycRetract = -cyc_clear;
    CycDepth = -cyc_depth;
        if_set(cyc_peck _gt_ cyc_depth)
             CycPeck = -cyc_depth;
             else
               if_set(cyc_peck _le_ 0)
                    CycPeck = -cyc_depth;
          else
            CycPeck = -cyc_peck;
                 end_if;
        end_if;
       CycDwell = cyc_dwell;
       CycFeed = mch_feed;
       P00Flag = "0";
  
    if_set(CycleStart _ne_ "1")
            output $ " CYCL DEF 1.0 PECKING" Eol;
               output $ " CYCL DEF 1.1 SET UP " CycRetract Eol;
               output $ " CYCL DEF 1.2 DEPTH " CycDepth Eol;
               output $ " CYCL DEF 1.3 PECKG " CycPeck Eol;
               output $ " CYCL DEF 1.4 DWELL " CycDwell Eol;
               output $ " CYCL DEF 1.5 F" CycFeed Eol;
       end_if;
         if_set(CycleStart _eq_ "1")
              if_set(CycRetract _ne_ CycRetractLast) P00Flag = "1"; end_if;
                 if_set(CycDepth _ne_ CycDepthLast) P00Flag = "1"; end_if;
                 if_set(CycPeck _ne_ CycPeckLast) P00Flag = "1"; end_if;
                 if_set(CycDwell _ne_ CycDwellLast) P00Flag = "1"; end_if;
                 if_set(CycFeed _ne_ CycFeedLast) P00Flag = "1"; end_if;
                   if_set(P00Flag _eq_ "1")
                  output $ " CYCL DEF 1.0 PECKING" Eol;
                     output $ " CYCL DEF 1.1 SET UP " CycRetract Eol;
                     output $ " CYCL DEF 1.2 DEPTH " CycDepth Eol;
                     output $ " CYCL DEF 1.3 PECKG " CycPeck Eol;
                     output $ " CYCL DEF 1.4 DWELL " CycDwell Eol;
                     output $ " CYCL DEF 1.5 F" CycFeed Eol;
                      end_if;
            end_if;
  
    CycRetractLast = CycRetract;
    CycDepthLast = CycDepth;
    CycPeckLast = CycPeck;
       CycDwellLast = CycDwell;
       CycFeedLast = CycFeed;
  
*-------Positioning and Cycle Call-------*
  
    set_on z_curpos;
       ZRetract = z_curpos + cyc_clear;
  
    if_set(CycleStart _ne_ "1")
      set_on x_curpos y_curpos z_curpos;
      ZInit = z_curpos + cyc_dzinit;
            output $ " L" " X" x_curpos " Y" y_curpos " " RapidFeed Eol;
            output $ " L Z" ZRetract " M99" Eol;
       end_if;
  
    if_set(CycleStart _eq_ "1")
         set_on x_curpos y_curpos z_curpos;
  
            if_set(z_curpos _eq_ ZLast)
              if_set(CycleRetrLast _eq_ "I")
                   if_set(ZInit _gt_ ZRetract)
                        output $ " L Z" ZInit Eol;
                              FlagZInit = "1";
                      end_if;
                 end_if;
              output $ " L";
                 if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                 if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
          if_set(CycleRetrLast _eq_ "R")
                           output " M99" Eol;
          end_if;
            if_set(CycleRetrLast _eq_ "I")
                                if_set(FlagZInit _eq_ "1")
                                         output Eol;
                                        output $ " L Z" ZRetract " M99" Eol;
                else
                  output " M99" Eol;
                                   end_if;
                              end_if;
            end_if;
  
      if_set(z_curpos _gt_ ZLast)
        if_set(CycleRetrLast _eq_ "I")
                 if_set(ZInit _gt_ ZRetract)
                   output $ " L Z" ZInit Eol;
                         else
                           output $ " L Z" ZRetract Eol;
                                FlagZRetract = "1";
                         end_if;
        end_if;
                    if_set(CycleRetrLast _eq_ "R")
            output $ " L Z" ZRetract Eol;
          end_if;
                         output $ " L";
                     if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                      if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
                             if_set(CycleRetrLast _eq_ "R")
                                  output " M99" Eol;
                                end_if;
                                  if_set(CycleRetrLast _eq_ "I")
                                       if_set(FlagZRetract _eq_ "1")
                                            output " M99" Eol;
                                               else
                                                  output Eol;
                                               output $ " L Z" ZRetract " M99" Eol;
                                          end_if;
                                     end_if;
      end_if;
  
      if_set(z_curpos _lt_ ZLast)
        if_set(CycleRetrLast _eq_ "I")
          if_set(ZInit _gt_ ZRetractLast)
                         output $ " L Z" ZInit Eol;
          end_if;
        end_if;
          output $ " L";
                   if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                    if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
                    output Eol;
          output $ " L Z" ZRetract " M99" Eol;
      end_if;
       end_if;
  
    XLast = x_curpos;
       YLast = y_curpos;
       ZLast = z_curpos;
       ZRetractLast = ZRetract;
    CycleStart = "1";
       FlagZRetract = "0";
          FlagZInit = "0";
          CycleRetrLast = cyc_retr;
  
  end_if;
  
***TAPPING***
  
  if_set(cycle_7)
       if_set(CycleStart _ne_ "1")
          set_on x_curpos y_curpos z_curpos;
  
      if_set(FlagDidTchngOccur _eq_ "0")
           output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
  
        set_on curr_name curr_tool spin_speed spin_dir;
  
           FlagTchngProcend = "1";
           FlagProcBegTchng = "1";
  
           if_set(spin_speed _gt_ SpinMax)
             spin_speed = SpinMax;
           end_if;
  
        output $ "; CUTTER: " curr_name Eol;
  
           if_set(T50 _eq_ "N")
             output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
           else
             output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
           end_if;
           output $ spin_dir Eol;
  
        if_set(mch_cool)
          output $ mch_cool Eol;
        end_if;
  
           FlagTpStart = "1";
              FlagDidTchngOccur = "1";
         end_if;
  
      if_set(FlagProcBegTchng _eq_ "0")
        set_on curr_name;
        output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
        output $ "; TOOL: " curr_name Eol;
      if_set(spin_speed)
        FlagSpin = "1";
               end_if;
        if_set(spin_dir)
                   FlagSpin = "1";
                 end_if;
             if_set(FlagSpin _eq_ "1")
            set_on curr_tool spin_speed spin_dir;
                     output $ "M05" Eol;
              if_set(spin_speed _gt_ SpinMax)
                spin_speed = SpinMax;
              end_if;
                   if_set(T50 _eq_ "N")
                     output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                   else
                     output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                   end_if;
                   output $ spin_dir Eol;
                           FlagSpin = "0";
          end_if;
      end_if;
          end_if;
  
*-------Cycle Definition-------*
  
    set_on cyc_clear cyc_code cyc_depth cyc_dwell cyc_dzinit cyc_retr mch_feed;
  
    CycRetract = -cyc_clear;
    CycDepth = -cyc_depth;
       CycDwell = cyc_dwell;
       CycFeed = mch_feed;
       P00Flag = "0";
  
    if_set(CycleStart _ne_ "1")
            output $ " CYCL DEF 2.0 TAPPING" Eol;
               output $ " CYCL DEF 2.1 SET UP " CycRetract Eol;
               output $ " CYCL DEF 2.2 DEPTH " CycDepth Eol;
               output $ " CYCL DEF 2.3 DWELL " CycDwell Eol;
               output $ " CYCL DEF 2.4 F" CycFeed Eol;
       end_if;
         if_set(CycleStart _eq_ "1")
              if_set(CycRetract _ne_ CycRetractLast) P00Flag = "1"; end_if;
                 if_set(CycDepth _ne_ CycDepthLast) P00Flag = "1"; end_if;
                 if_set(CycDwell _ne_ CycDwellLast) P00Flag = "1"; end_if;
                 if_set(CycFeed _ne_ CycFeedLast) P00Flag = "1"; end_if;
                   if_set(P00Flag _eq_ "1")
                  output $ " CYCL DEF 2.0 TAPPING" Eol;
                     output $ " CYCL DEF 2.1 SET UP " CycRetract Eol;
                     output $ " CYCL DEF 2.2 DEPTH " CycDepth Eol;
                     output $ " CYCL DEF 2.3 DWELL " CycDwell Eol;
                     output $ " CYCL DEF 2.4 F" CycFeed Eol;
                      end_if;
            end_if;
  
    CycRetractLast = CycRetract;
    CycDepthLast = CycDepth;
    CycDwellLast = CycDwell;
       CycFeedLast = CycFeed;
  
*-------Positioning and Cycle Call-------*
  
    set_on z_curpos;
       ZRetract = z_curpos + cyc_clear;
  
    if_set(CycleStart _ne_ "1")
      set_on x_curpos y_curpos z_curpos;
      ZInit = z_curpos + cyc_dzinit;
            output $ " L" " X" x_curpos " Y" y_curpos " " RapidFeed Eol;
            output $ " L Z" ZRetract " M99" Eol;
       end_if;
  
    if_set(CycleStart _eq_ "1")
         set_on x_curpos y_curpos z_curpos;
  
            if_set(z_curpos _eq_ ZLast)
              if_set(CycleRetrLast _eq_ "I")
                   if_set(ZInit _gt_ ZRetract)
                        output $ " L Z" ZInit Eol;
                              FlagZInit = "1";
                      end_if;
                 end_if;
              output $ " L";
                 if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                 if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
          if_set(CycleRetrLast _eq_ "R")
                           output " M99" Eol;
          end_if;
            if_set(CycleRetrLast _eq_ "I")
                                if_set(FlagZInit _eq_ "1")
                                         output Eol;
                                        output $ " L Z" ZRetract " M99" Eol;
                else
                  output " M99" Eol;
                                   end_if;
                              end_if;
            end_if;
  
      if_set(z_curpos _gt_ ZLast)
        if_set(CycleRetrLast _eq_ "I")
                 if_set(ZInit _gt_ ZRetract)
                   output $ " L Z" ZInit Eol;
                         else
                           output $ " L Z" ZRetract Eol;
                                FlagZRetract = "1";
                         end_if;
        end_if;
                    if_set(CycleRetrLast _eq_ "R")
            output $ " L Z" ZRetract Eol;
          end_if;
                         output $ " L";
                     if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                      if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
                             if_set(CycleRetrLast _eq_ "R")
                                  output " M99" Eol;
                                end_if;
                                  if_set(CycleRetrLast _eq_ "I")
                                       if_set(FlagZRetract _eq_ "1")
                                            output " M99" Eol;
                                               else
                                                  output Eol;
                                               output $ " L Z" ZRetract " M99" Eol;
                                          end_if;
                                     end_if;
      end_if;
  
      if_set(z_curpos _lt_ ZLast)
        if_set(CycleRetrLast _eq_ "I")
          if_set(ZInit _gt_ ZRetractLast)
                         output $ " L Z" ZInit Eol;
          end_if;
        end_if;
          output $ " L";
                   if_set(x_curpos _ne_ XLast) output " X" x_curpos; end_if;
                    if_set(y_curpos _ne_ YLast) output " Y" y_curpos; end_if;
                    output Eol;
          output $ " L Z" ZRetract " M99" Eol;
      end_if;
       end_if;
  
    XLast = x_curpos;
       YLast = y_curpos;
       ZLast = z_curpos;
       ZRetractLast = ZRetract;
    CycleStart = "1";
       FlagZRetract = "0";
          FlagZInit = "0";
          CycleRetrLast = cyc_retr;
          
  end_if;
  
***NO-CYC SPOT DRILL***
  
  if_set(cycle_4)
       if_set(CycleStart _ne_ "1")
          set_on x_curpos y_curpos z_curpos;
  
      if_set(FlagDidTchngOccur _eq_ "0")
           output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
  
        set_on curr_name curr_tool spin_speed spin_dir;
  
           FlagTchngProcend = "1";
           FlagProcBegTchng = "1";
  
           if_set(spin_speed _gt_ SpinMax)
             spin_speed = SpinMax;
           end_if;
  
        output $ "; CUTTER: " curr_name Eol;
  
           if_set(T50 _eq_ "N")
             output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
           else
             output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
           end_if;
           output $ spin_dir Eol;
  
        if_set(mch_cool)
          output $ mch_cool Eol;
        end_if;
  
           FlagTpStart = "1";
              FlagDidTchngOccur = "1";
         end_if;
  
      if_set(FlagProcBegTchng _eq_ "0")
        set_on curr_name;
        output $ "; METHOD " proc_num ": " proc_name Eol;
        output $ "; COMMENT: " proc_cmnt Eol;
        output $ "; TOOL: " curr_name Eol;
      if_set(spin_speed)
        FlagSpin = "1";
               end_if;
        if_set(spin_dir)
                   FlagSpin = "1";
                 end_if;
             if_set(FlagSpin _eq_ "1")
            set_on curr_tool spin_speed spin_dir;
                     output $ "M05" Eol;
              if_set(spin_speed _gt_ SpinMax)
                spin_speed = SpinMax;
              end_if;
                   if_set(T50 _eq_ "N")
                     output $ " TOOL CALL " curr_tool " Z" " S" spin_speed Eol;
                   else
                     output $ " TOOL CALL 50" " Z" " S" spin_speed Eol;
                   end_if;
                   output $ spin_dir Eol;
                           FlagSpin = "0";
          end_if;
      end_if;
          end_if;
  
*-------Cycle Definition-------*
  
  set_on cyc_clear cyc_depth cyc_peck cyc_dwell cyc_dzinit cyc_retr mch_feed z_curpos;
  
     CycDepth = cyc_depth;
       if_set(cyc_peck _gt_ cyc_depth)
            CycPeck = cyc_depth;
      &