[求助]這個程序為何選擇兩個以上圖層的實体只能保留一個？

ljs026

这个程序为何选择两个以上图层的实体只能保留一个？
(defun c:test ()
(Prompt "\n请选取要保留图层上的实体...")
(setq e (ssget) n 0)
(setq llayer (cdr (assoc 8 (entget (ssname e 0)))))
(setvar "clayer" llayer)
(vl-cmdf "layer" "off" "*" "n" "")
)