오토캐드 문자 숫자 합계 리습 (TSUM)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: TSUM
;; 기능: 선택한 문자(TEXT/MTEXT)의 숫자 합계 계산 + 도면 기입(선택)
;; 출처: https://www.autocats.co.kr/lisp/text-sum
;; 버전: 1.0 (2026-07-20)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 포함, 도면 저장·종료 등 파괴적 동작 없음
;;; ------------------------------------------------------------

(defun c:TSUM (/ *error* tsum-clean ss idx data raw str val sum cnt skip pt)

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

  ;; 쉼표·공백을 제거해 "1,234.5" 같은 표기도 합산 대상으로 만든다
  (defun tsum-clean (s / out i ch)
    (setq out "" i 1)
    (while (<= i (strlen s))
      (setq ch (substr s i 1))
      (if (not (member ch '("," " ")))
        (setq out (strcat out ch)))
      (setq i (1+ i)))
    out)

  (princ "\n[TSUM] 합계를 구할 문자(TEXT/MTEXT)를 선택하세요.")
  (setq ss (ssget '((0 . "TEXT,MTEXT"))))
  (if ss
    (progn
      (setq idx 0 sum 0.0 cnt 0 skip 0)
      (while (< idx (sslength ss))
        (setq data (entget (ssname ss idx))
              raw  (cdr (assoc 1 data))
              str  (tsum-clean raw)
              val  (if (/= str "") (distof str 2) nil))
        (if val
          (setq sum (+ sum val) cnt (1+ cnt))
          (setq skip (1+ skip)))
        (setq idx (1+ idx)))
      (princ (strcat "\n[TSUM] 합계: " (rtos sum 2 4)
                     "  (합산 " (itoa cnt) "개 / 건너뜀 " (itoa skip) "개)"))
      (if (> cnt 0)
        (progn
          (initget "Y N")
          (if (= (getkword "\n합계를 도면에 문자로 기입할까요? [예(Y)/아니오(N)] <N>: ") "Y")
            (progn
              (setq pt (getpoint "\n문자 삽입 위치 클릭: "))
              (if pt
                (entmake (list (cons 0 "TEXT")
                               (cons 10 pt)
                               (cons 40 (getvar "TEXTSIZE"))
                               (cons 1 (rtos sum 2 4))
                               (cons 7 (getvar "TEXTSTYLE")))))))))
      )
    (princ "\n[TSUM] 선택된 문자가 없습니다."))
  (princ))

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