法兰克手动编程M22*1.0

上次群里有网友在问像这种不规则的细牙怎么编程，我们厂里目前是手动编的，现以M22*1.0为例，将程式分享出来！
g80g40g49
g90g54g0x0y0
g43h01z100.
m3s3000
z10.
＃1=10.5
＃2=11.
＃3=1.
＃4=5.
＃5=-47.
WHILE[＃1LE＃2]DO2
＃6=1.
g0x[＃1-＃4]y0
g1z＃6F2000
WHILE[＃6GE＃5]DO1
g02z＃6I[-[＃1-＃4]]F1500
＃6=＃6-＃3
END1
g1x0y0f2000
z1.
＃1=＃1+0.1
END2
g0x0y0
z100.
g91g28z0y0
m05
m30

支持楼主分享好的编程方法