;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: LAYCOUNT
;; 기능: 도면 전체의 레이어별 객체 수와 빈 레이어 조회
;; 출처: https://www.autocats.co.kr/lisp/layer-object-count
;; 버전: 1.0 (2026-07-27)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러, 조회 전용으로 도면 객체를 변경하지 않음
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-laycount-seed (/ row rows)
  (setq row (tblnext "LAYER" T) rows nil)
  (while row
    (setq rows (cons (cons (cdr (assoc 2 row)) 0) rows)
          row (tblnext "LAYER")))
  rows)

(defun autocats-laycount-add (name rows / found)
  (if (setq found (assoc name rows))
    (subst (cons name (1+ (cdr found))) found rows)
    (cons (cons name 1) rows)))

(defun autocats-laycount-data (/ ss idx block-row block-name block-ent ent data layer rows)
  (setq rows (autocats-laycount-seed)
        ss (ssget "_X")
        idx 0)
  (if ss
    (while (< idx (sslength ss))
      (setq data (entget (ssname ss idx))
            layer (cdr (assoc 8 data)))
      (if layer (setq rows (autocats-laycount-add layer rows)))
      (setq idx (1+ idx))))
  (setq block-row (tblnext "BLOCK" T))
  (while block-row
    (setq block-name (cdr (assoc 2 block-row)))
    (if (and (null (vl-string-search "*MODEL_SPACE" (strcase block-name)))
             (null (vl-string-search "*PAPER_SPACE" (strcase block-name))))
      (progn
        (setq block-ent (tblobjname "BLOCK" block-name)
              ent (if block-ent (entnext block-ent) nil))
        (while (and ent (/= "ENDBLK" (cdr (assoc 0 (entget ent)))))
          (setq data (entget ent)
                layer (cdr (assoc 8 data)))
          (if layer (setq rows (autocats-laycount-add layer rows)))
          (setq ent (entnext ent)))))
    (setq block-row (tblnext "BLOCK")))
  (vl-sort rows
    '(lambda (left right)
       (< (strcase (car left)) (strcase (car right))))))

(defun c:LAYCOUNT (/ *error* rows empty total)
  (defun *error* (msg)
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[LAYCOUNT] 중단: " msg)))
    (princ))

  (setq rows (autocats-laycount-data)
        empty 0 total 0)
  (princ "\n[LAYCOUNT] 레이어별 객체 수")
  (foreach row rows
    (setq total (+ total (cdr row)))
    (if (= 0 (cdr row))
      (progn
        (setq empty (1+ empty))
        (princ (strcat "\n  " (car row) ": 0 [빈 레이어]")))
      (princ (strcat "\n  " (car row) ": " (itoa (cdr row))))))
  (princ (strcat "\n[LAYCOUNT] 완료: " (itoa (length rows))
                 "개 레이어 / " (itoa empty) "개 빈 레이어 / "
                 (itoa total) "개 객체"))
  (princ))

(princ "\n[AutoCATS] LAYCOUNT 로드 완료 - 명령행에 LAYCOUNT 를 입력하세요.")
(princ)