AutoLISP提取多段线图元表中的坐标

AutoLISP 提取多段线图元表中的坐标可以使用 `entget` 函数获取多段线实体的 DXF 代码，并从 DXF 代码中提取坐标信息。

以下是一个示例代码，其中 `ent` 变量表示多段线实体，`dxf` 变量表示多段线实体的 DXF 代码，`points` 变量表示多段线的顶点坐标：

(setq ent (car (entsel "Select polyline:")))
(setq dxf (entget ent))
(setq points (cdr (assoc 10 dxf)))

(foreach pt points
  (setq x (car pt))
  (setq y (cadr pt))
  (setq z (caddr pt))
  (format t "Vertex: (~d, ~d, ~d)~%" x y z))

在上面的代码中，我们使用 `entsel` 函数选择多段线实体，然后使用 `entget` 函数获取多段线实体的 DXF 代码，分别存储到变量 `ent` 和 `dxf` 中。然后，我们使用 `assoc` 函数从 DXF 代码中提取顶点坐标信息，分别存储到变量 `points` 中。最后，我们使用 `foreach` 循环遍历每个顶点坐标，并将其分别存储到变量 `x`、`y` 和 `z` 中，并输出到控制台上。

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