纵向广告1
人生倒计时
- 今日已经过去小时
- 这周已经过去天
- 本月已经过去天
- 今年已经过去个月
纵向广告2
实用宏程序
之凹凸圆弧螺纹超级宏
这个宏程序是任意凹凸圆弧相切螺纹的通用宏程序,为右旋外螺纹,刀具为球刀,进刀是直进刀,用G32编程,采用角度进刀分层车削的方式----高效无空刀,车削过程中通过三次定位三段圆弧圆心的方式实现定位点的确定!这是最重要的。
这个宏程序由粗精车两个程序组成精车余量设定为0.1,也可以自己修改,具体输入参数看程序。吃刀量适当的减小以保证工件的光洁度为主!
几何关系图
效果图
IF在这里翻译成汉语是如果的意思
GE是大于等于的意思
GOTO是跳转的意思
LT是小于的意思
THEN是然后、那么的意思
EQ是等于的意思
LE是小于等于的意思
ASIN是反正弦函数
WHILE是当...的时候的意思
DO是执行、干的意思
END是结束的意思
粗车源程序:
O0001
T105
M03S90
#1=80(大径)
#6=200(螺纹长度)
#7=2(刀具半径)
#2=8(圆心距)
#3=2.7(单边深)
#4=0.5(凸圆弧半径)
#5=3.8(凹圆弧半径)
#8=8(螺距)
#11=#1-2*#4(凸圆圆心)
#12=#1-2*[#3-#5](凹圆圆心)
#13=ASIN[0.5*#2/[#4+#5]]
#28=1
#29=#3-#28
IF[#29LT0.1]THEN#29=0.1
N60
#14=90-#13
#15=#14-180
#16=-#14
#17=#13+90
#18=90
#21=-#6-#8
#22=#1+2*#7
G0Z#20
WHILE[#18GE#14]DO1
#19=#11+2*[#4+#7]*SIN[#18]+#29
#20=#8+[#4+#7]*COS[#18]
IF[#19GT#22]GOTO12
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N12
IF[#18EQ#14]GOTO1
#18=#18-5
IF[#18LT#14]THEN#18=#14
END1
N1
G0Z#20
WHILE[#15LE#16]DO1
#19=#12+2*[#5-#7]*SIN[#15]+#29
#20=#8+0.5*#2+[#5-#7]*COS[#15]
IF[#19GT#22]GOTO13
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N13
IF[#15EQ#16]GOTO2
#15=#15+5
IF[#15GT#16]THEN#15=#16
END1
N2
G0Z#20
WHILE[#17GE90]DO1
#19=#11+2*[#4+#7]*SIN[#17]+#29
#20=#8+#2+[#4+#7]*COS[#17]
IF[#19GT#22]GOTO14
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N14
IF[#17EQ90]GOTO3
#17=#17-5
IF[#17LT90]THEN#17=90
END1
N3
IF[#29EQ0.1]GOTO10
#29=#29-#28
IF[#29LT0.1]THEN#29=0
IF[#29GE0.1]GOTO60
N10
G0X200
Z200
M30
精车源程序:
O0001
T105
M03S90
#1=80(大径)
#6=200(螺纹长度)
#7=2(刀具半径)
#2=8(圆心距)
#3=2.7(单边深)
#4=0.5(凸圆弧半径)
#5=3.8(凹圆弧半径)
#8=8(螺距)
#11=#1-2*#4(凸圆圆心)
#12=#1-2*[#3-#5](凹圆圆心)
#13=ASIN[0.5*#2/[#4+#5]]
N60
#14=90-#13
#15=#14-180
#16=-#14
#17=#13+90
#18=90
#21=-#6-#8
#22=#1+2*#7
G0Z#20
WHILE[#18GE#14]DO1
#19=#11+2*[#4+#7]*SIN[#18]
#20=#8+[#4+#7]*COS[#18]
IF[#19GT#22]GOTO12
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N12
IF[#18EQ#14]GOTO1
#18=#18-5
IF[#18LT#14]THEN#18=#14
END1
N1
G0Z#20
WHILE[#15LE#16]DO1
#19=#12+2*[#5-#7]*SIN[#15]
#20=#8+0.5*#2+[#5-#7]*COS[#15]
IF[#19GT#22]GOTO13
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N13
IF[#15EQ#16]GOTO2
#15=#15+5
IF[#15GT#16]THEN#15=#16
END1
N2
G0Z#20
WHILE[#17GE90]DO1
#19=#11+2*[#4+#7]*SIN[#17]
#20=#8+#2+[#4+#7]*COS[#17]
IF[#19GT#22]GOTO14
G0Z#20
X#19
G32Z#21F#8
G0X#22
Z#20
N14
IF[#17EQ90]GOTO3
#17=#17-5
IF[#17LT90]THEN#17=90
END1
N3
IF[#29EQ0.1]GOTO10
#29=#29-#28
IF[#29LT0.1]THEN#29=0
IF[#29GE0.1]GOTO60
N10
G0X200
Z200
M30





