[分享]法兰克、三菱后处理源代码全“民”共享

sjhxs

源代码有分享精神的不多，我来试吃“螃蟹”，请多多指教！

* DEMO 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 ;---定义时间变量

********************************************************
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 ;

********************************************************
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 (FlagSeq _EQ_ YES )
         OUTPUT "%" \J;
      ELSE
         OUTPUT " %" \J;
      END_IF ;

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

   Time=0.001; 定义初始值
      
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 $ " M09 " ;
      OUTPUT $ " M30 " ;
      
      
END OF FILE:
      IF_SET (FlagSeq _EQ_ YES )
         OUTPUT \J "%" ;
      ELSE
         OUTPUT \J " %" ;
      END_IF ;
       OUTPUT  "(估计工时:" Time " 分钟)" ;   有没有办法帮偶搞到程序头？
********************************************************
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 $ " 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 $ " G90 G80 G00 G17 G40 G54" ;
      OUTPUT $ "( 刀具名称---" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";
      OUTPUT $ "( 程式名称=" TP_NAME "本程式由" USER_NAME "编制 )";
      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;      (以上红色部分为程序头，双引号间内容可根据个人喜好修改）
  
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 $ " T" NEXT_TOOL ;
*-----standard tool change commands. (assuming 1st tool is in
      OUTPUT $ " G90 G80 G00 G17 G40 G54" ;
      OUTPUT $ "( 刀具名称---" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";
      OUTPUT $ "( 程式名称=" TP_NAME "本程式由" USER_NAME "编制 )";
      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;

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 ;
*-----the last tool is the same as the first tool
      IF_SET (NEXT_TOOL _NE_ CURR_TOOL)
         OUTPUT $ " T" NEXT_TOOL ;
      END_IF ;
*-----standard tool change commands. (assuming 1st tool is in
      OUTPUT $ " G90 G80 G00 G17 G40 G54" ;
      OUTPUT $ "( 刀具名称---" CURR_NAME "×" CLEAR_LENG ")";
      OUTPUT $ "( 曲面偏移=" PART_OFST " 曲面公差=" PART_TOL" 轮廓偏移=" CONT_OFST " 轮廓公差=" CONT_TOL " )";
      OUTPUT $ "( 程式名称=" TP_NAME "本程式由" USER_NAME "编制 )";
      OUTPUT $ " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;

[ 本帖最后由 sjhxs 于 2005-11-27 19:00 编辑 ]

sjhxs

13131

leehongsheng

yhhyhh

tch21st

jh0417

忘了叫啥名

szhaoran

wrg1975@163.com