전체 unlock하는 리습 부탁드립니다.

제가 가지고 있는 리습은
전체 lock 걸린 것에서 선택한 하나만 unlock 되는 리습입니다.
전체 lock 걸린 것을 전체 unlock하는 리습으로 수정 부탁드립니다.




(DEFUN C:LK (/ SBLIP CMD E N )
   (setq SBLIP (getvar “BLIPMODE”))
   (setq CMD (getvar “CMDECHO”))
   (setvar “BLIPMODE” 0)
   (setvar “CMDECHO” 0)
   (prompt “n   “)
   (prompt “n   “)
   (setq E (car (entsel “n   Pick layer to Only Unlock: “)))
   (if E
      (progn
         (setq E (entget E))
         (setq N (cdr (assoc 8 E)))
         (command “layer” “LOCK” “*” “”)
         (command “layer” “UNLOCK” N “”)
         (command “layer” “S” N “”)
         (prompt (strcat “n   Layer < “N” > Was Only Unlock “))
         (princ)
      )
   )