;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: XYLABEL
;; 기능: 클릭한 점의 현재 UCS X,Y 좌표를 연속으로 문자 표기
;; 출처: https://www.autocats.co.kr/lisp/coordinate-label
;; 버전: 1.0 (2026-07-23)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, 기존 객체 수정 없음
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-xylabel-string (point precision)
  (strcat "X=" (rtos (car point) 2 precision)
          ", Y=" (rtos (cadr point) 2 precision)))

(defun autocats-xylabel-create (point precision height / insertion)
  (setq insertion
        (trans
          (list (car point) (+ (cadr point) (* 1.5 height)) (caddr point))
          1 0))
  (entmakex
    (list
      (cons 0 "TEXT")
      (cons 10 insertion)
      (cons 40 height)
      (cons 1 (autocats-xylabel-string point precision))
      (cons 7 (getvar "TEXTSTYLE")))))

(defun c:XYLABEL (/ *error* doc undo-open precision height point count)
  (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[XYLABEL] 중단: " msg)))
    (princ))

  (setq precision (getint (strcat "\n[XYLABEL] 소수 자릿수 <" (itoa (getvar "DIMDEC")) ">: ")))
  (if (or (null precision) (< precision 0) (> precision 8))
    (setq precision (getvar "DIMDEC")))
  (setq height (getreal (strcat "\n문자 높이 <" (rtos (getvar "TEXTSIZE") 2 precision) ">: ")))
  (if (or (null height) (<= height 0.0)) (setq height (getvar "TEXTSIZE")))
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
        count 0)
  (vla-StartUndoMark doc)
  (setq undo-open T)
  (while (setq point (getpoint "\n좌표를 표기할 점 클릭 (Enter 종료): "))
    (if (autocats-xylabel-create point precision height)
      (setq count (1+ count))))
  (vla-EndUndoMark doc)
  (setq undo-open nil)
  (princ (strcat "\n[XYLABEL] " (itoa count) "개 좌표 표기 완료."))
  (princ))

(princ "\n[AutoCATS] XYLABEL 로드 완료 - 명령행에 XYLABEL 를 입력하세요.")
(princ)