老大怎样才能把后处理的G54关闭

如题     

老大怎样才能把后处理的G54关闭

把文件传上来

* DEMO 3 axes Post Processor for FANUC or MITSUBISHI

* RUSSELL FOR CIMATRON90 VER 8.0

* Last update : 16-MAY-1997



********************************************************

* define private variables:

FORMAT (SEQUENCING)  Seq SubSeq  HD ;

FORMAT (TOOL)        CutterComp FirstTool LastTool ;

FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;

FORMAT (COORDINATES) Zinit Clear Depth ;

FORMAT (COORDINATES) Xhome Yhome Zhome ;

FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;

FORMAT (USER_1)      CurrSubNum    ;



* define private flags:

FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;

FORMAT (USER_2)      FirstOriginChange FlagError  ;



* define private constants:

FORMAT (USER_2)      YES NO  ;



* change the format of existing variables:

FORMAT (USER_1)      SUB_NUMBER ;



********************************************************

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 (USER_3)       "MACHINE-SYSTEM"          MacSys      = 54   ;
INTERACTION (SEQUENCING)   "HM"                      Hm          =  0   ;
  
********************************************************

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;



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 ;



*-----user define batch file------
      
       PRINT0 \J "@ECHO OFF" ;
       PRINT0 \J "MD\NC\" PART_NAME ;
       PRINT0 \J "COPY " PART_NAME "." TP_NAME ".h  \NC\" PART_NAME "\" TP_NAME ".NC > NUL" ;
       PRINT0 \J "ren *.*.h* yuan.yuan.h*" ;




*-----output
      SET_ON  SPIN_SPEED SPIN_DIR  ;
      IF_SET (FlagSeq _EQ_ YES )

         OUTPUT $"%"  ;
         OUTPUT $"O" MainNum  ;
         OUTPUT $"G17G40G49G80" ;
*         OUTPUT $"G91G28Z0" ;
         OUTPUT $"G90G" MacSys "G00X0Y0" ;
*        OUTPUT $"G61.1" ;
*         OUTPUT $"G5.1 Q1" ;
         OUTPUT $"G44H1Z" Zhome ;
         
      ELSE


         OUTPUT $"%"  ;
         OUTPUT $"O" MainNum  ;
         OUTPUT $"G17G40G49G80" ;
*         OUTPUT $"G91G28Z0" ;
         OUTPUT $"G90G" MacSys "G00X0Y0" ;
*        OUTPUT $"G61.1" ;
*         OUTPUT $"G5.1 Q1" ;
         OUTPUT $"G44H1Z" Zhome ;
           
      END_IF ;
      
      



BEGINNING OF PROC:
      

      KEEP   PROC_NAME ;

      SET_ON MCH_COOL ;

      FlagSub = NO ;

      SubSeq  = SeqStart ;
      
END OF TAPE:
      

END OF TOOL PATH:
      OUTPUT $ "G90G00Z" Zhome ;
*      OUTPUT $ "G5.1 Q0" ;
      OUTPUT $ "M09" ;
      OUTPUT $ "M05" ;
*      OUTPUT $ "G91G28Z0" ;
      OUTPUT $ "M30" ;
      OUTPUT $ "%" ;
      OUTPUT $ " "  ;
      SET_ON CUT_FILE ;
      PRINT0 \J "COPY yuan.yuan.H_" Hm  " \NC\" PART_NAME "\" TP_NAME ".NC > NUL" ;
      Hm = 1 + Hm ;
      SET_ON X_CURPOS Y_CURPOS Z_CURPOS LIN_MOV    ;

INTERACTION (USER_3)       "MACHINE-SYSTEM"          MacSys      = 54   ;
在上面一句加一个*号，
OUTPUT $"G90G" MacSys "G00X0Y0" ;
OUTPUT $"G90G" MacSys "G00X0Y0" ;
以上两句中的MacSys删掉。保存，在编译就OK了