当然你可以使用cycle70，来铣螺纹，查看西门子标准循环手册，有使用的方法；

给你分享一个老外的程序  全部使用参数化。

;$PATH=/_N_SPF_DIR

;(UP-Gewindefraesen )

;(Gegen- u. Gleichlauf)

;(erstellt: 12.08.05 Meinecke)

;(le. Aend.: 08.04.13 Meinecke)

;

;(R02 = REFERENZ EBENE , R03 = ENDTIEFE , R09 = STEIGUNG)

;(R10 = RUECKZUG EBENE , R15=VORSCHUB- FR.AUSSENBAHN)

;(R16 = GEWINDEDURCHMESSER , R18=X-MASS AUS TABB.)

;

;===========================================================

; (PARAMETER ZUM FREIFAHREN)

N10 STOPRE          ; Vorlesestop                      停止预读

N20 R85=$AA_IM[X]   ; Auslesen der akt. X-Pos.         X轴的实际位置赋值给R85

N30 R86=$AA_IM[Y]   ; Auslesen der akt. Y-Pos.         Y轴的实际位置赋值给R86

N40 STOPRE                                             停止预读

N50 R87=1   ; PARAMETER ZUM FREIFAHREN SETZEN          用于激活退刀程序UP_FREI

;===========================================================

;

N60 M77 M92           ;TI - ZEITUEBERWACHUNG           M77刀检轴监控开，关闭刀检极限1

N70 M59                                                IC flow monitor: suppress monitoring？？？？

N80 R01=0 R05=0 R06=0 R07=0 R08=0 R25=R03              R参数赋值

N90 R17=0.5 R12=0.15 R14=2.5 R11=0.3 R20=-1            R参数赋值

N100 R16=R16-0.04                                      R16逐步递减，每次0.04,R16原来12mm

N110 R19=R09*1.15*R20 R21=R16/2+R18 R03=R03-R19        R19等于1*1.15*(-1) R21等于R16/2+R8(0.07) R3等于R3减去R19(原来21)

N120 R04=$TC_DP6[$P_TOOLNO,1]                          R4赋值当前刀具半径实际值

N130 R01=(R01+R21-R04)*R11 R05=R05+R04+R21-R01

N140 R06=(R06+R05)*R17 R07=(R07+R09)*R12

N150 R08=(R08+R15)*R14

N160 G0 G90 Z=R02

N170 G9 G0 G90 Z=R03

N180 

N190 G1 G91 Y=-R01 F=R15

N200 G42 G64 Y=R04

N210 M75

N220 G02 X0 Y=-R05 I0 J=-R06 Z=-R07

N230 G02 X0 Y0 I0 J=R21 Z=-R09

N240 G02 X0 Y=R05 I0 J=R06 Z=-R07 F=R08

N250 G1 G40 Y=-R04

N260 G1 Y=R01

N270 M76

N280 STOPRE

N290 R16=R16+0.04 R01=0 R05=0 R06=0

N300 R21=R16/2+R18

N310 R01=(R01+R21-R04)*R11 R05=R05+R04+R21-R01

N320 R06=(R06+R05)*R17 R07=(R07+R09)*R12

N330 

N340 G1 Y=-R01 F=R15

N350 G9 G41 G64 Y=R04

N360 G03 X0 Y=-R05 I0 J=-R06 Z=R07

N370 G03 X0 Y0 I0 J=R21 Z=R09

N380 G03 X0 Y=R05 I0 J=R06 Z=R07 F=R08

N390 ;M76

N400 G1 G40 Y=-R04

N410 G1 Y=R01

N420 G0 G90 G60 Z=R02

N430 G0 Z=R10

N440 R03=R25

N450 

;===========================================================

N460 STOPRE

N470 R85=-200 R86=0 ; G53 POSITION IM PARAMETER LOESCHEN

;===========================================================

N480 STOPRE

N490 R87=0   ; PARAMETER ZUM FREIFAHREN RUECKSETZEN

;===========================================================

N500 M17