编程外径为r1的圆角，需要使用数控编程语言，如G代码。以下是一个示例程序，用于在广州数控928TDL上加工一个外径为Φ30、端面和外圆已经加工到位的工件，在端面和外径转角处加工一个R1的圆角。编程原点设定在工件右端面旋转中心。
```sql
M03 S1000 T0101 G0 X28.0 Z1.0（快速点定位）
G1 Z0 F0.1 （移动到圆弧起点）
G3 X30.0 Z-1.0 R1.0 （车圆弧）
G0 X100.0 Z100.0 （移动到安全位置）
M30
```
这个程序的主要步骤如下：
M03 S1000：
主轴启动，转速设定为1000转/分钟。
T0101：
选择刀具，这里选择T01号刀具。
G0 X28.0 Z1.0：
快速移动到工件右端面的旋转中心，X坐标设为28.0，Z坐标设为1.0。
G1 Z0：
将Z坐标移动到0，即移动到圆弧的起点。
G3 X30.0 Z-1.0 R1.0：
车削圆弧，外径为Φ30，圆角半径为1.0。
G0 X100.0 Z100.0：
将刀具移动到安全位置，X坐标设为100.0，Z坐标设为100.0。
M30：
程序结束。
请根据具体的机床型号和编程环境调整上述程序中的坐标值和参数。