L012（一齒磨削子程序，左右旋刀具）
N001 MSG（“單個磨齒程序”）
N002 R156=（360×R104×TanR099）/（3.14×R119×R103）；A螺旋角補償角
N010 G91 G01 Z（-R100）F300;Z軸運行到磨削起始位置
N011 IF R159=0 GOTOB N0020；跳轉(zhuǎn)右旋磨齒
N012 IF R159=1 GOTOB N0052；跳轉(zhuǎn)左旋磨齒
N020 Z（-R101） A-（R102） F200;右旋刀具磨齒
N030 Z（R101+R100+R158）F500；磨完1齒，抬起Z軸，R158補償下一齒高低
N040 A-（360/R103-R102+R156）F500；A軸負(fù)向分度運行到下一齒起始位置
N050 X-（R104/R103）F300；X軸負(fù)向進(jìn)刀距離，錯開磨削下一個齒
N051 GOTOB N060；跳過左旋磨齒程序，直接結(jié)束
N052 Z（-R101） A（R102） F200;左旋刀具磨齒
N053 Z（R101+R100+R158）F500；磨完1齒，抬起Z軸，R158補償下一齒高低
N054 A（360/R103-R102+R156）F500；A軸正向分度運行到下一齒起始位置
N055 X-（R104/R103）F300；X軸負(fù)向進(jìn)刀距離，錯開磨削下一個齒
N060 M02；一齒磨削完成，下一齒磨削位置對準(zhǔn)
M9 i& u7 H4 r+ z
MAIN01（磨削主程序，左右旋刀具）
N010 G90 G94 G01 X（R106）Y（R107）Z（R108）F600；快進(jìn)到換料位置
N011 IF R114=0 GOTOF N014；不需要重新測量，直接磨削
N012 IF R114=1 GOTOF N013；需要重新測量，才能磨削，重新賦值
N013 L011；調(diào)用測量程序，找到刀齒X,A位置，擺正對齊
N014 G90 G00 X（R150+R152）Y（R112）；根據(jù)上次賦值棒料X，Y對準(zhǔn)
N015 A（R151+R153）；根據(jù)上次探測賦值，擺正A軸對準(zhǔn)
N021 M7 M13；磨頭啟動，冷卻啟動
N022 R109=1；磨齒開始計數(shù)
N030 L012；調(diào)用一齒磨削子程序
N040 R109=R109+1；磨齒計數(shù)加一，
N041 MSG（“已磨削齒數(shù)R109”）
N050 IF R109<R105/（R104/R103） GOTOB N030；齒數(shù)不到，繼續(xù)
N051 M15 M9；磨頭停止，冷卻停止
N060 G90 G01 G00 Z（R108）F600；磨削完成，先退Z軸
N070 Y（R107）F600；磨削完成，退Y軸
N080 X（R106）F600；磨削完成，退X軸
N090 M2；程序結(jié)束
L012（測量子程序，左旋刀具）
N0010 MSG（“刀齒長度及A軸角度測量”）
N0020 G90 G94 G00 Y（R110）Z（R111）；測頭中心對準(zhǔn)棒料中心，
N0030 MWAS=1 G91 G01 X-（R118） F500；測頭在X方向搜索距離內(nèi)探測棒料
N0040 IF $AC_MEA[0]==0 GOTOF MEASERR；測量失敗，減少探測搜索距離
N0050 R150=$AA_MW[X]；記錄碰撞當(dāng)前X絕對坐標(biāo)值，賦值到R150中
N0051 IF R155=1 GOTOF N0170；測量X，對準(zhǔn)X和Y坐標(biāo)位置
N0060 G91 G01 X2 F500；測頭脫離棒料
N0070 Z（R119/2-0.5）；測頭抬高溝槽內(nèi)部0.5mm處，準(zhǔn)備測齒位置
N0080 X-（2+R154）；測頭進(jìn)入溝槽內(nèi)部1mm處，準(zhǔn)備測齒位置
N0090 MWAS=1 G91 G01 A-（360/R103）F500；測頭在A方向搜索距離內(nèi)找齒
N0100 IF $AC_MEA[0]==0 GOTOF MEASERR；測量失敗，檢查測頭是否進(jìn)入溝槽
N0110 R151=$AA_MW[A]；記錄碰撞當(dāng)前A絕對坐標(biāo)值，賦值到R151中
N0120 G91 GO1 A5 F500；測頭脫離溝槽A向5°
N0130 Z5；測頭脫離溝槽Z向抬高5mm
N0140 A（R153-5）；刀齒回測頭接觸角度，偏移R153到磨削所需角度，A對準(zhǔn)
N0150 G90 G00 Y（R112）；刀具中心線運行到砂輪正下方，Y對準(zhǔn)
N0160 G91 G01 X（2+R154+R152）；棒料前端運行到砂輪下方，X對準(zhǔn)
N0170 G90 G00 X（R150+R152）Y（R112）；棒料運行到砂輪下方，X，Y對準(zhǔn)
N0171 G90 G00 Z（R108）；Z軸起始位置，方便上下料，測量及對刀結(jié)束
N0180 M02測量程序結(jié)束
N0190 MEASERR:MSG("測量失敗！探針未在有效距離內(nèi)觸發(fā)！")