https://goodsgoods.tistory.com/m/377

위 블로그에서 참고해서 쓰고있습니다.

1.선택레이어끄기

2.전체 레이어 켜기

cad 2016에서 작동이 안되는데 이유를 모르겠습니다. 도움부탁드립니다.

첫번째

; 선택한 레이어만 켜고 나머지는 다 끄기

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

두번째

; 전체 레이어 켜기

(defun c:L3 (/ an)
(setvar “cmdecho” 0)
(princ “= LAYER ALL ON”)
(command “.LAYER” “on” “*” “”)
(setvar “cmdecho” 1)
(prin1)
)