用lisp语言写一段cad提取坐标代码

好的，这是用 Lisp 语言写的一段 CAD 提取坐标的代码。这段代码假设已经有了一个名为 "points" 的列表，其中包含了若干个点的坐标(x, y)：

(defun extract-coordinates (points)
  (mapcar #'(lambda (point)
              (cons (car point) (cdr point)))
          points))