网站主页设为首页收藏本站
开启辅助访问 切换到宽版

口口外挂论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

手机号码，快捷登录

口口外挂论坛»论坛首页 › CimatronE 论坛 › CimatronE 后处理及程序单 › GPP侧打打孔
返回列表 发新帖
楼主: 李伟世
打印 上一主题 下一主题

[分享] GPP侧打打孔

[点此复制链接分享本帖获C币]
李伟世
最佳答案
0 
跳转到指定楼层
楼主
发表于 2017-4-16 16:48:10 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 李伟世 于 2017-4-16 16:57 编辑

原后处理不知哪里下的


TOOL CHANGE: FIRST:


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

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


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

李伟世
最佳答案
0 
沙发
 楼主| 发表于 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 ;
                         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 ;



回复 支持 反对

使用道具 举报

李伟世
最佳答案
0 
板凳
 楼主| 发表于 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 ;
                         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 ;

回复 支持 反对

使用道具 举报

李伟世
最佳答案
0 
地板
 楼主| 发表于 2017-4-16 17:00:27 | 显示全部楼层
今天改了这里
*     IF_SET (Y_CURPOS _GT_ 0.)
      IF_SET (Y_CURPOS _LT_ Yhome )  

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

回复 支持 反对

使用道具 举报

李伟世
最佳答案
0 
5#
 楼主| 发表于 2017-4-18 21:11:31 | 显示全部楼层
改过的后处理今天做了一个活，没发现问题。

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

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋| 口口外挂 ( 苏ICP备11022365号 )

GMT+8, 2024-5-4 03:48 , Processed in 0.097177 second(s), 34 queries .

Powered by 口口外挂

© 2012-2017 CNCQQ.COM

快速回复 返回顶部 返回列表