QQ登录

只需一步,快速开始

快捷登录

登录 或者 注册 请先

UG爱好者

查看: 1390|回复: 1

[分享] 阿基米德螺旋线铣孔

[复制链接]

中尉

Rank: 5Rank: 5

5

主题

31

帖子

3388

积分
发表于 2022-9-9 21:50:38 来自手机 | 显示全部楼层 |阅读模式
练习宏程序2天,自编阿基米德螺旋线铣孔,螺旋进刀,圆弧退刀,欢迎大家发表建议
O999
N1
G0X0Y0Z10.
#1=20.(孔直径)
#2=4.(刀具直径)
#3=[#1-#2]/2(阿基米德螺旋半径)
#4=0(阿基米德初始螺旋角度)
#5=0(阿基米德初始螺旋半径)
#6=3.(阿基米德螺旋跨距)
#7=#3/[#6/360](阿基米德螺旋角度)
#8=-10.(孔深)
#9=1.(每刀深度)
#10=-1.(第一刀深度)
#11=1.5(螺旋进刀半径)
#12=50.(F值)
#13=1.(螺旋进刀安全高度)
#14=0.2(螺旋进刀深度每周)
#15=2.(螺旋进刀高度)
#16=1.(螺旋进刀次数)
G1X#11Y0F#12
G1Z2.
;
WHILE[#10GE#8]DO1
G0Z#13
;
WHILE[#5LE#3]DO2
;
WHILE[#16LE[#15/#14]]DO3
#13=#13-#14
G3I-#11Z#13
#16=#16+1.
IF[#16LE#15/#14]GOTO2
IF[#16GT#15/#14]GOTO1
N1G1X0Y0F#12
N2
END3
;
G1X[#5*COS[#4]]Y[#5*SIN[#4]]F#12
#4=#4+1.
#5=#5+#6/360
END2
;
#5=#3
G3I-[#5*COS[#4]]J-[#5*SIN[#4]]F#12
G3X0Y-5.R3.
G0Z2.
X#11Y0
#10=#10-#9
#13=#13+1.
#5=0
#4=0
#16=1.
END1 阿基米德1.rar (549 Bytes, 下载次数: 30)

评分

参与人数 1G币 +3 收起 理由
qwe332525369 + 3 原创加分!

查看全部评分

有奖推广贴子: 

回复

使用道具 举报

中尉

Rank: 5Rank: 5

10

主题

1016

帖子

3920

积分
发表于 2022-10-19 11:39:47 | 显示全部楼层
自从学会电脑编程,宏程序早还给老师了
回复 支持 反对

使用道具 举报

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

本版积分规则

 
 
QQ:1359218528
工作时间:
9:00-17:00
 
微信公众号
手机APP
机械社区
微信小程序

手机版|UG爱好者论坛 ( 京ICP备10217105号-2 )    论坛管理员QQ:1359218528

本站信息均由会员发表,不代表本网站立场,如侵犯了您的权利请联系管理员,邮箱:1359218528@qq.com  

Powered by UG爱好者 X3.2  © 2001-2014 Comsenz Inc. GMT+8, 2024-3-29 01:42

返回顶部