数控高手请进，西门子802D，立式车床，求循环程序详细举例
外圆切圆弧槽，用圆弧刀干，没用过循环程序，求详细解答，不胜感激，加QQ173556456，解决送200财富,有朋友用子程序L001 PXXX举例，特别说明，用R3的刀具车，要用G41指令，子程序增量编程是不允许的，求高手解答，用仿真软件试用过，马上采纳，并拜您为师
M03 Sxx ；主轴运行
G90 G00 G54 T1；选择进给方式、零点偏移和刀具
X0 Z0；刀具到对刀点
G91 G1 F=R3； R参数中设定R3=1000
Z-2；准备加工上平面
X-xx ；加工上平面，xx表示上平面加工量
G90 G00；准备快速退刀
Z0；快速退刀
X0；快速退刀
G91 G01 F=R3； R参数中设定R3=1000
X-4；准备轴向加工
Z-xx；轴向加工,xx表示轴向加工量
G90 G00
X0；X轴回到偏移点：G54点
Z0；Z轴回到偏移点：G54点
G91 F=R3； R参数中设定R3=1000
G01 G41 Z-2；启用刀具补偿
G40；关闭刀具补偿
L01：子程序
R0=R0+1；设定宏指令，准备计算槽数
G91 G01 F=R3 Z=-R1；R参数中设定R1=45，R参数中设定R3=1000
G91 G01 F=R4； R参数中设定R4=0.1
X=-(R2*2+4)；R2参数中设定R2=槽深，
G04 F2；暂停2秒钟
G90 G00 X0；
IF R0>=5 GOTOF L01；判断如果第5个槽未加工完，掉转到L01继续加工，否则接续下一指令
G90 G00 ；
X0
M05；主轴停止，换刀，准备前4槽更深度圆弧加工
M30
注意：程序中其他进给量也可以采用宏指令。程序中语法不一定完全正确，应运用空刀调试和试运行，无误再进行加工。追问
这有细节图，你发的宏程序看不懂，以前没用过，能给我编个完整的吗？我直接上仿真软件测试下，谢谢了，本人没接触过宏程序，不知道怎么修改好啊
追答该槽很大，得加工很多刀才能完成，而且还需要精车。尺寸按此修改，图形才能吻合，修改的都是自由公差，也没有什么问题，另外最大外径没有给出。
追问最大外径为574MM，编程子程序没问题，已经用CAD打好点位了，就是不知道循环怎么走，你给发的宏程序看不懂啊，求详细程序，谢谢了，有情况您可以发我QQ或打我电话，急等，还有R3的刀干这个活，您要有什么好的刀具建议也可以提出来
追答刀具问题我没有好点子。如果你能做出同槽形状相同的刀具，一个槽可一次进刀，慢慢加工到位。如果不能做出同槽形状相同的刀具，就只好一刀一刀向里面车削。假如该件为铸铁，进刀量为2mm/主轴一圈，刀宽度10mm，每槽需要4次进刀，其中三刀是切到喇叭口以上部分，第四刀切到最深进刀量72.8 mm，K开好槽后还要修型一次，修型可用R刀，R=3，程序中加上刀补指令。有些指令次序不当可能出现报警，调整一下即可消除。程序多种多样，可按自己熟悉的方法写。程序修改如下，仅作参考：
M03 Sxx
G90 G00 G54 T1
X0 Z0
G91 G1 F1000
Z-2
X-xx
G90 G00
Z0
X0
G91 G01 F1000
X-4
Z-576
G90 G00
X0
Z0
Z-2
L01：子程序，加工喇叭口以上的部分
R1=R1+1；R参数中设定R1=0（将R1中数据加1，再存于R1中，表示加工第一刀）
G91 G01 F1000
Z=-R5；R参数表中设定R5=21
G91 G01 F2
X-32；含轴向光刀2mm
G04 F10
G90 G00
X0
Z=R5
R5=R5+10
IF R1<=3 GOTOF L01；判断，如果第3刀未加工完，掉转到L0.1继续加工，否则接续下一指令
G90 G00
X0
Z=R5-10
R1=R1*0
R5=R5+25
R2=R2+1
IF R2<=5 GOTOF L01；判断，如果第5槽未加工完，掉转到L0.1继续加工，否则接续下一指令
G90 G00
X0
Z=R5-25
L02：子程序，加工每个槽中喇叭口的地方
Z=-R6；R参数表中设定R6=31
R3=R3+1
G91 G01 F1000
X-32
G91 G01 F2
X-32
G04 F10
G90 G00 X0
Z=R6
R6=R6+45
IF R3<=5 GOTOF L02；判断，如果第5槽未加工完，掉转到L0.2继续加工，否则接续下一指令
G90 G00
X0
Z0
M05
M30