;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: TPREFIX
;; 기능: 선택한 TEXT/MTEXT/ATTRIB 앞에 문자열 일괄 추가
;; 출처: https://www.autocats.co.kr/lisp/text-prefix
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, 잠긴 레이어 건너뜀
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-tprefix-locked-p (ent / data layer row)
  (setq data (entget ent)
        layer (cdr (assoc 8 data))
        row (tblsearch "LAYER" layer))
  (and row (= 4 (logand 4 (cdr (assoc 70 row))))))

(defun autocats-tprefix-apply (ent prefix / data target result)
  (setq data (entget ent)
        target (if (= (cdr (assoc 0 data)) "MTEXT")
                 (if (assoc 3 data) (assoc 3 data) (assoc 1 data))
                 (assoc 1 data)))
  (if target
    (progn
      (setq result
            (entmod
              (subst
                (cons (car target) (strcat prefix (cdr target)))
                target
                data)))
      (if result (progn (entupd ent) T) nil))
    nil))

(defun c:TPREFIX (/ *error* doc undo-open ss prefix idx ent changed skipped)
  (defun *error* (msg)
    (if undo-open
      (progn (vla-EndUndoMark doc) (setq undo-open nil)))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[TPREFIX] 중단: " msg)))
    (princ))

  (setq prefix (getstring T "\n[TPREFIX] 문자 앞에 추가할 내용: "))
  (if (= prefix "")
    (princ "\n[TPREFIX] 추가할 내용이 없어 종료합니다.")
    (progn
      (princ "\n[TPREFIX] 수정할 TEXT/MTEXT/ATTRIB을 선택하세요.")
      (setq ss (ssget '((0 . "TEXT,MTEXT,ATTRIB"))))
      (if ss
        (progn
          (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
                changed 0 skipped 0 idx 0)
          (vla-StartUndoMark doc)
          (setq undo-open T)
          (while (< idx (sslength ss))
            (setq ent (ssname ss idx))
            (if (or (autocats-tprefix-locked-p ent)
                    (not (autocats-tprefix-apply ent prefix)))
              (setq skipped (1+ skipped))
              (setq changed (1+ changed)))
            (setq idx (1+ idx)))
          (vla-EndUndoMark doc)
          (setq undo-open nil)
          (princ (strcat "\n[TPREFIX] 완료: " (itoa changed)
                         "개 수정 / " (itoa skipped) "개 건너뜀")))
        (princ "\n[TPREFIX] 선택된 문자가 없습니다."))))
  (princ))

(princ "\n[AutoCATS] TPREFIX 로드 완료 - 명령행에 TPREFIX 를 입력하세요.")
(princ)