如何用AutoLisp快速将选中对象设置到指定图层？Bricscad求助

你的代码无法运行的核心原因是缺少选择对象的逻辑：直接在命令行执行._chprop _la AAMETAL "" ""时，你可能已经预先选中了所有对象，但Lisp程序运行时没有主动获取选择集，导致_chprop命令会等待用户手动选择对象，而程序不会触发交互，所以看起来没有效果。

修正后的代码 #

(defun c:aametal (/ ss)
    ;; 获取当前图形中所有对象的选择集
    (setq ss (ssget "X"))
    ;; 判断是否存在可修改的对象
    (if ss
        (progn
            ;; 调用chprop修改选中对象的图层
            (command "._chprop" ss "" "_la" "AAMETAL" "")
            (princ "\nEntities Set to AAMETAL Successfully")
        )
        (princ "\nNo entities found in the drawing.")
    )
    (princ) ; 静默退出，避免命令行返回冗余值
)

关键修改点 #

• 添加(ssget "X")获取所有对象的选择集，传给_chprop命令，无需手动选择
• 增加对象存在性判断，避免无对象时命令报错
• 最后加(princ)确保程序结束后命令行无多余输出

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