李伟世 发表于 2017-4-16 16:48:10

GPP侧打打孔

本帖最后由 李伟世 于 2017-4-16 16:57 编辑

原后处理不知哪里下的


TOOL CHANGE: FIRST:


    OUTPUT $ "G90G80G00 G19 G40G54 " ;
    OUTPUT $ "X" Xhome ;

所有 "Z" Zhome   改为"X" Xhome ;


李伟世 发表于 2017-4-16 16:50:51

本帖最后由 李伟世 于 2017-4-16 18:26 编辑

******苝ふYZキ***********************************************************************
CYCLE: ON:
      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 ;

      SET_ON X_CURPOS Y_CURPOS Z_CURPOS   ;
      SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED MCH_COOL ;
      SET_ON Zinit Depth Clear ;
*   IF_SET (X_CURPOS _GT_ 0.)
      IF_SET (X_CURPOS _LT_ Xhome )
      Zinit    = X_CURPOS + CYC_DZINIT ;
      Depth= X_CURPOS - CYC_DEPTH ;
      Clear    = X_CURPOS + CYC_CLEAR ;
      ELSE
      Zinit    = X_CURPOS - CYC_DZINIT ;
      Depth= X_CURPOS + CYC_DEPTH ;
      Clear    = X_CURPOS - CYC_CLEAR ;
      END_IF ;
*   IF_SET (Zold_LT_Zinit) OUTPUT $ "Z" Zinit ; END_IF ;
*                        OUTPUT $ "Z" Zinit ;
                         OUTPUT $ ;
                         SET_ON CYC_RETR ;
                         OUTPUTCYC_RETR ;
                         SET_ON CYC_CODE ;
                         OUTPUTCYC_CODE ;
                         OUTPUT "Y" Y_CURPOS ;
                         OUTPUT "Z" Z_CURPOS ;
                         OUTPUT "X" Depth ;
                         OUTPUT "R" Clear ;
      IF_SET (CYC_PECK)OUTPUT "Q" CYC_PECK; END_IF ;
      IF_SET (CYC_DWELL) OUTPUT "P" CYC_DWELL ; END_IF ;
*      IF_SET (CYC_YSHFT) OUTPUT "J" CYC_YSHFT ; END_IF ;
*      IF_SET (CYC_ZSHFT) OUTPUT "K" CYC_ZSHFT ; END_IF ;
                         OUTPUT "F" MCH_FEED ;
                         OUTPUTMCH_COOL ;
      SET_ONLIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
      XORG = Zinit ;
*****************************************************************************

CYCLE:
      Zinit    = X_CURPOS + CYC_DZINIT ;
      IF_SET (Zinit _NE_XORG) SET_ON Zinit; END_IF;
*   IF_SET (X_CURPOS _GT_ 0.)
      IF_SET (X_CURPOS _LT_ Xhome )
      Depth= X_CURPOS - CYC_DEPTH ;
      Clear    = X_CURPOS + CYC_CLEAR ;
      ELSE
      Depth= X_CURPOS + CYC_DEPTH ;
      Clear    = X_CURPOS - CYC_CLEAR ;
      END_IF ;
      OUTPUT $ ;
*   IF_SET (Zinit) OUTPUT "Z" Zinit ; END_IF ;
      OUTPUT $ ;
      IF_SET (CYC_RETR)   OUTPUTCYC_RETR   ; END_IF ;
      IF_SET (CYC_CODE)   OUTPUTCYC_CODE   ; END_IF ;
      IF_SET (Y_CURPOS)   OUTPUT "Y" Y_CURPOS; END_IF ;
      IF_SET (Z_CURPOS)   OUTPUT"Z" Z_CURPOS   ; END_IF ;
      IF_SET (Depth)      OUTPUT "X" Depth   ; END_IF ;
      IF_SET (Clear)      OUTPUT "R" Clear      ; END_IF ;
      IF_SET (CYC_PECK)   OUTPUT "Q" CYC_PECK   ; END_IF ;
      IF_SET (CYC_DWELL)OUTPUT "P" CYC_DWELL; END_IF ;
*      IF_SET (CYC_YSHFT)OUTPUT "J" CYC_YSHFT; END_IF ;
*      IF_SET (CYC_ZSHFT)OUTPUT "K" CYC_ZSHFT; END_IF ;
      IF_SET (SPIN_SPEED) OUTPUT "S" SPIN_SPEED ; END_IF ;
      IF_SET (SPIN_DIR)   OUTPUTSPIN_DIR   ; END_IF ;
      IF_SET (MCH_FEED)   OUTPUT "F" MCH_FEED   ; END_IF ;
      IF_SET (MCH_COOL)   OUTPUTMCH_COOL   ; END_IF ;
      SET_ONLIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
*   XORG = Zinit ;

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

CYCLE: OFF:
      SET_ON Zinit ;
      OUTPUT $ "G80" ;
      SET_ONLIN_MOV CIRC_MOV ;
      Xold = Zinit ;



李伟世 发表于 2017-4-16 16:55:03

本帖最后由 李伟世 于 2017-4-16 18:51 编辑

******苝ふZXキ***********************************************************************
CYCLE: ON:
      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 ;

      SET_ON X_CURPOS Y_CURPOS Z_CURPOS   ;
      SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED MCH_COOL ;
      SET_ON Zinit Depth Clear ;
