〖分享〗CIMATRON通用后处理（倾情奉献并剖析源代码相关功能）

倾情奉献！集成后处理源码！！

这是一只集成后处理，相信大家可以举一反三，做得更好！！为了帮助大家，相关代码用中文说明。

* hujunhou 3 axes Post Processor for FANUC
* CIMATRON90 VER 9.0
* Last update : 23-FEB-1998

********************************************************
* define private variables:
FORMAT (SEQUENCING)  Seq SubSeq CNTRL_NUM NURBS_DEG count first deg ;
FORMAT (TOOL)        CutterComp FirstTool LastTool ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
FORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
FORMAT (COORDINATES) Xhome Yhome Zhome ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)      CurrSubNum ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK ;

* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;

* define private constants:
FORMAT (USER_2)      YES NO ;

* change the format of existing variables:
FORMAT (USER_1)      SUB_NUMBER ;

* 设置工时、最深点、园弧变量
FORMAT (COORDINATES) Time minz RADIUS ;


********************************************************
INTERACTION (USER_1)       "MAIN-PROGRAM-NUMBER"     MainNum     = 100  ;
INTERACTION (TOOL)         "DIACOMP=TOOL+<xx>"       DiaComp     = 50   ;
INTERACTION (USER_1)       "TOOL-CHANGE-PROGRAM"     ChangeTool  = 8000 ;
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
INTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 10   ;
INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 10   ;
INTERACTION (CHARACTER)    "SUBROUTINES<Y/N>"        Sub         = "N"  ;
INTERACTION (USER_1)       "SUB-PROGRAM-NUMBER"      StartSubNum = 1000 ;
INTERACTION (CHARACTER)    "CONTTYPE_SELECT"         CONTTYPE    = "Y"  ;  选择控制器类型（西门子为“Y”）
INTERACTION (CHARACTER)    "CIR_OUTPUT_SELECT"       RADOUTPUT   = "Y"  ;  选择园输出方式 （“Y”为X、Y、R输出）
********************************************************
NON_MODAL  ALL_VAR;
MODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
MODAL      CUTCOM_ON  CUTCOM_OFF ;
MODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
      
IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
      IF_SET (FlagSeq _EQ_ NO)
         OUTPUT \J ;
      ELSE
         IF_SET (FlagSub _EQ_ NO)
            OUTPUT \J "N" Seq ;
            Seq = Seq + SeqIncr ;
         ELSE
            OUTPUT \J "N" SubSeq ;
            SubSeq = SubSeq + SeqIncr ;
         END_IF ;
      END_IF ;

********************************************************
BEGINNING OF TAPE:
      YES              = 1 ;
      NO               = 0 ;
      Seq              = SeqStart ;

      FlagSeq = NO ;
      FlagSub = NO ;
      IF_SET (NumYN _EQ_ "y") FlagSeq = YES ; END_IF ;
      IF_SET (NumYN _EQ_ "Y") FlagSeq = YES ; END_IF ;

      IF_SET (Sub   _EQ_ "y") Sub     = "Y" ; END_IF ;
      IF_SET (Sub   _EQ_ "Y")  
         SET_OFF NO_SUBROUT ;
      ELSE
         SET_ON  NO_SUBROUT ;
      END_IF ;

*-----Unit matrix (MUST be input in this order !!!)
      ROT_MAT1   = 1.0 ; ROT_MAT2   = 0.0 ; ROT_MAT3   = 0.0 ;
      ROT_MAT4   = 0.0 ; ROT_MAT5   = 1.0 ; ROT_MAT6   = 0.0 ;
      ROT_MAT7   = 0.0 ; ROT_MAT8   = 0.0 ; ROT_MAT9   = 1.0 ;

*-----shift all data according to the MCHINE ZERO indicated by the  
*     user in the POSTPR interaction
      TRANS_MATX = 0 - X_MACH  ;
      TRANS_MATY = 0 - Y_MACH  ;
      TRANS_MATZ = 0 - Z_MACH  ;

*-----shift the HOME according to the MCHINE ZERO indicated by the
*     user in the POSTPR interaction
      Xhome = X_HOME - X_MACH  ;
      Yhome = Y_HOME - Y_MACH  ;
      Zhome = Z_HOME - Z_MACH  ;

*-----tool location is HOME
      Xold = X_HOME ;
      Yold = Y_HOME ;
      Zold = Z_HOME ;

*-----For 1st ORIGIN CHANGE
      FirstOriginChange = YES ;

      MCH_FEED   = 9999 ;

