색상별 객체 개수 리습 (COLCOUNT)

;;; AutoCATS 리습 자료실
;; 명령: COLCOUNT
;; 기능: 선택한 객체를 ACI·TrueColor 지정값별로 구분해 개수를 출력합니다.
;; 출처: https://www.autocats.co.kr/lisp/color-count
;; 버전: 1.0 (2026-10-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: 잠긴 레이어·외부참조 보호, 변경은 UNDO 그룹, 명령별 범위는 상세 가이드 참고

(vl-load-com)

(defun autocats-colcount-key (ent / data)
  (setq data (entget ent))
  (cond ((assoc 420 data) (strcat "RGB:" (itoa (cdr (assoc 420 data)))))
    (T (strcat "ACI:" (itoa (if (assoc 62 data) (cdr (assoc 62 data)) 256))))))
(defun autocats-colcount-data (ss / index rows key pair)
  (setq index 0 rows nil)
  (repeat (sslength ss)
    (setq key (autocats-colcount-key (ssname ss index)) pair (assoc key rows))
    (setq rows (if pair (subst (cons key (1+ (cdr pair))) pair rows) (cons (cons key 1) rows)))
    (setq index (1+ index)))
  (vl-sort rows '(lambda (a b) (< (car a) (car b)))))

(defun c:COLCOUNT (/ *error* undo-open result row selection)
  (defun *error* (msg)
    (if undo-open (progn (command-s "_.UNDO" "_End") (setq undo-open nil)))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[COLCOUNT] 중단: " msg)))
    (princ))

  (setq selection (ssget '((0 . "*"))))
  (if selection (progn
      (setq result (autocats-colcount-data selection))
      (foreach row result (princ (strcat "\n" (car row) " : " (itoa (cdr row)))))))

  (princ))

(princ "\n[AutoCATS] COLCOUNT 로드 완료")
(princ)