宏程序循环加工

9390

(M98 P9990) M98副程式呼叫

M96P9998 M96刀具补正圆弧转角模式

(C #3) 修整量

(V #22) Y軸斜面長度

(W #23) Z軸長度

(E #8) Y軸平面長度

(F #9) Z軸回刀距離

(A #1) Y 軸平面進給速度

(B #2) Y 軸斜面進給速度

(M #13) 最大修砂次數

(D #7) 修砂後Z軸退刀距離

(S #19) 砂輪轉速

#17=#727 修砂次數

#3=#728

#22=#729

#23=#730

#8=#731

#9=#732

#1=#733

#2=#734

#13=#735

#7=#736

#19=#737

(#550)

IF[#501LE0]GOTO2 假如外徑修砂記數小於或等於0直接到 N2

IF[#17LE0]GOTO902(Qdataerrordresstimes) 假如修砂次數記數小於或等於0直接到 902

IF[#3GT0.1]GOTO903(Cperdresscuttoolarge) 假如修整量大於0.1直接到 903

IF[#3LE0]GOTO904(Ctoosmall) 假如修砂量小於或等於0直接到 904

IF[#23LT0]GOTO905(Wxiushakuandu) 假如設定 Z軸長度小於0直接到 905

IF[ABS[#23]GT360]GOTO905(dataerror20-360)假如Z軸長度超過360直接到 905

IF[#501GE#13]GOTO51(WHEELTOOSMALL)假如端面修砂記數大於最大修砂次數直接到51 IF[#19LE0]GOTO906(STOOSMALL) 假如砂輪轉數記數小於或等於0直接到 906

IF[[#504-#507]GE#505]GOTO907 假如砂輪原始直徑–修整後實際直徑大於或等於0直接到 907 IF[[#502-#506]GE#503]GOTO908假如砂輪原始長度–修整後實際長度大於或等於0直接到 908 #545=#17(dresstimes) 端面修砂次數 = 修砂次數

/M13S2=#19 砂輪轉數

/M08

G56 座標位置

G0Z10

/M26

IF[#603LE1]GOTO10假如呼叫9390(內徑研磨＋外徑修砂)小於或等於1直接到 10 IF[#603LE2]GOTO1假如呼叫9390(內徑研磨＋外徑修砂)小於或等於2直接到 1 N1

Y0

Z0

N10

Y0

Z0

G01W[-#3]F#1 (－修整量)

G01V[#8*2]W[#23]F#1 V[Y軸平面長度×2]W [ Z軸長度]

G01V[#22*2]F#2 V [Y軸斜面長度×2]

#5222=[#5222-#3]

(#5242=[#5242-#3])

#5262=[#5262-#3]

#5282=[#5282-#3]

(#5302=[#5302-#3])

#506=#506-#3 砂輪修整後實際長度 -修整量

#545=#545-1 端面修砂次數 - 1

#501=#501+1 端面修砂記數＋1

G0Z#9 Z軸回刀距離

Y0

Z0

IF[#545LE1]GOTO11 假如端面修砂次數小於或等於1直接到 11

IF[#545LE0]GOTO20 假如端面修砂次數小於或等於0直接到 20

G01W[-#3]F#1 W軸[-修整量]

G01V[#8*2]W[#23]F#1 V軸[Y軸平面長度×2]W軸[Z軸長度]

G01V[#22*2]F#2 V軸[Y軸斜面長度×2]

#5222=[#5222-#3]

(#5242=[#5242-#3])

#5262=[#5262-#3]

#5282=[#5282-#3]

(#5302=[#5302-#3])

#506=#506-#3砂輪修整後實際長度－修整量

#545=#545-1端面修砂次數－1

#501=#501+1 端面修砂記數＋1

G0Z#9 Z軸回刀距離

Y0

Z0

IF[#545LE1]GOTO11

IF[#545LE0]GOTO20

GOTO10

N11G01W[-#3]F#1

G01V[#8*2]W[#23]F#1

G01V[#22*2]F#2

#5222=[#5222-#3]

(#5242=[#5242-#3])

#5262=[#5262-#3]

#5282=[#5282-#3]

(#5302=[#5302-#3])

#506=#506-#3

#545=#545-1

#501=#501+1

G0Z#9

IF[#545LE0]GOTO20 假如端面修砂次數小於或等於0直接到 20 N20

G0W#7 修砂後Z軸退刀距離

(M15)

M9

M27

#550=0(WORKCOUNTER) 工件記數

M99 M99副程式结束

N51#3000=00(WHEEL-TOO-SMALL) #3000報警說明

N902#3000=02(Q-DATA-ERROR)

N903#3000=03(C-TOO-LARGE)

N904#3000=03(C-TOO-SMALL)

N905#3000=04(W-DATA-ERROR)

N906#3000=05(S-DATA-ERROR)