在AutoCAD中，使用AutoLISP编程画圆，可以按照以下步骤进行：
定义中心点和直径
首先，你需要定义圆的中心点和直径。
可以使用命令`_sphere`来指定中心点或通过三点、两点及半径或直径来定义圆。
计算圆的半径
如果已知线段的长度，可以通过线段长度的一半来计算圆的半径。
例如，如果线段长度为`dd`，则圆的半径`rr`为`dd / 2`。
使用`circle`命令画圆
使用`command`语句调用`circle`命令，并传入圆心和半径作为参数，来绘制圆。
```autolisp
（defun c:test（）
（setvar "cmdecho" 0）
（setq en （car （entsel "\n选取线："）））
（setq endata （entget en））
（setq pt1 （cdr （assoc 10 endata）））
（setq pt2 （cdr （assoc 11 endata）））
（setq dd （distance pt1 pt2））
（setq ang （angle pt1 pt2））
（setq s_rr （/ dd 5））
（princ （strcat "\n------<线段长度=" （rtos dd 2）））
（setq str_rr （strcat "\n圆半径<" （rtos s_rr 2）））
（setq rr （getdist pt1 str_rr））
（if （null rr）
（setq rr s_rr））
（command "circle" pt1 rr）
（setq ciren1 （entlast））
（command "circle" pt2 rr）
（setq ciren2 （entlast））
（command "trim" ciren1 ciren2 "" （list en pt1） （list en pt2） ""）
（command "polygon" 4 pt1 "i"））
```
建议
确保在运行AutoLISP代码前，已经选择了需要画圆的线段。
根据实际需求调整代码中的变量和参数，例如线段长度的计算方式和圆的半径。
如果需要更复杂的圆（如指定圆弧或圆心不在线段中），则需要进一步修改代码。