用直线插补(G01)代替固定循环钻孔的后处理代码（GPP1&GPP2)

ytsunwjb13 · 发表于 2011-9-25 20:36:18

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 ytsunwjb13 于 2011-9-26 22:32 编辑

代码写的比较粗糙，不支持深孔往复钻，只贴出钻孔部分代码，其他运动代码无须更改，如果无法正常编译请检查后处理头是否声明了代码中的变量。

GPP2代码在7楼
********************************************************
CYCLE: ON:
*{{ GPP range check
*}} GPP range check
   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 ;
   END_IF ;

   SET_ON X_CURPOS Y_CURPOS Z_CURPOS ;
   SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED ;
   SET_ON Zinit Depth Clear ;
   Zinit = Z_CURPOS + CYC_DZINIT ;
   Depth = Z_CURPOS - CYC_DEPTH ;
   Clear = Z_CURPOS + CYC_CLEAR ;
   IF_SET (Zold _LT_ Zinit) OUTPUT $ "G00Z" Zinit ; END_IF ;

OUTPUT $ ;

OUTPUT "G00";

OUTPUT "X" X_CURPOS ;

OUTPUT "Y" Y_CURPOS ;
                     OUTPUT "Z" Zhome ;
                     OUTPUT $ ;

OUTPUT "Z" Clear ;
                     OUTPUT $ ;

IF_SET (LIN_MOV)  OUTPUT LIN_MOV ; END_IF ;

OUTPUT "X" X_CURPOS ;

OUTPUT "Y" Y_CURPOS ;

OUTPUT "Z" Depth ;

OUTPUT "F" MCH_FEED ;

SET_ON  LIN_MOV CIRC_MOV ;
   SET_OFF CYC_DEPTH CYC_CLEAR;
   Xold = X_CURPOS ;
   Yold = Y_CURPOS ;
   Zold = Z_CURPOS ;

CYCLE:
*{{ GPP range check
*}} GPP range check
SET_ON X_CURPOS Y_CURPOS Z_CURPOS ;
   SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED ;
   SET_ON Zinit Depth Clear ;
   Zinit = Z_CURPOS + CYC_DZINIT ;
   Depth = Z_CURPOS - CYC_DEPTH ;
   Clear = Z_CURPOS + CYC_CLEAR ;
   IF_SET (Zold _LT_ Zinit) OUTPUT $ "G00Z" Zinit ; END_IF ;
   OUTPUT $ ;

OUTPUT "X" X_CURPOS ;

OUTPUT "Y" Y_CURPOS ;
                     OUTPUT $ ;

OUTPUT "Z" Clear ;
                     OUTPUT $ ;

IF_SET (LIN_MOV)  OUTPUT LIN_MOV ; END_IF ;

OUTPUT "X" X_CURPOS ;

OUTPUT "Y" Y_CURPOS ;

OUTPUT "Z" Depth ;
   IF_SET (MCH_FEED) OUTPUT "F" MCH_FEED ; END_IF ;

SET_ON LIN_MOV CIRC_MOV ;
   SET_OFF CYC_DEPTH CYC_CLEAR;
   Xold = X_CURPOS ;
   Yold = Y_CURPOS ;
   Zold = Z_CURPOS ;

CYCLE: OFF:
*{{ GPP range check
*}} GPP range check
   OUTPUT $ ;
   OUTPUT "G00Z" Zhome ;
   SET_ON CIRC_MOV ;
   Zold = Zinit ;

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

zbhouin · 发表于 2011-9-25 20:43:12

楼主有心了
谢谢分享

wuchuanfu88 · 发表于 2011-9-26 13:52:56

此帖竟然没人顶

oldlover · 发表于 2011-9-26 16:24:49

谢谢了,虽然早就用这样的代码了

tsiyylecy · 发表于 2011-9-26 17:01:30

谢谢LZ ,改了一下午,终于能在自己的床子上使用了

zhengjunqing · 发表于 2011-9-26 22:04:05

GPP2的有就放上来吧。貌似现在很不流行GPP1的啊

ytsunwjb13 · 发表于 2011-9-26 22:29:47

