內螺紋加工

做個子程式，直接在主程式螺紋孔位置定位，呼叫子程式。

加工非等徑/等距螺紋時，把子程式#101-#106複製到主程式，根據螺紋、刀具定義變數，加工時開啟程式單節跳躍。

o1001

/#101=3.（螺紋螺距）

/#102=20（螺紋深度）

/#103=45.（內螺紋底部直徑）

/#104=20.（螺紋銑刀d補正號）

/#105=30.（安全高度）

/#106=200.（f值）

----------------------------------------------------（以上加工非等徑/等距螺紋時，請跳躍）

#107=fup[#102/#101]（螺旋次數）

#108=#101*#107-#102（螺紋起點高度）

#109=1.（螺紋加工記數）

g90g0z5.

g1z#108f#106*2（螺紋起點定位）

g91g1g42x#103/2d#104f#106*0.8（加入刀補）

n1

g3i-#103/2z#101f#106（螺旋銑削）

#109=#109+1.（螺旋記數）

if[#109le#107]g0t01（螺旋次數判斷式）

g1g40x-#103/2f#106*2（取消刀補）

g90g0z#105（抬刀，安全高度）

m99

%