数控车削加工如图2-1所示外圆锥面，设毛坯直径ϕ42，试编制宏程序加工。
图2-1 外圆锥面
建立如图2-2所示外圆锥面车削加工几何参数模型，毛坯直径A，长度L，圆锥大径D，圆锥小径d。
图2-2 外圆锥面车削加工几何参数模型
首先给相关参数赋值：
#1=42 |
（毛坯直径A赋值） |
#2=40 |
（圆锥大径D赋值） |
#3=30 |
（圆锥小径D赋值） |
#4=50 |
（圆锥长度L赋值） |
#5=0 |
（圆锥右端面Z坐标为0） |
#6=[#2-#3]/#4 |
（圆锥锥度计算） |
#7=0.2 |
（进给速度F赋值） |
精加工路线如图2-3所示A→B→C→D→A，编制精加工部分程序：
图2-3 精加工路线
G00 X[#3-2*#6] Z[#5+2] |
（进刀到B点） |
G01 X#2 Z-[#5+#4] F#7 |
（切削到C点） |
G00 U10 |
（退刀到D点） |
Z[#5+2] |
（返回A点） |
为什么B点的X值为“#3-2*#6”？在图2-4中，将圆锥面延伸2mm到B点，得到左段长为L的圆锥与右端长为2的圆锥锥度相等，所以有：
图2-4 圆锥参数示意图
解得B点的X坐标值：XB=d-2C=d-2 ，所以B点的X值用宏程序表示为“#3-2*#6”，其中#6为圆锥锥度值。
将变量赋值和精加工两部分程序“组装”起来就可以用宏程序实现精加工了，结果如图2-5所示。
图2-5 精加工仿真结果
接下来可以通过平移如图2-3所示A→B→C→D→A梯形路线，分层切削实现该圆锥面的粗精加工，分析几何参数模型可得总加工余量为毛坯直径A-圆锥小径d。以加工余量为变量，采用WHILE循环语句编制加工程序如下，程序中加粗部分可看作宏程序三个基本部分中的程序运算部分：
#1=42 |
（毛坯直径A赋值） |
#2=40 |
（圆锥大径D赋值） |
#3=30 |
（圆锥小径D赋值） |
|
#4=50 |
（圆锥长度L赋值） |
#5=0 |
（圆锥右端面Z坐标为0） |
#6=[#2-#3]/#4 |
（圆锥锥度计算） |
#7=0.2 |
（进给速度F赋值） |
#10=#1-#3 |
（加工余量值计算） |
WHILE[#10GT0]DO1 |
（循环条件判断） |
#10=#10-1 |
（加工余量递减） |
IF[[#10+1]LT1]THEN #10=0 |
（判断加工余量是否少于1，若少于1直接精加工） |
G00 X[#3-2*#6+#10] Z[#5+2] |
（进刀到B点） |
G01 X[#2+#10] Z-[#5+#4] F#7 |
（切削到C点） |
G00 U10 |
（退刀到D点） |
Z[#5+2] |
（返回A点） |
END1 |
（循环体1结束） |
图2-6 加工结果
试试也用宏程序的三个基本部分“组装”属于自己的程序吧！