数控车床圆弧螺纹宏程序

数控车床圆弧螺纹宏程序，参考案例如下

O0001
M12
M3 S800 T0101
G0 X52 Z2
G94 X0 Z0 F1000
G71 U2 R1
G71 P1 Q2 U1
N1 G0 X37
G1 Z0
X45 W-3
Z-74
X48
X50 W-1
N2 Z-102
G70 P1 Q2 S1000 F1000
G0 X100 Z50
T0202
G0 X52 Z-63
G94 X34 W0 F500
Z-67
Z-71
Z-74
G0 W4.5
G1 X45
U-9 W-4.5
G0 X100
Z50

M3 S300 T0303
G0 X50 Z12
G50 U-8
M98 P20002

G0 X100 Z100
M30

O0002
G50 U4
G0 X50 Z12
#1=90
WHILE #1LE160.53 DO1
#3=24SIN(#1)+41
#4=4*COS(#1)+12
G1 X#3 Z#4 F5000
G32 X#3 Z-68 F12
G0 X50
Z12
#1=#1+10
END1

#1=19.47
WHILE #1LE160.53 DO2
#3=45-22SIN(#1)
#4=2*COS(#1)-5.657+12
G1 X#3 Z#4 F5000
G32 X#3 Z-68 F12
G0 X50
Z12
#1=#1+10
END2

#1=19.47
WHILE #1LE90 DO3
#3=24SIN(#1)+41
#4=4*COS(#1)-11.314+12
G1 X#3 Z#4 F5000
G32 X#3 Z-68 F12
G0 X50
Z12
#1=#1+10
END3
M99