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

[Electric]

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

[slay_78]

Добрый день. С такими вопросами хорошо справляется deepseek.
Вот пример запроса: "LISP: defun c:MTextSize, выбор MText, вывод ширины (41) и высоты (46) через rtos 2 3, обработка ошибок." (запрос тоже deepseek написал).
Вот пример кода от deepseek:

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:MTextSize ( / ent data width height)
2.   (setq ent (car (entsel "\nВыберите MText: ")))
3.   (if ent
4.     (progn
5.       (setq data (entget ent))
6.       (setq width (cdr (assoc 41 data)))  ; ширина опорного прямоугольника
7.       (setq height (cdr (assoc 46 data)))  ; высота фона
8.      
9.       (princ (strcat "\n?? Ширина (DXF 41): " (rtos width 2 3)))
10.       (princ (strcat "\n?? Высота (DXF 46): " (rtos height 2 3)))
11.     )
12.     (princ "\n? Объект не выбран или это не MText.")
13.   )
14.   (princ)
15. )
16. ;Важно! Свойство мтекста столбцы должно быть НЕТ, а не динамический как по умолчанию.