치수 소수 자리 변경 리습 (DPREC)

;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: DPREC
;; 기능: 선택 치수의 기본 단위 표시 소수 자리 일괄 변경
;; 출처: https://www.autocats.co.kr/lisp/dimension-precision
;; 버전: 1.0 (2026-07-27)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, 지원하지 않는 치수 건너뜀
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-dprec-locked-p (ent / row)
  (setq row (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))
  (and row (= 4 (logand 4 (cdr (assoc 70 row))))))

(defun autocats-dprec-apply (ent precision / old-value result)
  (setq old-value (getvar "DIMDEC")
        result
        (vl-catch-all-apply
          '(lambda ()
             (setvar "DIMDEC" precision)
             (command "_.DIMOVERRIDE" "DIMDEC" precision "" ent "")
             T)))
  (setvar "DIMDEC" old-value)
  (if (vl-catch-all-error-p result) nil result))

(defun autocats-dprec-value (ent / xdata items result)
  (setq xdata (assoc -3 (entget ent '("ACAD")))
        items (if xdata (cdr (car (cdr xdata))) nil)
        result nil)
  (while (and items (null result))
    (if (and (= (caar items) 1070)
             (= (cdar items) 271)
             (cadr items)
             (= (caadr items) 1070))
      (setq result (cdadr items))
      (setq items (cdr items))))
  result)

(defun c:DPREC (/ *error* doc undo-open precision ss 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[DPREC] 중단: " msg)))
    (princ))

  (initget 4)
  (setq precision (getint "\n[DPREC] 표시 소수 자리 0~8 <2>: "))
  (if (null precision) (setq precision 2))
  (if (> precision 8)
    (princ "\n[DPREC] 소수 자리는 0부터 8까지 입력해야 합니다.")
    (progn
      (princ "\n[DPREC] 정밀도를 변경할 치수를 선택하세요.")
      (setq ss (ssget '((0 . "DIMENSION"))))
      (if ss
        (progn
          (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
                idx 0 changed 0 skipped 0)
          (vla-StartUndoMark doc)
          (setq undo-open T)
          (while (< idx (sslength ss))
            (setq ent (ssname ss idx))
            (if (or (autocats-dprec-locked-p ent)
                    (not (autocats-dprec-apply ent precision)))
              (setq skipped (1+ skipped))
              (setq changed (1+ changed)))
            (setq idx (1+ idx)))
          (vla-EndUndoMark doc)
          (setq undo-open nil)
          (princ (strcat "\n[DPREC] 완료: " (itoa changed)
                         "개 변경 / " (itoa skipped) "개 건너뜀")))
        (princ "\n[DPREC] 선택된 치수가 없습니다."))))
  (princ))

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