lisp获得多段线的左下及右上

在LISP中，处理几何图形通常涉及到特定的数学库函数或者图形处理模块，例如Common Lisp Graphics (CL-Graphics) 或者 ECL's CL-PPCRE等。获取一个多段线（多边形或多线段）的左下角和右上角通常是计算其边界框(bounding box)的两个极端点。

如果你正在使用CL-Graphics，你可以定义一个函数来遍历多段线的每个顶点，然后计算最小和最大的x、y坐标。下面是一个简化的示例：

(defun bounding-box-polygon (polygon)
  (let ((min-x (reduce 'max first polygon))
        (min-y (reduce 'min second polygon))
        (max-x (reduce 'min third polygon))
        (max-y (reduce 'max fourth polygon)))
    `(make-instance 'rectangle :left-bottom-point (list min-x min-y)
                    :right-top-point (list max-x max-y))))

这个函数假设`polygon`是一个列表，其中每个元素包含四元组`(x y x y)`，表示一个顶点。`make-instance 'rectangle`会创建一个新的矩形对象，存储左下角和右上角。

如果你使用的是其他库，函数可能会有不同的名称和接口。如果没有现成的函数，你可能需要自己编写类似逻辑。