lisp 用函数entmake 利用三个 点画圆弧程序

LISP是一种高级编程语言，以其函数式编程风格而闻名，特别适合于表达列表和数据结构。在LISP中，`entmake`通常是指图形用户界面环境（比如Emacs的Elisp库）中的一个函数，用于创建和编辑图形对象，如绘制图形。

如果你想在LISP中用三个点来画一个圆弧，实际上这需要通过几何计算和绘图函数来完成，而不是直接用`entmake`。然而，我们可以提供一个简化的例子。在Common Lisp中，你可以编写类似这样的代码：

(defun draw-arc (center radius start-angle end-angle)
  (let ((x (+ (* center first-radius) (* sin start-angle) radius))
        (y (+ (* center first-radius) (* cos start-angle) radius)))
    (draw-line center x y)
    (let ((new-x (+ (* center second-radius) (* sin end-angle) radius))
          (new-y (+ (* center second-radius) (* cos end-angle) radius)))
      (draw-line x new-x new-y center))))

; 假设我们有三点 A、B 和 C 分别代表圆心、起点和终点
(let* ((circle-center (list 0 0)) ; 假设圆心在原点
       (start-point (car B))     ; B 点作为起点
       (end-point (car C)))      ; C 点作为终点
  (draw-arc circle-center some-distance start-point end-point))

; 你需要补充 `some-distance` 和 `B`、`C` 的值

在这个示例里，`draw-line`和`draw-arc`可能是你自己定义的虚构函数，实际的LISP环境可能会有不同的图形库提供这类功能。注意，LISP中并没有内置函数可以直接从三个点绘制圆弧，所以这个过程可能涉及角度到坐标转换等步骤。