두 레이어 객체 교환 리습 (LAYERSWAP)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: LAYERSWAP
;; 기능: 선택 범위에서 두 레이어의 객체를 서로 교환
;; 출처: https://www.autocats.co.kr/lisp/layer-swap
;; 버전: 1.0 (2026-07-27)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, 잠긴 레이어 객체 건너뜀
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-layerswap-locked-p (ent / row)
  (setq row (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))
  (and row (= 4 (logand 4 (cdr (assoc 70 row))))))

(defun autocats-layerswap-name (value / row)
  (if (setq row (tblsearch "LAYER" value))
    (cdr (assoc 2 row))
    nil))

(defun autocats-layerswap-apply (ent layer-a layer-b / data current target updated)
  (setq data (entget ent)
        current (cdr (assoc 8 data)))
  (cond
    ((= (strcase current) (strcase layer-a)) (setq target layer-b))
    ((= (strcase current) (strcase layer-b)) (setq target layer-a))
    (T (setq target nil)))
  (if target
    (progn
      (setq updated (entmod (subst (cons 8 target) (assoc 8 data) data)))
      (if updated (progn (entupd ent) T) nil))
    'unchanged))

(defun c:LAYERSWAP (/ *error* doc undo-open raw-a raw-b layer-a layer-b ss idx ent
                       result moved unchanged skipped)
  (defun *error* (msg)
    (if undo-open
      (progn (vla-EndUndoMark doc) (setq undo-open nil)))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[LAYERSWAP] 중단: " msg)))
    (princ))

  (setq raw-a (getstring T "\n[LAYERSWAP] 첫 번째 레이어 이름: ")
        raw-b (getstring T "\n[LAYERSWAP] 두 번째 레이어 이름: ")
        layer-a (autocats-layerswap-name raw-a)
        layer-b (autocats-layerswap-name raw-b))
  (if (or (null layer-a) (null layer-b)
          (= (strcase layer-a) (strcase layer-b)))
    (princ "\n[LAYERSWAP] 서로 다른 기존 레이어 두 개를 입력해야 합니다.")
    (progn
      (princ "\n[LAYERSWAP] 두 레이어를 교환할 대상 범위를 선택하세요.")
      (setq ss (ssget))
      (if ss
        (progn
          (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
                idx 0 moved 0 unchanged 0 skipped 0)
          (vla-StartUndoMark doc)
          (setq undo-open T)
          (while (< idx (sslength ss))
            (setq ent (ssname ss idx))
            (if (autocats-layerswap-locked-p ent)
              (setq skipped (1+ skipped))
              (progn
                (setq result (autocats-layerswap-apply ent layer-a layer-b))
                (cond
                  ((eq result 'unchanged) (setq unchanged (1+ unchanged)))
                  (result (setq moved (1+ moved)))
                  (T (setq skipped (1+ skipped))))))
            (setq idx (1+ idx)))
          (vla-EndUndoMark doc)
          (setq undo-open nil)
          (princ (strcat "\n[LAYERSWAP] 완료: " (itoa moved)
                         "개 교환 / " (itoa unchanged) "개 대상 아님 / "
                         (itoa skipped) "개 건너뜀")))
        (princ "\n[LAYERSWAP] 선택된 객체가 없습니다."))))
  (princ))

(princ "\n[AutoCATS] LAYERSWAP 로드 완료 - 명령행에 LAYERSWAP 를 입력하세요.")
(princ)