레이어 on,off 리습 수정가능한가요??

제경우에는 기본명령어보다 리습을 쓰는게 훨씬 작업속도가 빠르니까
기본명령어가 있어도 리습을 만들어 쓰고 있습니다.

이거는 제가 사용중인 레이어관련 리습

; 선택한  레이어 OFF ;;;;;;;;;;;;;;;;;;
(defun c:af(/ a2 b2 l2)
(setvar “cmdecho” 0)
(prompt “nSelect target layer”)
(setq a2 (entsel))
(while (/= (cadr a2) nil)
(setq b2 (entget (car a2)))
(setq l1 (assoc 8 b2)) (setq l2 (cdr l1))
(command “layer” “off” l2 “”)
(prompt “nSlect target layer”)
(setq a2 (entsel))
);while
      (PROMPT “선택객체의 레어어 OFF”)
      (PRINC)
)

;  모든 레이어 보기 언락 동결해제;;;;;;;;;;;;;;;;;;;;
(defun c:aaa()
(command “layer” “on” “*” “”)
(command “layer” “thaw” “*” “”)
(command “layer” “unlock” “*” “”)
      (PROMPT “모든레어어의 언락 언플리징 보기활성화됨”)
      (PRINC)
  )

;선택한 레이어만 ON;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(defun *error* (msg)
;(princ “nError ! “)
;(princ msg)
;(terpri)
😉

(defun c:aa(/ OS var8 nn1 n11 nn2)
 
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os) (command “clayer” “0”) (princ) )
(setq os (getvar “osmode”))

 (setq var8 (getvar “clayer”))
(setq nn1 (entsel “n표시할 레이어에 속한 객체를 선택하세요. <ENTER = ALL> “))

  (if (/= nn1 nil)
(progn
(setq n11 “”)
(while nn1
 (setq nn2 (car nn1))
 (setq n1 (cdr (assoc 8 (cdr (entget nn2)))))
 (setq n11 (strcat n11 “,” n1))
 (setq nn1 (entsel “n표시할 레이어에 속한 객체를 선택하세요. <ENTER = ALL> “))
)
(command “layer” “off” “*” “y” “”)
(command “layer” “on” n11 “”)
)
(progn
(command “layer” “on” “*” “”))
)
      (PROMPT “선택객체의 레이어만 보기”)
      (PRINC)
)