大螺距 梯形螺纹的倒圆角 牙顶和槽低都有R 哪位大侠用 西门子数控车宏程序编制出来？

Question

西门子802D系统

Answer 1

自己编的标准梯形螺纹的程序，你可以用来粗车，本程序可以修改刀宽实现粗加工，刀尖宽度可以比牙底窄，如牙底宽度为15，我的刀尖宽度为5，我弟1次粗车#102=1，#103=8这样车完牙底就比实际尺寸窄3个，弟2次粗车#102=2，#103=5.2这样车完牙底就比实际尺寸窄0.2个。
精加工时#102=1或2都可以，#118为精加工量=（实际中径-标准中径)。在MDI界面为#118赋值 #118=(实际中径-标准中径)，接下来执行本程序，中间不能按复位按钮）

#100=(x起点)；#101=（z起点）；#102=（粗加工次数为1或者2）#107=（螺距）；#103=（刀尖宽度）；
#104=（前8刀吃刀量，直径值）；#105=（大经）； #106 =z终点
#119=.366
#117=0.13395
#110=#100-#105（U）
#111=[#107-#119*#102-#103]/2+#118 *#117(W)
IF[#102LT14]GOTO 2
IF[#102GT44]GOTO 3
#120=2[#102/2+1]+#110（总牙高）
#124=2
GOTO 5
N 2 IF[#102LT6]GOTO 3
IF[#102GT12]GOTO 3
#120=2[#102/2+0.5]+#110（总牙高）
#124=1
N3 GOTO 13
N5 #114=#107-#119*#102-2*#103（中间）；
G00Z#101
X#100
WHILE[#110NE#120]DO1
IF[#118EQ#0]GOTO 6
#114=0
#115=2
GOTO 9
N 6 IF[#112GT7]GOTO 7
#115=#104
GOTO 9
N 7 IF[#112NE8]GOTO 8
#115=3*#104/4
GOTO 9
N 8 IF[#112NE28]GOTO 9
#115=#104/2
N 9 IF[#102NE2]GOTO 1
#114=0
N 1 #113=#117*#115
#110=#110+#115
IF[#110LE#12O]GOTO 11
#110=#120
#113=[#120-#116]*#117
N 11 #111=#111-#113
G00Z#101
IF[#114LT#124]GOTO 12
G92U-#110W[#106-#101]F#107
#114=#114-2*#113
N 12 G00W-#111
G92U-#110W[#106-#101]F#107
G00Z#101
G00W#111
G92U-#110W[#106-#101]F#107
G00Z#101
#112=#112+1
#116=#110
END1
G00U200
N 13 M05
M30

Answer 2

西门子什么系统。