使用宏程序编写圆球可以分为两种方法：
凸半圆球
球刀加工半圆球：
```
O0001；
X0Y0；
S1500M03；
G01Z0F100；
1=50； （半圆球半径）
2=5； （球刀半径）
3=0； （角度初始化）
WHILE [3LE90] DO1； （角度小于等于90度重复执行DO1—END1）
4=[1+2]*SIN[3]； （X轴变量）
5=[1+2]-[1+2]*COS[3]； （Z轴变量）
G01X4F1000； Z-5；
G02X4I-4； 3=3+1； （角度递增为1度）
END1；
M05；
M30；
```
四棱台：
```
O0001；
X0Y0；
S1500M03；
G01Z0F100；
1=40； （四棱台长度）
2=30； （四棱台宽度）
3=30； （侧面垂直夹角）
4=[[2/2]/[1/2]]；
5=0； （台高初始化）
6=10； （铣刀半径）
WHILE [5LE20] DO1； （台高小于等于20重复执行DO1—END1）
7=1/2+5*TAN[3]； （X轴变量）
8=2/2+[7-1/2]*[4]； （Y轴变量）
G01X[7+6]Y0F1000； Z-5；
Y[8+6]；
X[-7-6]；
Y[-8-6]；
X[7+6]；
Y0；
5=5+1； （台高递增为1）
END1；
M05；
M30；
```
椭圆：
```
O0001；
X0Y0；
S1500M03；
1=30； （长半轴）
2=20； （短半轴）
3=0； （离心角初始化）
WHILE [3LE360] DO1； （角度小于等于360度重复执行DO1—END1）
```
凹圆球
球刀加工凹圆球：
```
O0001；
X0Y0；
S1500M03；
G01Z0F100；
1=50； （半圆球半径）
2=5； （球刀半径）
3=0； （角度初始化）
WHILE [3LE90] DO1； （角度小于等于90度重复执行DO1—END1）
4=[1+2]*SIN[3]； （X轴变量）
5=[1+2]-[1+2]*COS[3]； （Z轴变量）
G01X4F1000； Z-5；
G02 X4 I-4； 3=3+1； （角度递增为1度）
G03 X4 I-4； 3=3+1； （角度递增为1度）
END1；
M05；
M30；
```
这些宏程序可以根据具体需求进行调整，例如改变半径、角度等参数。建议在实际操作前，先进行充分的测试和验证，以确保加工精度和效率。