[求助]怎樣將圖層顯示反向選擇關閉其他圖層顯示？

ljs026

小弟知道晓东工具箱里有这个lisp程序，这个程序真的很棒！但却需配合接口，能不能不用配合接口而能使用呢？以下是晓东的程序，可以更改吗？ (defun #push_lay (lyr)
(if (member lyr #lyr_l)
(prompt "\n已经选取了改层，请继续...")
(progn
(setq #lyr_l (cons lyr #lyr_l))
(redraw e 3)
)
)
)
(defun c:slayres (/ e #lyr_l n)
(while (setq e (car (entsel "\n请选取要保留图层上的实体<退出>:")))
(xdrx_setenttodb e)
(#push_lay (xdrx_getentdxf 8))
)
(if #lyr_l
(progn
(xdrx_begin '("expert" 1
"cmdecho" 0
)
)
(command ".layer" "of" "*")
(foreach n #lyr_l
(command "on" n)
)
(command "")
(setvar "OSMODE" 4261)
(xdrx_end)
)
)
(princ)
)
(defun c:slayoff (/ e #lyr_l n)
(while (setq e (car (entsel "\r请选取要关闭图层上的物件<退出>:")))
(xdrx_setenttodb e)
(#push_lay (xdrx_getentdxf 8))
)
(if #lyr_l
(progn
(xdrx_begin '("expert" 1
"cmdecho" 0
)
)
(command ".layer")
(foreach n #lyr_l
(command "of" n)
)
(command "")
(setvar "OSMODE" 39)
(xdrx_end)
)
)
(princ)
)

xyp1964

;;;*图层隔离 c:tcgl
(defun c:tcgl (/ s1 la)
(WHILE (NOT (setq s1 (entsel "\n\t选择层物体: "))))
(setq la (DXF 8 (entget (CAR s1))))
(command "layer" "s" la "f" "*" "")
) (defun dxf (code elist) (cdr (assoc code elist)))

ljs026

出现错误: no function definition: DXF