GPP2的有就放上来吧。貌似现在很不流行GPP1的啊 Z+ z( r( X* s' F' v7 \
zhengjunqing 发表于 2011-9-26 22:04 http://www.3dportal.cn/discuz/images/common/back.gif

呵呵，看在你放E10破解的份上，我也不好再做保留了

CYCLE:
   IF (QUALIFIER_NAME == "on" || QUALIFIER_NAME == "toinit")
   SET_ON X_CURPOS Y_CURPOS Z_CYC_DEPTH Z_CYC_CLEAR MCH_FEED;
   END_IF;
   OUTPUT  $;
   OUTPUT  "G00Z"  Z_CYC_DZINIT;

   OUTPUT  $;
   OUTPUT "X" X_CURPOS;
   OUTPUT "Y" Y_CURPOS;

   OUTPUT  $;
   OUTPUT "Z" Z_CYC_CLEAR;

   OUTPUT  \J;

   IF_SET (MOTION_CODE) OUTPUT "G01"; END_IF;
   OUTPUT "X" X_CURPOS;
   OUTPUT "Y" Y_CURPOS;
   OUTPUT "Z" Z_CYC_DEPTH;
   OUTPUT "F" MCH_FEED" ";

* SET_ON  MCH_FEED;

CYCLE: off:
   OUTPUT \J "G00Z"  Z_CYC_DZINIT;

ytsunwjb13 · 发表于 2011-9-27 12:31:28

此帖竟然没人顶
- |0 b W( l# S5 v+ N, o! ewuchuanfu88 发表于 2011-9-26 13:52 http://www.3dportal.cn/discuz/images/common/back.gif

呵呵，这年头好吃懒做喜欢坐享其成的人多了，没人顶也不足为奇

master_e · 发表于 2011-9-27 20:27:46

代码写的比较粗糙，不支持深孔往复钻，只贴出钻孔部分代码，其他运动代码无须更改，如果无法正常编译请检查后处理头是否声明了代码中的变量。
2 y. O v+ a! W Z' S8 j
/ o# L. X# c6 xGPP2代码在7楼
' [ O) i! ~! c! G/ J************************************************* ...
" j) L, B9 e$ G7 gytsunwjb13 发表于 2011-9-25 20:36 http://www.3dportal.cn/discuz/images/common/back.gif

支持在YZ XZ 平面上后处理钻孔程序吗？

wcaon · 发表于 2011-9-27 22:01:51

主题已经登记到板块资料汇总感谢您的分享
登记地址：http://www.3dportal.cn/discuz/viewthread.php?tid=1037374&extra=page%3D1

ytsunwjb13 · 发表于 2011-9-28 08:10:36

支持在YZ XZ 平面上后处理钻孔程序吗？2 |3 m( l, C; r
master_e 发表于 2011-9-27 20:27 http://www.3dportal.cn/discuz/images/common/back.gif

目前不支持，不过可以修改，无非就是在对话区定义一个变量（XY,YZ,ZX)，然后根据变量值互换X Y Z三个轴的位置而已，你可以自己试试，顺便练习一下写后处理

YUYUYUYU · 发表于 2011-9-29 12:51:19

有用过2D轮廓铣刀路钻孔吗？小孔钻的抬刀高度很重要。可惜钻孔刀路不支持每个抬刀到工件表面上。用2D轮廓铣刀路钻孔可解决这个问题。

要点是把圆直径设大过刀具直径0.005。法向进退刀设位0.

suiyuan1991 · 发表于 2011-12-2 18:33:33

好帖谢谢分享

noilover · 发表于 2012-4-20 07:19:43

大哥，GPP2按照你的改了，很好用，能不能把G83的部分用G01,G0模拟的那段发上来啊。

noilover · 发表于 2012-4-21 18:44:06

大哥，GPP2按照你的改了，很好用，能不能把G83的部分用G01,G0模拟的那段发上来啊。

caige123888 · 发表于 2012-4-21 21:44:05

谢谢分享[img][img][/img][/img]

962909187 · 发表于 2012-9-3 11:09:25

) 19*(好帖谢谢分享

710279284 · 发表于 2012-9-3 12:57:23

直接把GPP2搞上来大家学习学习呀

710279284 · 发表于 2012-9-9 13:45:13

源码可以共享吗 LZ

y253218783 · 发表于 2013-12-24 11:31:02

分享分享下，要是自己能动手该就好了

songdanshanghai · 发表于 2015-2-27 08:10:24

谢谢楼主无私共享！

WhoAyou · 发表于 2015-12-23 13:29:22

搞得真复杂啊，UG直接断削铣，GO1代码

1起向前看 · 发表于 2016-2-28 19:48:02

楼主有心了
谢谢分享

无时无_SOw3f · 发表于 2018-11-6 20:59:34

感谢楼主的分享，学习了

		自动登录	找回密码
密码			注册

通知

[分享] 用直线插补(G01)代替固定循环钻孔的后处理代码（GPP1&GPP2)

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块