객체 유형별 수량 집계 리습 (OBJCOUNT)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: OBJCOUNT
;; 기능: 선택한 객체를 CAD 객체 유형별로 집계
;; 출처: https://www.autocats.co.kr/lisp/object-count
;; 버전: 1.0 (2026-07-27)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러, 조회 전용으로 도면 객체를 변경하지 않음
;;; ------------------------------------------------------------

(defun autocats-objcount-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-objcount-data (ss / idx ent rows)
  (setq idx 0 rows nil)
  (while (< idx (sslength ss))
    (setq ent (ssname ss idx)
          rows (autocats-objcount-add (cdr (assoc 0 (entget ent))) rows)
          idx (1+ idx)))
  (vl-sort rows '(lambda (left right) (< (car left) (car right)))))

(defun c:OBJCOUNT (/ *error* ss rows)
  (defun *error* (msg)
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[OBJCOUNT] 중단: " msg)))
    (princ))

  (princ "\n[OBJCOUNT] 집계할 객체를 선택하세요.")
  (setq ss (ssget))
  (if ss
    (progn
      (setq rows (autocats-objcount-data ss))
      (princ "\n[OBJCOUNT] 객체 유형별 개수")
      (foreach row rows
        (princ (strcat "\n  " (car row) ": " (itoa (cdr row)))))
      (princ (strcat "\n  TOTAL: " (itoa (sslength ss)))))
    (princ "\n[OBJCOUNT] 선택된 객체가 없습니다."))
  (princ))

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