;;; ------------------------------------------------------------
;;; AutoCATS 리습 자료실
;; 명령: BSCALE
;; 기능: 선택한 일반 블록 참조의 X, Y, Z 축척 일괄 변경
;; 출처: https://www.autocats.co.kr/lisp/block-scale
;; 버전: 1.0 (2026-07-27)
;; 라이선스: 자유 사용·수정, 재배포 시 출처(autocats.co.kr) 표기
;; 안전: *error* 핸들러 + UNDO 그룹, Xref 및 잠긴 레이어 건너뜀
;;; ------------------------------------------------------------

(vl-load-com)

(defun autocats-bscale-locked-p (ent / row)
  (setq row (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))
  (and row (= 4 (logand 4 (cdr (assoc 70 row))))))

(defun autocats-bscale-xref-p (ent / name row flags)
  (setq name (cdr (assoc 2 (entget ent)))
        row (tblsearch "BLOCK" name)
        flags (if row (cdr (assoc 70 row)) 0))
  (/= 0 (logand flags 12)))

(defun autocats-bscale-replace (code value data)
  (if (assoc code data)
    (subst (cons code value) (assoc code data) data)
    (append data (list (cons code value)))))

(defun autocats-bscale-apply (ent x y z / data updated)
  (setq data (entget ent)
        data (autocats-bscale-replace 41 x data)
        data (autocats-bscale-replace 42 y data)
        data (autocats-bscale-replace 43 z data)
        updated (entmod data))
  (if updated (progn (entupd ent) T) nil))

(defun c:BSCALE (/ *error* doc undo-open x y z 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[BSCALE] 중단: " msg)))
    (princ))

  (initget 2)
  (setq x (getreal "\n[BSCALE] X 축척 <1>: "))
  (if (null x) (setq x 1.0))
  (initget 2)
  (setq y (getreal (strcat "\n[BSCALE] Y 축척 <" (rtos x 2 4) ">: ")))
  (if (null y) (setq y x))
  (initget 2)
  (setq z (getreal (strcat "\n[BSCALE] Z 축척 <" (rtos x 2 4) ">: ")))
  (if (null z) (setq z x))
  (princ "\n[BSCALE] 축척을 변경할 블록을 선택하세요.")
  (setq ss (ssget '((0 . "INSERT"))))
  (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-bscale-locked-p ent)
                (autocats-bscale-xref-p ent)
                (not (autocats-bscale-apply ent x y z)))
          (setq skipped (1+ skipped))
          (setq changed (1+ changed)))
        (setq idx (1+ idx)))
      (vla-EndUndoMark doc)
      (setq undo-open nil)
      (princ (strcat "\n[BSCALE] 완료: " (itoa changed)
                     "개 변경 / " (itoa skipped) "개 건너뜀")))
    (princ "\n[BSCALE] 선택된 블록이 없습니다."))
  (princ))

(princ "\n[AutoCATS] BSCALE 로드 완료 - 명령행에 BSCALE 를 입력하세요.")
(princ)