O0001;
N10G54G90G40G00X100Y1OOZ1OO"
N20M03S1000;
N30M08;
N40GOOX10Y25Z5;
N50#1=0;角度變數
N60#2=2;倒圓半徑
N70#3=5;刀具半徑(平頭銑刀)
N80#4=#2*[1-COS[#1]];
N90#5=#3-#2*[1-SIN[#1]];
N100#1=#1+1;
N110G01Z[-#4]F100;Z向指定深度
N120G10P1L12R#5;輸入半徑補償
N130GO1X5Y25G41D01;
N140M98P0002;
N150IF[#1LT90]GOTO80;條件語句(當角度小於90度時返回第80段)
N160G00Z100;
N170X100Y100;
N80M30;
O0002;子程式
N1OG01X0;
N20~~~~
N120G00Z5"
N130X10Y25G40;
N140M99;
O0001;
N10G54G90G40G00X100Y1OOZ1OO"
N20M03S1000;
N30M08;
N40GOOX10Y25Z5;
N50#1=0;角度變數
N60#2=2;倒圓半徑
N70#3=5;刀具半徑(平頭銑刀)
N80#4=#2*[1-COS[#1]];
N90#5=#3-#2*[1-SIN[#1]];
N100#1=#1+1;
N110G01Z[-#4]F100;Z向指定深度
N120G10P1L12R#5;輸入半徑補償
N130GO1X5Y25G41D01;
N140M98P0002;
N150IF[#1LT90]GOTO80;條件語句(當角度小於90度時返回第80段)
N160G00Z100;
N170X100Y100;
N80M30;
O0002;子程式
N1OG01X0;
N20~~~~
N120G00Z5"
N130X10Y25G40;
N140M99;