1
AutoLisp / VisualLISP и DCL / Re: Как установить размеры рамки вокруг Мтекст?
« Последний ответ от slay_78 07-08-2026, 23:07:39 »Добрый день. С такими вопросами хорошо справляется deepseek.
Вот пример запроса: "LISP: defun c:MTextSize, выбор MText, вывод ширины (41) и высоты (46) через rtos 2 3, обработка ошибок." (запрос тоже deepseek написал).
Вот пример кода от deepseek:
Вот пример запроса: "LISP: defun c:MTextSize, выбор MText, вывод ширины (41) и высоты (46) через rtos 2 3, обработка ошибок." (запрос тоже deepseek написал).
Вот пример кода от deepseek:
Код - Auto/Visual Lisp [Выбрать]
- (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)
- )
- ;Важно! Свойство мтекста столбцы должно быть НЕТ, а не динамический как по умолчанию.
Последние сообщения