用autolisp写一个画圆程序
时间: 2023-03-19 11:23:36 浏览: 496
好的,以下是一个用AutoLISP编写的画圆程序的示例:
```
(defun c:mycircle ()
(setq center (getpoint "\n输入圆心点: "))
(setq radius (getdist "\n输入半径: "))
(command "circle" center radius)
(princ)
)
```
该程序首先定义了一个名为 `c:mycircle` 的 AutoLISP 命令。当用户在 AutoCAD 中输入该命令时,程序会提示用户输入圆心点和半径,然后使用 `command` 函数绘制圆形,并使用 `princ` 函数结束程序。
阅读全文