;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: LAYERRESET
;; 기능: 편집 가능한 레이어를 모두 켜고 동결 및 잠금 해제
;; 출처: https://www.autocats.co.kr/lisp/layer-reset
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, Xref 종속 레이어 건너뜀
;;; ------------------------------------------------------------

(defun autocats-layerreset-xref-p (name)
  (if (vl-string-search "|" name) T nil))

(defun autocats-layerreset-one (name / result)
  (setq result
        (vl-catch-all-apply
          '(lambda ()
             (command "_.-LAYER" "_On" name "")
             (command "_.-LAYER" "_Thaw" name "")
             (command "_.-LAYER" "_Unlock" name "")
             T)))
  (if (vl-catch-all-error-p result) nil result))

(defun autocats-layerreset-run (/ row name changed skipped)
  (setq changed 0 skipped 0
        row (tblnext "LAYER" T))
  (while row
    (setq name (cdr (assoc 2 row)))
    (if (or (autocats-layerreset-xref-p name)
            (not (autocats-layerreset-one name)))
      (setq skipped (1+ skipped))
      (setq changed (1+ changed)))
    (setq row (tblnext "LAYER")))
  (cons changed skipped))

(defun c:LAYERRESET (/ *error* undo-open result)
  (defun *error* (msg)
    (if undo-open
      (progn (command "_.UNDO" "_End") (setq undo-open nil)))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[LAYERRESET] 중단: " msg)))
    (princ))

  (command "_.UNDO" "_Begin")
  (setq undo-open T
        result (autocats-layerreset-run))
  (command "_.UNDO" "_End")
  (setq undo-open nil)
  (princ (strcat "\n[LAYERRESET] 완료: " (itoa (car result))
                 "개 레이어 복원 / " (itoa (cdr result)) "개 건너뜀"))
  (princ))

(princ "\n[AutoCATS] LAYERRESET 로드 완료 - 명령행에 LAYERRESET 를 입력하세요.")
(princ)