口口外挂论坛

标题: GPP侧打打孔 [打印本页]

作者: 李伟世 时间: 2017-4-16 16:48
标题: 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
本帖最后由李伟世于 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 ;
                     OUTPUT  CYC_RETR ;
                     SET_ON CYC_CODE ;
                     OUTPUT  CYC_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 ;
                     OUTPUT  MCH_COOL ;
   SET_ON  LIN_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) OUTPUT  CYC_RETR ; END_IF ;
   IF_SET (CYC_CODE) OUTPUT  CYC_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) OUTPUT  SPIN_DIR ; 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 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_ON  LIN_MOV CIRC_MOV ;
   Xold = Zinit ;

作者: 李伟世 时间: 2017-4-16 16:55
本帖最后由李伟世于 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 ;
                     OUTPUT  CYC_RETR ;
                     SET_ON CYC_CODE ;
                     OUTPUT  CYC_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 ;
                     OUTPUT  MCH_COOL ;
   SET_ON  LIN_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) OUTPUT  CYC_RETR ; END_IF ;
   IF_SET (CYC_CODE) OUTPUT  CYC_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) OUTPUT  SPIN_DIR ; 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 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_ON  LIN_MOV CIRC_MOV ;
   Yold = Zinit ;

作者: 李伟世 时间: 2017-4-16 17:00
今天改了这里
* IF_SET (Y_CURPOS _GT_ 0.)
IF_SET (Y_CURPOS _LT_ Yhome )

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

作者: 积雨云 时间: 2017-4-16 22:50
学习一下

作者: 710279284 时间: 2017-4-17 00:58
侧铣用循环钻孔需要改机床参数，直接用G01模拟钻孔循环最好

作者: 随波逐流 时间: 2017-4-17 07:47
不会侧面的

作者: 路过不买 时间: 2017-4-17 08:09

学习一下 :lol

作者: 如意手板 时间: 2017-4-17 08:16
学习一下学习一下

作者: liping@@ 时间: 2017-4-17 08:29
:)

作者: 李伟世 时间: 2017-4-18 21:11
改过的后处理今天做了一个活，没发现问题。

之前习惯用IT，今天的一个用E做的，STEP直接导到E的NC模式下了，然后做完程式才发现加工座标全部不是机械座标，于是试了试外挂的法兰克后处理，但不知为什么处理出来的位置对不上。只好重做

欢迎光临口口外挂论坛 (http://bbs.cncqq.com/)