用AutoLISP提取多段线围成的矩形的四角坐标

提取多段线围成的矩形的四角坐标可以使用 AutoLISP 中的 `ssget` 函数选择多段线实体，然后使用 `vlax-curve-getBoundingBox` 函数获取多段线的边界框信息，从而得到矩形的四角坐标。

以下是一个示例代码，其中 `pline` 变量表示多段线实体，`min` 和 `max` 分别表示矩形的最小和最大坐标：

(setq pline (vlax-ename->vla-object (car (ssget "_X" '((0 . "LWPOLYLINE"))))))
(setq bbox (vlax-curve-getBoundingBox pline))

(setq x1 (car bbox))
(setq y1 (cadr bbox))
(setq x2 (caddr bbox))
(setq y2 (cadddr bbox))

(format t "Left Top: (~d, ~d)~%" x1 y1) ; 输出左上角坐标
(format t "Right Bottom: (~d, ~d)~%" x2 y2) ; 输出右下角坐标

在上面的代码中，我们使用 `ssget` 函数选择多段线实体，并使用 `vlax-ename->vla-object` 函数将其转换为 AutoCAD 对象。然后，我们使用 `vlax-curve-getBoundingBox` 函数获取多段线的边界框信息，分别存储到变量 `bbox` 中。最后，我们将这些坐标分别存储到变量 `x1`、`y1`、`x2` 和 `y2` 中，并输出到控制台上。

请注意，上述代码假设您已经熟悉 AutoLISP 和 AutoCAD 的基本操作。如果您需要更多的帮助，请参考 AutoLISP 和 AutoCAD 的官方文档。