*-----output
   IF_SET ( CONTTYPE _EQ_ "y" )  CONTTYPE ="Y"; END_IF ;   ---大小写设别
   IF_SET ( CONTTYPE _EQ_ "Y" )         如果控制类型为“Y”
        OUTPUT " %_N_"tp_name"_MPF" \J ;
        OUTPUT " ;$PATH=/_N_MPF_DIR" \J " G90 G00 G17 G64 G54 " ;    ----输出西门子程序头
       ELSE
     IF_SET (FlagSeq _EQ_ YES )
         OUTPUT "%" \J " G90 G00 G17 G40 G54 " ;    ----反之为三菱、法兰克程序头
        ELSE
         OUTPUT " %" \J " G90 G00 G17 G40 G54 " ;
      END_IF ;
    END_IF ;

*--For the first origin change
   ORIGOLDI=0 ; ORIGOLDJ=0 ; ORIGOLDK=1 ;
   flagrotmac = no ;

*--设置工时、最深点初始值

   Time=0.001;
   minz=9999.0;


BEGINNING OF PROC:  
      KEEP   PROC_NAME ;
      SET_ON MCH_COOL ;
      FlagSub = NO ;
      SubSeq  = SeqStart ;


END OF PROC:

*--加工工时运算公式
    Time = Time + N_GEN_TIME ;


      


END OF TAPE:
*     IF_SET (FirstTool _NE_ LastTool)
*         OUTPUT $ " T" NEXT_TOOL " M98 P" ChangeTool;
*     END_IF ;
      OUTPUT $ " /G5.1Q0";
      OUTPUT $ " M09 " ;
      OUTPUT $ " M30 " ;
      
END OF FILE:
      IF_SET (FlagSeq _EQ_ YES )
         OUTPUT \J "%" ;
      ELSE        
       OUTPUT \J " %" ;
      END_IF ;
OUTPUT $ "( 前刀具最深点=" minz " MM )";
OUTPUT $ "( 估计工时=" Time " 分钟 )";

*-----user define batch file------
PRINT0 \J "@ECHO OFF" ;
PRINT0 \J "MD D:\NC\"  ;
*PRINT0 \J "MD D:\TOOL\"  ;
if_set (PROC_CMNT _EQ_ "No Text")       ---如果注释为“No Text”，按程式名命名、反之按注释名命名
PRINT0 \J "COPY " PART_NAME "." TP_NAME ".sjh D:\NC\" TP_NAME ".NC" ;
else
PRINT0 \J "COPY " PART_NAME "." TP_NAME ".sjh D:\NC\" PROC_CMNT ".NC" ;   ----多只程式一起处理时以最后一只注释为判断依据
end_if;
*PRINT0 \J "COPY " PART_NAME "." TP_NAME ".TOOLS D:\TOOL\"  TP_NAME ".TOO " ;
PRINT0 \J "DEL " PART_NAME "." TP_NAME ".sjh" ;
*PRINT0 \J "DEL " PART_NAME "." TP_NAME ".TOOLS" ;


********************************************************
FEED:
      KEEP MCH_FEED ;

SPIN:
      KEEP SPIN_SPEED ;

COOLANT:
      KEEP MCH_COOL ;

DWELL:
      KEEP MCH_DWELL ;

CUTTER COMPENSATION:
      KEEP  CUTCOM_ON ;

CUTTER COMPENSATION: COFF:
      KEEP  CUTCOM_OFF ;

********************************************************
TOOL CHANGE: FIRST:
      SET_ON  SPIN_SPEED SPIN_DIR ;
*-----save first tool number
      FirstTool = CURR_TOOL ;
      LastTool  = CURR_TOOL ;

*-----tool cutter compensation register number
      CutterComp = CURR_TOOL +  DiaComp ;

*-----assuming 1st tool is in the spindle, there is no need
*     for tool change)
*       OUTPUT $ " M06 T" CURR_TOOL ;
*-----more then one tool in this run of the Post Processor
*     IF_SET (NEXT_TOOL _NE_ CURR_TOOL)
*         OUTPUT $ " T" NEXT_TOOL ;
*    END_IF ;
*-----standard tool change commands. (assuming 1st tool is in

      OUTPUT $ "( 刀具名称=" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 零件名称=" PART_NAME " 程式由 " USER_NAME "编制 )";

*-----判断余量输出方法（2D程式不输出曲面余量）
      IF_SET ( PROC_NAME _NE_ "POCKET" )
         IF_SET ( PROC_NAME _NE_ "DRILL" )
             IF_SET ( PROC_NAME _NE_ "PROFILE" )
                OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" )";
            END_IF ;
          END_IF ;
        END_IF ;
      OUTPUT $ "( 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";

*------设置公差警告输出（下面*应改为你的计算机名,否则同一网络的计算机......呵呵~~）
if_set (part_tol _gt_ 0.03)
  print0 \J "net send * 警告！！！你所设置的曲面公差大于0.03,是否更改？ ";
