iCAx开思网

标题: 老大怎样才能把后处理的G54关闭 [打印本页]

作者: mirrtext 时间: 2009-11-1 13:58
标题: 老大怎样才能把后处理的G54关闭
如题

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

作者: zcgmin 时间: 2009-11-1 16:56
把文件传上来

作者: mirrtext 时间: 2009-11-2 08:35
* 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 ;

本帖最后由 mirrtext 于 2009-11-2 08:37 编辑

作者: ervinlu 时间: 2009-11-2 09:31
INTERACTION (USER_3) "MACHINE-SYSTEM" MacSys = 54 ;
在上面一句加一个*号，
OUTPUT $"G90G" MacSys "G00X0Y0" ;
OUTPUT $"G90G" MacSys "G00X0Y0" ;
以上两句中的MacSys删掉。保存，在编译就OK了

欢迎光临 iCAx开思网 (https://www.icax.org/)