VERICUT模拟梯形螺纹宏程序TR60×12

梯形螺纹宏程序TR60×12

(G32梯形螺纹)

#1=60(螺纹大径)

#2=12(螺距)

#3=2(刀粒宽度)

#4=0.5(ac值)

#16=15(左侧角度)

#17=15(右侧角度)

#18=100(螺纹长度)

T0303 M3 S100

G0 X[#1+5] Z#2

#5=0.5*#2+#4(牙深)

#6=0.366*#2-0.536*#4(牙槽底宽)

#7=0.8*#3(单次移刀距离)

#8=0(牙深初值)

WHILE[#8 LE #5] DO1 (控制牙深)

#9=[#6-#3]/2(槽底处左右借刀余量)

#10=#5-#8(当前层距槽底的距离)

#11=#10*TAN[#16](当前层槽左侧与槽底左侧的距离)

#12=#10*TAN[#17](当前层槽右侧与槽底右侧的距离)

#13=#9+#11(当前层左余量)

#14=#9+#12(当前层右余量)

G0 X[#1-2*#8] Z#2

G32 Z-#18 F#2

G0 X[#1+5]

Z#2

#30=#7

IF[#30 GT #13] THEN #30=#13

WHILE[#30 LE #13] DO2

G0 X[#1-2*#8] Z[#2-#30]

G32 Z-#18 F#2

G0 X[#1+5]

Z[#2-#30]

IF[#30 EQ #13] GOTO200

#30=#30+#7

IF[#30 GT #13] THEN #30=#13

END2

N200

#30=#7

IF[#30 GT #14] THEN #30=#14

WHILE[#30 LE #14] DO2

G0 X[#1-2*#8] Z[#2+#30]

G32 Z-#18 F#2

G0 X[#1+5]

Z[#2+#30]

IF[#30 EQ #14] GOTO300

#30=#30+#7

IF[#30 GT #14] THEN #30=#14

END2

N300

IF[#8 EQ #5] GOTO100

#8=#8+0.3

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

END1

N100 G0 X100

Z100

M30