变螺距等槽宽矩形螺纹

变螺距等槽宽矩形螺纹
大家好,今天我们介绍一种变螺距矩形螺纹,从上图中我们可以看出,这是一个变顶宽不变槽宽的变距,槽宽为8,我们选用3毫米切刀往左分层赶刀,初始螺距为15,每次螺距递减1,最后一牙螺距为10。知道这些参数,我们来编制程序:

M3S300G99

T0909M08

G0X51.Z20.(定位)

#1=50(大直径)

#2=40(小直径)

#6=5(槽宽度减去一个刀宽等于实际赶刀宽度)

N10#1=#1-0.3(深度递减,0.3是每层的吃刀量)

IF[#1LT#2]THEN#1=#2(防止深度过切,强制赋值)

#5=0(赶刀初始值)

N30G0Z[21-#5](Z定位,往左赶刀)

#3=16(从第一个螺距递增一牙开始起刀,第一牙螺距为15,所以增加一牙的螺距为16)

G0X#1(X进刀)

N40G32W-#3F#3(螺纹加工开始)

IF[#3EQ10]GOTO41(当螺距等于最后一牙螺距的时候跳出循环)

#3=#3-1(螺距每次递减1)

IF[#3GE10]GOTO40(如果当前螺距大于等于最后一牙螺距继续下一牙)

N41G0X51(X退刀)

Z[21-#5](Z退刀)

IF[#5EQ#6]GOTO42(如果赶刀宽度到达,跳出循环)

#5=#5+2.5(赶刀递加)

IF[#5GT#6]THEN#5=#6(防止赶刀宽度过切,强制赋值)

IF[#5LE#6]GOTO30(如果宽度没有到达,跳N30继续赶刀)

N42IF[#1EQ#2]GOTO43(如果深度到达,跳出循环)

IF[#1GE#2]GOTO10(如果深度没有到达,跳N10继续深度递减)

N43G0X100.

Z130.

M3O 

完整程序如下:

M3S300G99

T0909M08

G0X51.Z20.

#1=50

#2=45

#6=5

N10#1=#1-0.3

IF[#1LT#2]THEN#1=#2

#5=0

N30G0Z[21-#5]

#3=16

G0X#1

N40G32W-#3F#3

IF[#3EQ10]GOTO41

#3=#3-1

IF[#3GE10]GOTO40

N41G0X51

Z[21-#5]

IF[#5EQ#6]GOTO42

#5=#5+2.6

IF[#5GT#6]THEN#5=#6

IF[#5LE#6]GOTO30

N42IF[#1EQ#2]GOTO43

IF[#1GE#2]GOTO10

N43G0X100.

Z130.

M3O 

全套宏程序  请微信关注 zgsklm  回复宏程序即可免费下载


发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注