生成一个autolisp，画一个圆

好的，我可以为您生成一个Autolisp程序来绘制一个圆形。以下是代码：

(defun c:circle ()
(setq center (getpoint "\nEnter center point of circle: "))
(setq radius (getdist "\nEnter radius of circle: "))
(command "circle" center radius)
)

请将上述代码保存为一个Autolisp文件，然后在AutoCAD中加载它并运行“circle”命令即可绘制一个圆。希望这能帮到您，如果您有任何其他问题，请随时问我。