레이어 on/off 수정좀 부탁드립니다.

<COFF>  :  선택한 레이어외 다른 전체 레이어를 끄는 기능입니다.
<LOFF>  :  “선택한 레이어를 끄는 기능” & “지명한 레이어를 끄는 기능”
COFF 와 달리 LOFF는 “명령한 레이어를 끄는 기능”이 있습니다.
그기능을 COFF에 접목시키려고합니다. 아시느분은 작성좀…부탁드려요

(defun C:COFF (/ af)
       (setvar “cmdecho” 0)
       (princ ” = LAYER ALL OFF”)
       (setq af (entsel))
       (setq af (car af))
       (setq af (cdr (assoc 8 (entget af))))
       (command “.LAYER” “s” af “”)
       (command “.LAYER” “off” “*” “” “”)
       (setvar “cmdecho” 1)
       (prin1)
)

(defun C:LOFF (/ lo cla)
       (setvar “cmdecho” 0)
       (princ ” = LAYER OFF”)
       (setq lo (entsel))
       ;(setq lo (car lo))
       ;(setq lo (cdr (assoc 8 (entget lo))))
       (if lo
          (setq lo (cdr (assoc 8 (entget (car lo)))))
          (setq lo (strcase (getstring
                            “n>> If not, Type Layer Name :”)))
       );;if
       (setq cla (getvar “clayer”))
       (if (= cla lo)
          (command “.LAYER” “s” “0” “”)
       );;if
       (command “.LAYER” “off” (setq lo lo) “”)
       (setvar “cmdecho” 1)
       (prin1)
)