西门子802D SL数控镗铣床的B轴原点自动换算的宏程序，求助

piyao

公司买了台西门子802D SL数控镗铣床，没有刀库，B轴有自动旋转，W轴没有自动补偿功能，自己编了个宏程序自动原点换算，不过感觉还是不是很好用，因为宏程序计算好后还是自己要输入各个面的坐标，容易出错。
请问谁能帮我编个简单点的，宏程序读好，其他几个原点就到机床里面去了。