半圆滚轮的编程可以通过使用AutoLISP来实现。AutoLISP是AutoCAD的脚本语言，可以用来自动化绘图任务。以下是一个简单的AutoLISP代码示例，用于绘制一个半圆滚轮：
```lisp
（defun c:Test （）
（setq cen1 （getpoint "中心点："）） ； 获取中心点
（setq rr1 （getdist cen1 "大圆半径："）） ； 获取大圆半径
（command "circle" cen1 rr1） ； 绘制大圆
（setq en1 （entlast）） ； 获取大圆的最后一条线段
（command "circle" cen1 "d" rr1） ； 绘制大圆的直径
（setq cen2 （polar cen1 0 rr1）） ； 计算半圆的中心点
（setq rr2 （getdist cen2 "小圆半径："）） ； 获取小圆半径
（setq nn （getint "重复次数："）） ； 获取重复次数
（if （null nn） （setq nn 8）） ； 如果没有输入重复次数，则默认为8次
（setq ang 0） ； 初始角度
（setq ss （ssadd）） ； 初始化线段列表
（setq angdd （/ （* pi 2） nn）） ； 计算每次旋转的角度
（repeat nn
（command "circle" cen2 rr2） ； 绘制小圆
（setq ss （ssadd （entlast） ss）） ； 将小圆添加到线段列表
（setq ang （+ ang angdd）） ； 更新角度
（setq cen2 （polar cen1 ang rr1）） ； 计算下一个半圆的中心点
）
（setq ang 0） ； 重置角度
（repeat nn
（command "trim" ss "" （polar cen1 ang rr1） ""） ； 修剪线段
（setq ang （+ ang angdd）） ； 更新角度
（setq cen2 （polar cen1 ang rr1）） ； 计算下一个半圆的中心点
）
（setq ang1 （* -1 （/ angdd 2.0）） ； 计算角度的一半
（setq ang2 （+ ang1 angdd）） ； 计算总角度
（command "circle" cen1 （abs rr1） （atan （ang1 / （2 * pi））） ； 绘制半圆弧
（command "circle" cen1 （abs rr1） （atan （ang2 / （2 * pi）））） ； 绘制半圆弧
）
```
使用步骤：
1. 打开AutoCAD。
2. 按下 `Alt + 9` 打开AutoLISP编辑器。
3. 将上述代码复制并粘贴到AutoLISP编辑器中。
4. 按下 `Load` 按钮加载脚本。
5. 运行脚本，然后按照提示输入中心点、大圆半径、小圆半径和重复次数。
代码解释：
`getpoint` 和 `getdist` 函数用于获取用户输入的坐标和距离。
`command` 函数用于执行AutoCAD命令。
`polar` 函数用于计算极坐标中的点。
`ssadd` 和 `entlast` 函数用于操作线段列表。
`atan` 函数用于计算角度。
这个脚本将绘制一个由多个小圆组成的半圆滚轮。你可以根据需要调整参数以获得不同的效果。