阿基米德螺旋线铣孔

lfh699

练习宏程序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, 下载次数: 34)

2022-9-9 22:40 上传

点击文件名下载附件
下载积分: G币 -1

迷糊000

自从学会电脑编程，宏程序早还给老师了