;;; ------------------------------------------------------------ ;;; 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)] : ") "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)