LISP для замены высоты текста на чертеже

Спасибо! Отлично работает

Спасибо, а как изменить лисп, чтобы округлить тексты 256, 347, 450.32...
до 250, 350, 450 соответственно?

Хм, попробуйте в формулах 0.5 заменить на 5. Если честно некогда проверять. Мб позже попробую написать.

Не получается не 5, не 10...

Попробуйте третью строку заменить на
(* 100 (* 0.5 (fix (+ 0.5 (/ (/ val 100) 0.5)))))

С этой строкой код не запускается...

Добрый вечер, только добрался.
Замените код в двух местах на:
(defun round-to-nearest-10 (val)
;; Функция округления до ближайшего кратного 10
(* 10 (fix (+ 0.5 (/ val 10))))
)
.....
;; Рассчитываем новую высоту текста, кратную 10
(setq newHeight (round-to-nearest-10 textHeight))

А ежели так?:
[code]
(defun round-to-nearest (val base)
;; Функция округления до ближайшего кратного 0.5
(* base (fix (+ 0.5 (/ val base))))
)

(defun c:AdjustTextHeight (base / ss i ent textHeight newHeight)
(setq ss (ssget "X" '((0 . "TEXT,MTEXT")))) ; Получаем все текстовые объекты
(if ss
(progn
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i)) ; Получаем объект текста
(setq textHeight (cdr (assoc 40 (entget ent)))) ; Текущая высота текста

;; Рассчитываем новую высоту текста, кратную base
(setq newHeight (round-to-nearest textHeight base))

;; Обновляем высоту текста, если она отличается
(if (/= textHeight newHeight)
(progn
(entmod (subst (cons 40 newHeight) (assoc 40 (entget ent)) (entget ent)))
(entupd ent)
)
)

(setq i (1+ i))
)
(princ "\nВысота текста обновлена для всех объектов.")
)
(princ "\nНет текстовых объектов на чертеже.")
)
(princ)
)
[/code]
На работоспособность не проверял.