搜索
cad2007下载
软件下载
solidworks下载
proe下载
机械标准
机械招聘
机械图纸
机械百科
机械交易网
网站建设
机械设计手册
proe视频教程
cad2013视频教程
solidworks2008视频教程
CAD2004视频教程

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

[复制链接]
查看: 210|回复: 1

该用户从未签到

发表于 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;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Copyright © 2012-2035 厦门鑫时器科技有限公司 版权所有
闽ICP备2023009579号-1 技术支持:机械网站建设  Powered by Discuz! X3.4
快速回复 返回顶部 返回列表