如何在AutoLisp中读取多段线图层并仅提取图层名称？

你当前的测试代码通过(assoc 8 enx)获取到的是DXF组码8对应的点对数据(8 . "LAYER_NAME")，要单独提取其中的图层名称字符串，只需要借助cdr函数获取该点对的第二个元素即可。

修改后的代码 #

(defun c:test ( / ent enx layer-name )
    (if (setq ent (car (entsel)))
        (progn
            (setq enx (entget ent))
            ;; 提取图层名称字符串
            (setq layer-name (cdr (assoc 8 enx)))
            ;; 这里可以添加你的图层校验逻辑，比如输出或判断
            (princ (strcat "当前多段线图层：" layer-name))
        )
    )
    (princ) ; 避免命令行返回多余值
)

原理说明 #

• (assoc 8 enx)：从实体的DXF数据列表中筛选出组码为8的条目，返回格式为(8 . "图层名")的点对（第一个元素是组码，第二个是图层名称）。
• (cdr 点对)：直接获取点对的后半部分，也就是我们需要的图层名称字符串。

额外提示 #

如果担心某些特殊实体没有图层信息（AutoCAD实体默认都有图层，此情况极少），可以加个判断避免报错：

(setq layer-name (if (setq layer-pair (assoc 8 enx))
                    (cdr layer-pair)
                    "默认图层" ; 也可返回nil，根据你的需求调整
                  )
)

内容的提问来源于stack exchange，提问作者Theylen