传一个螺旋下刀转圆的宏程序供大家参考

满庭芳 · 发表于 2013-10-31 23:02:40

G91M03S#19;
#7=ABS[#7];(孔直径)
#11=ABS[#11];（孔深度）；
#17=ABS[#17];（层降深度）
#20=ABS[#20];（刀直径）
N2;
#105=0;计数器
IF[#20GE#7]GOTO6;当#7即刀直径大于#1即孔直径时程序结束
#106=[#7-#20]/2;孔半径等于孔直径和刀直径之差除以二。
#105=#105+#17;计数器计数。
N3;
G91G01X#106;
WHILE[#105LE#11]DO01;当计数器值小于等于孔深度时执行01循环
G03I-#106Z-#17;
#105=#105+#17; 计数器计数。
END01;
01循环结束
N4;
IF[[ABS[#11-#105+#17]]LT0.001]GOTO05;
当空深精度小于0.001mm时跳到
#17=#11-[#105-#17];
计算未加工孔深
G03I-#106Z-#17;
N5;
G03I-#106;
G01X-#106;
G01Z#11;抬刀
N6；
M05;
M30;

满庭芳 · 发表于 2013-10-31 23:03:10

因为是直接贴的故有点问题，我在重发一个
G91M03S#19;
#7=ABS[#7];(孔直径)
#11=ABS[#11];（孔深度）；
#17=ABS[#17];（层降深度）
#20=ABS[#20];（刀直径）
N2;
#105=0;计数器
IF[#20GE#7]GOTO6;当#7即刀直径大于#1即孔直径时程序结束
#106=[#7-#20]/2;孔半径等于孔直径和刀直径之差除以二。
#105=#105+#17;计数器计数。
N3;
G91G01X#106;
WHILE[#105LE#11]DO01;当计数器值小于等于孔深度时执行01循环
G03I-#106Z-#17;
#105=#105+#17; 计数器计数。
END01; 01循环结束
N4;
IF[[ABS[#11-#105+#17]]LT0.001]GOTO05; 当孔深精度小于0.001mm时跳到N5
#17=#11-[#105-#17]; 计算未加工孔深
G03I-#106Z-#17;
N5;
G03I-#106;
G01X-#106;
N6；
G01Z#11;抬刀
M05;
M30;