[Сет]

Вопрос из серии нумераторов с узкой задачей. Может набросаете лисп, если это не сложно? Как мне кажется для специаистов это простая задача. Ну или подскажите удобное принципиальное решение задачи.

Задача такая. Мне нужно получить вертикальный ряд мультитекстов с простой нумерацией типа 1,2,3,4 и т.д. Вертикальный интервал между мультитекстами всегда фиксированный - 800. Ширина мультитекста должна быть определенной (изменяется пользователем). Выравнивание содержимого - посередине. Как мне видится алгоритм.
1. Вручную создаю мультитекст обычным способом с нужной мне шириной рамки и выравниванием содержимого.
2. Запускаю лисп-программу.
3. Отвечаю на запрос программы "Укажите стартовый номер".
4. Отвечаю на запрос программы "Укажите конечный номер".
5. Отвечаю на запрос программы "Выберете исходный объект".
6. Далее программа копирует вниз этот мультитекст нужное количество раз с интервалом 800, создавая последовательную нумерацию с инкрементом 1.

[zenon]

Сообщение от Сет нужно получить вертикальный ряд мультитекстов с простой нумерацией типа 1,2,3,4

Без программирования
Инструмент Таблица

[Сет]

Сообщение от zenon Без программирования Инструмент Таблица

Нет, мне нужна реализация мультитекстами.

[Boxa]

Таблица
Взорвать,
Удалить все, кроме Мтекстов
...
Профит!

[koMon]

Код:

[Выделить все]

 (setq start_number (getint "\nСтартовый номер: ")
	  end_number (getint "\nКонечный номер: ")
	  source_mtext_object (vlax-ename->vla-object (car (entsel "\nИсходный MTeкст: ")))
	  source_mtext_object_insertion_point (vlax-get source_mtext_object 'insertionpoint) 
)
(vla-put-textstring source_mtext_object (itoa start_number))  
(while (< start_number end_number) 
	(setq mtext_object (vla-copy source_mtext_object))
	(vla-put-textstring mtext_object (itoa (setq start_number (1+ start_number)))) 
	(vla-put-insertionpoint mtext_object (vlax-3d-point (setq source_mtext_object_insertion_point (polar source_mtext_object_insertion_point (* 1.5 pi) 800))))
)

[RomansFather]

https://dwg.ru/dnl/1929
Этот автонумератор (если запустится) перенумерует предварительно размещённые мтексты.
Но сам он ничего не рисует.

[Сет]

koMon, спасибо, работает так, как я и хотел