Как установить размеры рамки вокруг Мтекст?

[Electric]

Есть многострочный текст в автокаде, выравнивание "середина по центру". Возможно ли программно установить точные размеры ограничивающей рамки вокруг Мтекста с помощью LISP?

[slay_78]

Добрый день. С такими вопросами хорошо справляется deepseek.
Вот пример запроса: "LISP: defun c:MTextSize, выбор MText, вывод ширины (41) и высоты (46) через rtos 2 3, обработка ошибок." (запрос тоже deepseek написал).
Вот пример кода от deepseek:
(defun c:MTextSize ( / ent data width height)
  (setq ent (car (entsel "\nВыберите MText: ")))
  (if ent
    (progn
      (setq data (entget ent))
      (setq width (cdr (assoc 41 data)))  ; ширина опорного прямоугольника
      (setq height (cdr (assoc 46 data)))  ; высота фона
     
      (princ (strcat "\n?? Ширина (DXF 41): " (rtos width 2 3)))
      (princ (strcat "\n?? Высота (DXF 46): " (rtos height 2 3)))
    )
    (princ "\n? Объект не выбран или это не MText.")
  )
  (princ)
)
;Важно! Свойство мтекста столбцы должно быть НЕТ, а не динамический как по умолчанию.