;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: BCOUNT
;; 기능: 선택한 블록 참조(INSERT)를 블록 이름별로 집계해 명령행에 표시
;; 출처: https://www.autocats.co.kr/lisp/block-count
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 포함, 도면 저장·종료·객체 수정 등 파괴적 동작 없음
;; 검증: AutoCAD 실제 샘플 도면에서 이름별 수량 및 전체 선택 수 확인
;;; ------------------------------------------------------------

(defun c:BCOUNT (/ *error* bcount-add ss idx data name counts total item)

  (defun *error* (msg)
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[BCOUNT] 중단: " msg)))
    (princ))

  ;; 이름별 집계 목록에 1을 더하거나 새 항목을 추가한다.
  (defun bcount-add (key rows / found)
    (if (setq found (assoc key rows))
      (subst (cons key (1+ (cdr found))) found rows)
      (append rows (list (cons key 1)))))

  (princ "\n[BCOUNT] 수량을 집계할 블록을 선택하세요.")
  (setq ss (ssget '((0 . "INSERT"))))
  (if ss
    (progn
      (setq idx 0 counts '() total 0)
      (while (< idx (sslength ss))
        (setq data (entget (ssname ss idx))
              name (cdr (assoc 2 data)))
        (if name
          (progn
            (setq counts (bcount-add name counts))
            (setq total (1+ total))))
        (setq idx (1+ idx)))
      (princ "\n[BCOUNT] 블록별 수량:")
      (foreach item counts
        (princ (strcat "\n  " (car item) ": " (itoa (cdr item)) "개")))
      (princ (strcat "\n[BCOUNT] 전체 선택 블록: " (itoa total) "개")))
    (princ "\n[BCOUNT] 선택된 블록이 없습니다."))
  (princ))

(princ "\n[AutoCATS] BCOUNT 로드 완료 - 명령행에 BCOUNT 를 입력하세요.")
(princ)