(------------------------------)
(------------------------------)
(円形の平面切削メインプログラム)
(------------------------------)
(------------------------------)
(同心円切削                    )
(2006.01.29(日)                )
(工具径=2mm                    )
(円の半径=6mm。工具半径を含む  )
(円の深さ=2mm                  )
(------------------------------)
(刃先をワーク面より1mm上に移動)
G00 Z1

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

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

(円形の平面切削サブプログラム呼出)
M98 P10 L10

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

(工具回転停止)
M05
 
(メインプログラム終了)
M30

(------------------------------)
(------------------------------)
(外周の切込切削サブプログラム  )
(0.2mmづつ掘り下げる           )
(------------------------------)
(------------------------------)
O10

(外周の始点に移動)
G01 X0 Y0 F70

(0.2mm掘り下げる)
G91 G01 Z-0.2

(増分値指定を解除)
G90

(外周を切削)
G02 X0 Y0 I0 J5

(円の増分値切削サブプログラム呼出)
M98 P20 L3

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

(------------------------------)
(------------------------------)
(円の増分値切削サブプログラム  )
(1.5mmづつ半径を減少           )
(------------------------------)
(------------------------------)
O20

(増分値でY方向に1.5mm切削)
G91 G01 Y1.5

(増分値で円を切削)
G02 X0 Y0 I0 J-1.5 F70

(増分値指定を解除)
G90

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