end_if ;

      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;
      OUTPUT $ " /G5.1Q1";

TOOL CHANGE:
      SET_ON  SPIN_SPEED SPIN_DIR ;

*-----tool cutter compensation register number
      CutterComp = CURR_TOOL +  DiaComp ;

*-----tool change command (by using an internal tool change  
*     subroutine)
*     OUTPUT $ " T" CURR_TOOL " M98 P"  ChangeTool ;
     
*----前刀具最深点
        OUTPUT $ "( 前刀具最深点=" minz " MM )";
*----重置Z坐标最深点初始值
        minz=9999.0;
        
*----换刀
        OUTPUT $ " M06 T" CURR_TOOL \J;
*-----standard tool change commands. (assuming 1st tool is in

*-----根据交互区输入内容选择所输出的程序头(前一行为大小写设别）
     IF_SET ( CONTTYPE _EQ_ "y" )  CONTTYPE ="Y"; END_IF ;
   IF_SET ( CONTTYPE _EQ_ "Y" )
        OUTPUT " %_N_"TP_NAME"_MPF" \J ;
        OUTPUT " ;$PATH=/_N_MPF_DIR" \J " G90 G00 G17 G64 G54 " ;
       ELSE
      OUTPUT $ " G90 G00 G17 G40 G54" ;
   END_IF;
      OUTPUT $ "( 刀具名称=" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 零件名称=" PART_NAME " 程式由 " USER_NAME "编制 )";
      IF_SET ( PROC_NAME _NE_ "POCKET" )
         IF_SET ( PROC_NAME _NE_ "DRILL" )
             IF_SET ( PROC_NAME _NE_ "PROFILE" )
                OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" )";
            END_IF ;
          END_IF ;
        END_IF ;
      OUTPUT $ "( 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";

if_set (part_tol _gt_ 0.03)
  print0 \J "net send * 警告！！！你所设置的曲面公差大于0.03,是否更改？ ";
end_if ;

      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;
      OUTPUT $ " /G5.1Q1";

TOOL CHANGE: LAST:
      SET_ON  SPIN_SPEED SPIN_DIR ;

*-----save last tool number
      LastTool = CURR_TOOL ;

*-----tool cutter compensation register number
      CutterComp = CURR_TOOL +  DiaComp ;

*     OUTPUT $ " T" CURR_TOOL " M98 P"  ChangeTool ;
      OUTPUT $ "( 前刀具最深点=" minz " MM )";
        minz=9999.0;
      OUTPUT $ " M06 T" CURR_TOOL \J;

*-----standard tool change commands. (assuming 1st tool is in
       IF_SET ( CONTTYPE _EQ_ "y" )  CONTTYPE ="Y"; END_IF ;
   IF_SET ( CONTTYPE _EQ_ "Y" )
        OUTPUT " %_N_"TP_NAME"_MPF" \J ;
        OUTPUT " ;$PATH=/_N_MPF_DIR" \J " G90 G00 G17 G64 G54 " ;
       ELSE
      OUTPUT $ " G90 G00 G17 G40 G54" ;
   END_IF;
      OUTPUT $ "( 刀具名称=" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 零件名称=" PART_NAME " 程式由 " USER_NAME "编制 )";
      IF_SET ( PROC_NAME _NE_ "OCKET" )
         IF_SET ( PROC_NAME _NE_ "DRILL" )
             IF_SET ( PROC_NAME _NE_ "ROFILE" )
                OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" )";
            END_IF ;
         END_IF ;
       END_IF ;
      OUTPUT $ "( 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";

if_set (part_tol _gt_ 0.03)
  print0 \J "net send * 警告！！！你所设置的曲面公差大于0.03,是否更改？ ";
end_if ;

      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;
      OUTPUT $ " /G5.1Q1";

********************************************************
LINEAR MOTION: FAST:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
         OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;

      OUTPUT $ ;
      IF_SET (LIN_MOV)  OUTPUT " " LIN_MOV   ; END_IF ;
      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 (MCH_COOL) OUTPUT  " " MCH_COOL ; END_IF ;
      SET_ON CIRC_MOV NURBS_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

LINEAR MOTION:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
         OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;

      OUTPUT $ ;
      IF_SET (LIN_MOV)    OUTPUT " "  LIN_MOV    ; END_IF ;
      IF_SET (CUTCOM_ON)  OUTPUT " "  CUTCOM_ON " D" CutterComp ; END_IF ;
      IF_SET (CUTCOM_OFF) OUTPUT " "  CUTCOM_OFF ; END_IF ;
      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 (minz _GT_ Z_CURPOS)      ---最深点判断 ，如果最小值大于Z坐标值时
      minz = Z_CURPOS ;          最小值=Z坐标值
      END_IF ;



      IF_SET (MCH_FEED)   OUTPUT " F" MCH_FEED   ; END_IF ;
      IF_SET (MCH_COOL)   OUTPUT  " " MCH_COOL   ; END_IF ;
      SET_ON CIRC_MOV NURBS_MOV;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

********************************************************
CIRCULAR MOTION:
      FlagSpin = NO ;
      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
         OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
      END_IF ;

      DXcenter = X_CENTER - Xold ;
      DYcenter = Y_CENTER - Yold ;
      DZcenter = Z_CENTER - Zold ;
      OUTPUT $ ;
      IF_SET (CIRC_MOV)          OUTPUT " " CIRC_MOV  ; END_IF ;
      IF_SET (X_CURPOS)          OUTPUT " X" X_ENDPT  ; END_IF ;
      IF_SET (Y_CURPOS)          OUTPUT " Y" Y_ENDPT  ; END_IF ;
  IF_SET ( RADOUTPUT _EQ_ "y" )   RADOUTPUT ="Y" ;   END_IF ;      ---如果园弧输出方式为 “Y”
  IF_SET ( RADOUTPUT _EQ_ "Y" )
      IF_SET (RADIUS)            OUTPUT " R" RADIUS_ ;   END_IF ;  ----输出“R”       这里有BUG哦..
  ELSE
      IF_SET (DXcenter _NE_ 0.0) OUTPUT " I" DXcenter ; END_IF ;   ----反之按原方式输出
      IF_SET (DYcenter _NE_ 0.0) OUTPUT " J" DYcenter ; END_IF ;
  END_IF;
      IF_SET (MCH_FEED)          OUTPUT " F" MCH_FEED ; END_IF ;
      IF_SET (MCH_COOL)          OUTPUT  " " MCH_COOL ; END_IF ;
      SET_ON LIN_MOV NURBS_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

[ 本帖最后由 sjhxs 于 2005-12-2 08:02 编辑 ]

强烈建议斑竹加分以兹鼓励!!!

奇哉怪也，提供了源代码人气还那么低

都是懒人， 你帮他们都写一给差不多。

好贴子，只可惜识货者不多。

偶一同事编程做了4、5年，还不知怎么改后处理

[ 本帖最后由 yyong 于 2005-11-29 14:38 编辑 ]

好东西,可惜很多人不识货,,多谢楼主

水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水水                           
水水水水水水水水水灌灌水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌
水水水水水水水水水灌灌灌灌    灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌灌
水水水水水水水灌灌灌灌灌灌灌水灌水水灌灌灌灌灌水水水水水水水水  
水水灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌水水水水水水水水水
灌灌灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌水水水水水水水水水
灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水水灌灌灌灌灌灌灌灌灌灌灌水水水   
灌灌灌灌灌灌灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌灌灌灌灌灌灌灌灌水     
水灌灌灌灌灌灌灌灌灌灌水水水水水灌灌灌灌灌灌水水水灌灌灌灌灌灌灌水      
水水水水水水水灌灌灌灌水水水水水灌灌灌灌水水水水水水灌灌灌灌灌水水      
水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌水水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌灌水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌灌水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水水灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌灌水灌灌灌灌水水灌灌灌灌灌水水
水水水水水水水灌灌灌灌水水水水灌灌灌水水灌灌灌灌水水灌灌灌灌灌水水
水灌灌水水水灌灌灌灌灌水水水水灌灌灌水水灌灌灌水水水灌灌灌灌灌水水
水灌灌灌灌灌灌灌灌灌灌水水水水水灌灌水水灌灌水水水水灌灌灌灌灌水水
水水灌灌灌灌灌灌灌灌灌水水水水水水水水灌灌灌水水水水水灌灌灌灌水水
水水水水灌灌灌灌灌灌灌水水水水水水水水灌灌灌水灌灌灌灌水水水水水水
水水水水水灌灌灌灌灌灌水水水水水水水灌灌灌灌水水灌灌灌灌灌水水水水
水水水水水水水水灌灌灌水水水水水水灌灌灌灌灌水水水灌灌灌灌灌灌灌水
水水水水水水水水水水水水水水水灌灌灌灌灌灌水水水水水灌灌灌灌灌灌水
水水水水水水水水水水水水水水灌灌灌灌灌灌水水水水水水灌灌灌灌灌灌灌
水水水水水水水水水水水水水灌灌灌灌灌水水水水水水水水水灌灌灌灌灌灌
水水水水水水水水水水水水灌灌灌灌灌水水水水水水水水水水水灌灌灌灌

好东西，来晚了，谢谢哦～

看来看去还是你最好了。觉得有水平。有爱心。
顶啊。
可惜我看不懂的拉。不过这POST我收下了。