分享一个高效螺旋铣孔宏程序，用了几年了的，屡试不爽！

cdj_456

经常遇到铣圆孔，直接下到安全高度，然后调用G133就出来了，甚是方便啊！而且该程序自动运算总深度与每层下的深度的余数，最后补平，不用担心整除的问题！无停顿，全部顺铣。

先要在参数6050~6059设置G代码调用宏程序的数字，6050~6059分别对应程序号O9010~O9019。
我这里在参数6054里面输的是133（0~255之间的数字），也就是O9014程序。
还可以设置参数3202的NE9为1，隐藏并保护O9000~O9999，防止误删
该程序完全本人独创，UG爱好者论坛首次发表，转载请标明出处

下面分享之：
格式G133 X__ Y__ Z__ R__ Q__ F__
X和Y为圆心坐标，也可以省略，但G133之前必须G00定位到圆心。Z就是最终的深度，R就相当于钻孔固定循环的R点，Q是螺旋走圆下一层与上一层的距离，跟固定循环的Q类似，F进给


%
O9014(G133)
#500=[#5043-#5083]          #5043是当前刀具的绝对Z坐标，#5083为长度补偿H的值
#31=FIX[#26/#17]
#32=#26-#31*#17
#33=[#3-#7]/2.
IF[#33LE0.5]THEN#3000=133(TOOL ERROR)          刀具回转半径判断和报警，这里是0.5mm，可以修改
G90G00X#24Y#25
G91X#33
G90Z[#18+#17]
G01Z#18F#9
WHILE[#18GT#26]DO3
#18=#18-#17
G03I-#33J0.Z#18F#9
IF[[#18+#32]EQ#26]GOTO133
END3
N133IF[#32NE0.]GOTO144
IF[#32EQ0.]GOTO155
N144G03I-#33J0.Z#26F#9
N155G03I-#33J0.F#9
G90G00Z#500          最后回到执行G133之前的绝对Z坐标
M99
%





补充内容 (2014-1-22 09:17):
抱歉，昨天忘了写上C和D，C是孔直径，D是刀具直径。格式G133 X__ Y__ C__ D__ Z__ R__ Q__ F__

背着行囊的驴

没有这么复杂吧
G0X100
#1=0.5
N1 G3 I-100 Z-#1F3000
#1=#1+0.5
IF(#1LE50)GO1

副总经理

非常感谢楼主的分享，支持原创！这个是好东西，我看要加元宝。

lg333

好厉害偶 谢谢楼主分享 哈哈哈哈

复仇云

谢谢分享

陳詩傑

感謝樓主的分享！

ug同路人

来学习学习！

刘排530

day day up

ug1029

谢谢分享！谢谢分享！

打开砂带机发

这么干好干多了

打开砂带机发

这么干好干多了

黑风很浪

cdj_456 发表于 2014-1-22 09:12
兄弟，抱歉，C和D一时疏忽忘了写上去了，C是孔直径，D是刀具直径。
不是私藏，昨天看论坛突然发现有这么 ...

楼主，G66调用试过了，不可以用啊，做了第一个孔，第二个孔时候#18 不会自己归零啊。怎么处理？想用G66调用，这样没有太多程序。