오토캐드 연속 번호 증가 리습 (NINC)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: NINC
;; 기능: 기준 문자의 끝 번호를 증가시키며 클릭 위치에 연속 복사 (P-001 → P-002 …)
;; 출처: https://www.autocats.co.kr/lisp/number-increment
;; 버전: 1.0 (2026-07-20)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹(한 번의 U로 전체 취소), 파괴적 동작 없음
;;; ------------------------------------------------------------

(defun c:NINC (/ *error* ninc-split ninc-pad oldecho undo-open sel ent data raw
                 pair head tail num width step idx pt newstr newdata)

  (defun *error* (msg)
    (if undo-open
      (progn (command "_.UNDO" "_End") (setq undo-open nil)))
    (if oldecho (setvar "CMDECHO" oldecho))
    (if (and msg (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*EXIT*,*취소*")))
      (princ (strcat "\n[NINC] 중단: " msg)))
    (princ))

  ;; 문자 끝의 숫자를 분리한다: "P-001" → ("P-" . "001"), "12" → ("" . "12")
  (defun ninc-split (s / i)
    (setq i (strlen s))
    (while (and (> i 0) (wcmatch (substr s i 1) "#"))
      (setq i (1- i)))
    (cons (substr s 1 i) (substr s (1+ i))))

  ;; 자리수를 유지하며 0을 채운다: (ninc-pad 2 3) → "002"
  (defun ninc-pad (n w / s)
    (setq s (itoa n))
    (while (< (strlen s) w) (setq s (strcat "0" s)))
    s)

  (setq sel (entsel "\n[NINC] 기준이 될 번호 문자(TEXT)를 선택하세요: "))
  (setq ent (if sel (car sel) nil))
  (if (and ent (= (cdr (assoc 0 (entget ent))) "TEXT"))
    (progn
      (setq data (entget ent)
            raw  (cdr (assoc 1 data))
            pair (ninc-split raw)
            head (car pair)
            tail (cdr pair))
      (if (= tail "")
        (princ "\n[NINC] 문자 끝에 숫자가 없습니다. 예: P-001, A12, 15")
        (progn
          (setq num (atoi tail) width (strlen tail))
          (setq step (getint "\n증가 간격 (음수 가능) <1>: "))
          (if (or (null step) (= step 0)) (setq step 1))
          (setq oldecho (getvar "CMDECHO"))
          (setvar "CMDECHO" 0)
          (command "_.UNDO" "_Begin")
          (setq undo-open T idx 0)
          (while (setq pt (getpoint "\n다음 번호를 놓을 위치 클릭 (Enter 종료): "))
            (setq idx    (1+ idx)
                  newstr (strcat head (ninc-pad (+ num (* idx step)) width))
                  newdata (subst (cons 1 newstr) (assoc 1 data) data)
                  newdata (subst (cons 10 pt) (assoc 10 newdata) newdata))
            (if (assoc 11 newdata)
              (setq newdata (subst (cons 11 pt) (assoc 11 newdata) newdata)))
            (entmake (vl-remove-if '(lambda (x) (member (car x) '(-1 5 330))) newdata))
            (princ (strcat "  → " newstr)))
          (command "_.UNDO" "_End")
          (setq undo-open nil)
          (setvar "CMDECHO" oldecho)
          (princ (strcat "\n[NINC] " (itoa idx) "개 생성 완료. (U 한 번으로 전체 취소 가능)")))))
    (princ "\n[NINC] 한 줄 문자(TEXT)를 선택해야 합니다. (MTEXT는 지원하지 않습니다)"))
  (princ))

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