(同心円切削)
(2006.01.28(土))

(ワーク面より10mm上に移動)
G00 Z10

(座標25,0へ移動)
G00 X25

(M03 工具回転開始CW(Clock Wise))

(ワーク面まで工具を降下)
G01 Z0

(円形の面はねサブプログラムコール)
M98 P10 L5

(ワーク面より10mm上に移動)
G00 Z10

(M05 工具回転停止)

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

(------------------------------)
(---- N0.10 サブプログラム ----)
(------------------------------)
O10
(外周の始点に戻す)
G01 X25 Y0

(増分値で0.2mm掘り込む)
G91 G01 Z-0.2

(絶対値指定)
G90

(外周を切削。半径=25mm。中心=25,25)
G02 X25 Y0 I0 J25

(円の増分値切削サブプログラムコール)
M98 P20 L4

(サブプログラム終了)
M99
(------------------------------)
(------------------------------)


(------------------------------)
(---- N0.20 サブプログラム ----)
(------------------------------)
(円の増分値切削)
(中心に向かって5mmづつ半径を減少)
O20

(増分値で半径を減少)
G91 G01 Y5

(増分値で円弧を切削)
(Y5で変更した分をJ-5で補正し中心を固定)
G02 X0 Y0 I0 J-5 F50

(増分値指定を解除)
G90

(サブプログラム終了)
M99
(------------------------------)
(------------------------------)