(増分値指令、サブプログラムコール)
(2006.01.21(土))
(2006.01.24(火) 半径4mmに同心円を追加)
(半径5mmと4mmの円を0.1mmづつ深さ2mmまで切削する。)
(中心座標はX=5,Y=5。)

(メインプログラム開始)
(ワーク面から刃先を1mm上昇)
G00 Z1

(X方向へ移動)
G00 X5 Y0

(刃先をワーク面まで降下)
G01 Z0

(サブプログラムNo.10コール。20回繰り返し。r=5mm)
M98 P10 L20

(刃先をワーク面より1mm上昇)
G00 Z1

(半径をY方向に1mm小さくする)
G01 Y1

(刃先をワーク面まで降下)
G01 Z0

(サブプログラムNo.20コール。20回繰り返し。r=4mm)
M98 P20 L20

(刃先をワーク面より1mm上昇)
G00 Z1

(ワーク座標の原点に移動)
G00 X0 Y0

(メインプログラム終了)
M30

(----------------------------------------------)
(------- サブプログラム  No.10 スタート -------)
(----------------------------------------------)
O10

(増分値移動でZを0.1mm降下)
G91 Z-0.1 F20

(絶対値移動に設定)
G90

(円弧移動)
G02 X5 Y0 I0 J5 F70

(サブプログラム No.10終了)
M99
(----------------------------------------------)
(-------- サブプログラム No.10 エンド ---------)
(----------------------------------------------)

(----------------------------------------------)
(-------- サブプログラム No.20 スタート -------)
(----------------------------------------------)
O20

(増分値移動でZを0.1mm降下)
G91 Z-0.1 F20

(絶対値移動に設定)
G90

(円弧移動)
G02 X5 Y1 I0 J4 F70

(サブプログラム No.20終了)
M99
(----------------------------------------------)
(-------- サブプログラム No.20 エンド ---------)
(----------------------------------------------)