程序

說明

％0073

Ｇ73宏程序實現源代碼調用本程序之前必須轉動主軸Ｍ03或Ｍ04

IF[AR[#25]EQ0]OR[AR[#10]EQ0]

Ｍ99

如果沒有定義孔底Z值、每次進給深度Q值或退刀量K則返回

ENDIF

N10 G91

用增量方式編寫宏程序

IF AR[#23] EQ 90

如果X值是絕對方式G90

#23=#23-#30

將X轉換為增量，#30為調用本程序時X的絕對坐標

ENDIF

IF AR[#24] EQ 90

如果Y值是絕對方式G90

#24=#24-#31

將Y轉換為增量，#31為調用本程序時Y的絕對坐標

ENDIF

IF AR[#17] EQ 90

如果參考點平面R值是絕對方式G90

#17=#17-#32

將R轉換為增量，#32為調用本程序時Z的絕對坐標

ELSE

IF AR[#26] NE 0

初始Z平面模態值存在

#17=#17+#26-#32

則將R值轉換為增量方式

ENDIF

ENDIF

IF AR[#25] EQ 90

如果孔底Z值是絕對方式G90

#25=#25-#32-#17

將Z值轉換為增量

ENDIF

IF [#25 GE 0] OR [#16 GE 0] OR [#10 LE 0] OR [#10 GE [-#16]]

如果增量方式的Z、Q≥0或退刀量K≤0或K>Q的絕對值

M99

則返回

ENDIF

N20 X[#23] Y[#24]

移到XY孔加工位

N30 X[#17]

移到參考點R

#40=-#25

循環變量＃40，其初始值為參考點到孔底的位移量

＃41＝0

循環變量＃41,為退刀量

WHILE #40 GT [-#16]

如果還可以進刀一次

N50 G01 Z[#16-#41]

進刀

N55 G04 P0.1

暫停

N60 G00 Z[#10]

退刀

N65 G04 P0.1

暫停

#41=#10

退刀量

#40=#40＋＃16

進刀量為負數，＃40將減少

ENDW

N70 G01 Z[-#40-#41]

最后一刀到孔底

N80 G04 P[#15]

在孔底暫停

IF #1165 EQ 99

如果第15組G代碼模態值為G99

N90 G00 Z[-#25]

即返回參考點R平面

ELSE

否則

IF AR[#26] EQ 0

N90 G00 Z[-#25-#17]

返回初始平面，注意＃25及＃17均為負數

ELSE

N90 G90 G00 Z[#26]

否則返回初始平面

ENDIF

ENDIF

M99