*   IF_SET (Y_CURPOS _GT_ 0.)
      IF_SET (Y_CURPOS _LT_ Yhome )
      Zinit    = Y_CURPOS + CYC_DZINIT ;
      Depth= Y_CURPOS - CYC_DEPTH ;
      Clear    = Y_CURPOS + CYC_CLEAR ;
      ELSE
      Zinit    = Y_CURPOS - CYC_DZINIT ;
      Depth= Y_CURPOS + CYC_DEPTH ;
      Clear    = Y_CURPOS - CYC_CLEAR ;
      END_IF ;
*   IF_SET (Zold_LT_Zinit) OUTPUT $ "Z" Zinit ; END_IF ;
*                        OUTPUT $ "Z" Zinit ;
                         OUTPUT $ ;
                         SET_ON CYC_RETR ;
                         OUTPUTCYC_RETR ;
                         SET_ON CYC_CODE ;
                         OUTPUTCYC_CODE ;
                         OUTPUT "X" X_CURPOS ;
                         OUTPUT "Z" Z_CURPOS ;
                         OUTPUT "Y" Depth    ;
                         OUTPUT "R" Clear ;
      IF_SET (CYC_PECK)OUTPUT "Q" CYC_PECK; END_IF ;
      IF_SET (CYC_DWELL) OUTPUT "P" CYC_DWELL ; END_IF ;
*      IF_SET (CYC_YSHFT) OUTPUT "J" CYC_YSHFT ; END_IF ;
*      IF_SET (CYC_ZSHFT) OUTPUT "K" CYC_ZSHFT ; END_IF ;
                         OUTPUT "F" MCH_FEED ;
                         OUTPUTMCH_COOL ;
      SET_ONLIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
      YORG = Zinit ;
*****************************************************************************

CYCLE:
      Zinit    = Y_CURPOS + CYC_DZINIT ;
      IF_SET (Zinit _NE_YORG) SET_ON Zinit; END_IF;
*   IF_SET (Y_CURPOS _GT_ 0.)
      IF_SET (Y_CURPOS _LT_ Yhome )
      Depth= Y_CURPOS - CYC_DEPTH ;
      Clear    = Y_CURPOS + CYC_CLEAR ;
      ELSE
      Depth= Y_CURPOS + CYC_DEPTH ;
      Clear    = Y_CURPOS - CYC_CLEAR ;
      END_IF ;
      OUTPUT $ ;
*   IF_SET (Zinit) OUTPUT "Z" Zinit ; END_IF ;
      OUTPUT $ ;
      IF_SET (CYC_RETR)   OUTPUTCYC_RETR   ; END_IF ;
      IF_SET (CYC_CODE)   OUTPUTCYC_CODE   ; END_IF ;
      IF_SET (X_CURPOS)   OUTPUT "X" X_CURPOS; END_IF ;
      IF_SET (Z_CURPOS)   OUTPUT"Z" Z_CURPOS   ; END_IF ;
      IF_SET (Depth)      OUTPUT "Y" Depth      ; END_IF ;
      IF_SET (Clear)      OUTPUT "R" Clear      ; END_IF ;
      IF_SET (CYC_PECK)   OUTPUT "Q" CYC_PECK   ; END_IF ;
      IF_SET (CYC_DWELL)OUTPUT "P" CYC_DWELL; END_IF ;
*      IF_SET (CYC_YSHFT)OUTPUT "J" CYC_YSHFT; END_IF ;
*      IF_SET (CYC_ZSHFT)OUTPUT "K" CYC_ZSHFT; END_IF ;
      IF_SET (SPIN_SPEED) OUTPUT "S" SPIN_SPEED ; END_IF ;
      IF_SET (SPIN_DIR)   OUTPUTSPIN_DIR   ; END_IF ;
      IF_SET (MCH_FEED)   OUTPUT "F" MCH_FEED   ; END_IF ;
      IF_SET (MCH_COOL)   OUTPUTMCH_COOL   ; END_IF ;
      SET_ONLIN_MOV CIRC_MOV ;
      SET_OFF CYC_DEPTH CYC_CLEAR;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;
*   XORG = Zinit ;

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

CYCLE: OFF:
      SET_ON Zinit ;
      OUTPUT $ "G80" ;
      SET_ONLIN_MOV CIRC_MOV ;
      Yold = Zinit ;

李伟世 发表于 2017-4-16 17:00:27

今天改了这里
*   IF_SET (Y_CURPOS _GT_ 0.)
      IF_SET (Y_CURPOS _LT_ Yhome )

OUTPUT $ "G80" ;这里也是改过的，法兰克用不着

积雨云 发表于 2017-4-16 22:50:08

学习一下   

710279284 发表于 2017-4-17 00:58:58

侧铣用循环钻孔需要改机床参数，直接用G01模拟钻孔循环最好

随波逐流 发表于 2017-4-17 07:47:35

不会侧面的

路过不买 发表于 2017-4-17 08:09:50


学习一下   :lol

如意手板 发表于 2017-4-17 08:16:37

学习一下 学习一下

liping@@ 发表于 2017-4-17 08:29:17

:)
页: [1] 2
查看完整版本: GPP侧打打孔