AutoCAD lisp绘图案例

AutoCAD Lisp 是一种方便快捷的绘图工具，下面是一个简单的 Lisp 绘图案例，它将画一个包含圆、直线和多边形的图形：

(defun draw-shape ()
  (command "circle" (getpoint "\nCenter point: "))
  (command "line" (getpoint "\nStart point: ") (getpoint "\nEnd point: "))
  (command "pline" (list (getpoint "\nFirst point: ") 
                         (getpoint "\nSecond point: ")
                         (getpoint "\nThird point: ")
                         (getpoint "\nFourth point: "))
           "")
  (princ)
)

(draw-shape)

该函数命名为`draw-shape`，没有接收任何参数。该函数使用了 AutoCAD 的命令 `circle`、`line` 和 `pline` 分别绘制圆、直线和多边形。

在绘制圆时，我们使用了 `getpoint` 函数获取圆心坐标。在绘制直线时，我们使用了两个 `getpoint` 函数获取起点和终点坐标。在绘制多边形时，我们使用了一个列表作为参数，列表中的每个元素表示多边形的一个顶点，使用了四个 `getpoint` 函数获取四个顶点的坐标。

最后，我们调用 `princ` 函数，将函数的返回值打印到控制台。

你可以在这个函数的基础上进行修改和扩展，实现更复杂的绘图功能。