数控车床加工三角皮带轮怎么编程（广数980TDB）

看我的宏程序
O9513(V形槽形状车削循环)(2016-12-3)
(广数与发那科#5003替换为#5002 ,倒角D替换为R)
(粗车G65P9513 XZER U IJK F)(有E则为梯形槽)
(如果没有U则仅计算并写入数值不移动)
(X=底径)(Z=顶宽)(E=底宽)(R=底R)
(U=吃深直径)(I=起始直径)(J=X向余量直径值)
(K=不输就从右向左一刀车)(K=2左右车)
(精车G65P9513 UWV KF)
(有V则为精车)(UW=精车退刀)(V=精车倒角R)
(K=不输就从右向左一刀车)(K=2左右车)(K=3从左向右一刀车)
M#13S#19F#9
IF[#4NE#0]THEN#2=5
G4X#2(有I暂停5秒)
#14=#5001
#16=#5003
G52Z#16(建立坐标系)
IF[#22NE#0]GOTO12(有V则跳至精车程序)
#124=#24
#126=#26
#108=#8
#118=#18
#13=[#14-#24]/2-#18(槽总深半径减底R)
#12=#26/2(槽半宽)
#112=#12
#10=90-[ATAN[#13]/[#12]+ASIN[#18/[SQRT[#13*#13+#12*#12]]]](V槽半角)
#11=ATAN[[#26-#8]/2]/[[#14-#24]/2](梯槽半角)
IF[#8NE#0]THEN#10=#11(有E则梯槽半角)
#7=#[#4120-FIX[#4120/100]*100+2900](刀半径)
#17=#7/TAN[[#10+90]/2](刀径补偿Z向)
IF[#8NE#0]THEN#8=#8-#17-#17-#5/2(梯槽槽底粗车宽)
#26=#26-#17-#5/2(槽顶粗车宽)
IF[#18NE#0]THEN#18=#18-#7-#5/2(底R粗车半径)
#24=#24+#5(槽底粗车直径)
#1=#18(记录#18为梯槽槽底自动倒圆)
#2=[#18-SIN[#10]*#18]*2(底R高直径)
#127=#124+[#118-SIN[#10]*#118]*2(V槽底R交点X精车)
#128=COS[#10]*#118(V槽底R交点Z精车)
#107=#7*2(刀直径)
IF[#21EQ#0]GOTO99(无U则跳至

两种方法：1.成型刀 2.宏程序

有梯形切刀吗？