此程序為分層左中右進刀車削，適合螺距≥6的梯形螺紋
M03S100T0101
#100=(x為起點)；
#101=（z為起點）
#102=（螺距）；
#103=（刀尖寬度）；
#104=（前8層吃刀量，直徑值）
#105=（大經）；
#106=（z終點）
#119=0.366
#117=0.13395
#107=#102
#110=#100-#105
#111=[#107-#119*#102-#103]/2+#118*#117
IF[#102LT14]GOTO2
IF[#102GT44]GOTO3
#120=2[#102/2+1]+#110
#124=0.8
GOTO5
N2IF[#102LT6]GOTO3
IF[#102GT12]GOTO3
#120=2[#102/2+0.5]+#110
#124=0.6
GOTO5
N3GOTO200
N5#114=#107-#119*#102-2*#103
#131=[#114-#103]/2
#130=#114+1-2*#103
G00Z#101
X#100
WHILE[#110NE#120]DO1
IF[#118EQ#0]GOTO6
#114=0
#115=2
GOTO9
N6IF[#112GT7]GOTO7
#115=#104
GOTO9
N7IF[#112NE8]GOTO8
#115=3*#104/4
GOTO9
N8IF[#112NE28]GOTO9
#115=#104/2
N9#113=#117*#115
#110=#110+#115
IF[#110LE#12O]GOTO11
#110=#120
#113=[#120-#116]*#117
N11#111=#111-#113
G00Z#101
IF[#130LT0.6]GOTO14
G92U-#110Z#106F#107
#130=#130-2*#113
#123=#123+1
N14IF[#131LT0.3]GOTO13
G00W[#131+0.5]
G92U-#110Z#106F#107
G00Z#101
G00W-[#131+0.5]
N13IF[#114LT#124]GOTO12
G92U-#110Z#106F#107
#114=#114-2*#113
#131=#131-#113
G00Z#101
N12G00W#111
G92U-#110Z#106F#107
G00Z#101
G00W-#111
G92U-#110Z#106F#107
G00Z#101
#112=#112+1
#116=#110
END1
N200G00U200
M05
M30
擴展資料：
螺紋代號：單線螺紋：Tr40×6-6h-L；Tr：螺紋種類代號（梯形螺紋）；40：公稱直徑；6：導程(對於單線螺紋而言，導程即為螺距)；6h：內螺紋公差代號；L：旋合長度代號。
左旋螺紋需在尺寸規格之後加註“LH”，右旋則不註出。例如Tr36×12（6）；Tr44×16（8）LH等。
各基本尺寸名稱，代號及計算公式如下：
牙型角：α=30°
螺距P：由螺紋標準確定，牙頂間隙acP=1.5～5ac=0.25；P=6～12ac=0.5；P=14～44ac=1
外螺紋：大徑d公稱直徑
內螺紋：大徑D4=d+2ac；中徑D2=d2；小徑D1=d-P；牙高H4=h3；牙頂寬f=0.366P；牙槽底寬w=0.366P-0.536ac；
螺紋升角ψ：tgψ=P/πd2。
百度百科-梯形螺紋