[[MTL]]

Добрый день,
Данная программа была написана в 2021г по просьбе, и выложена в другой теме. Решил, что правильней было бы организовать для неё отдельную тему.
Смысл в чём. Куда мышкой кликаете - там номер появляется. Всё просто.

Работает так:
1. В командной строке набираете MNUM.
2. Тип нумерации числовая - целые и вещественные числа, либо буквенная "А, Б, С...Я" прописными русскими.
3. Префикс - это символ перед номером; нач. значение, интервал - это понятно; постфикс - символ после номера.
4. Программа создаёт текстовые объекты в указанной вами точке с заданными параметрами - слой, стиль текста, высота текста, сжатие.

14.02.23г. Модификация. В версии v.2.0 добавлены:
- нумерация римскими цифрами;
- для стиля текста возможность задания типа выравнивания;
- в коде программы комментарии

[Ingpro]

Классный лисп! Всем качать! Удобно, что есть и буквенная нумерация, аналогов не знаю...
Спасибо автору.
А не сложно для текста сделать выравнивание "середина по центру"? Или предоставить возможность выбора.

[[MTL]]

Ingpro, спасибо за отзыв
Я сделал как вы просили. Новая версия программы в заголовке темы.

[alisa]

Прелесть какая
Спасибо

[Ingpro]

Сообщение от [MTL] Ingpro. Я сделал как вы просили

[MTL], спасибо огромное, что добавили выбор выравнивания, да ещё и римская нумерация. Здорово!

[TABAK]

шикарная программа.
А есть возможность сделать так, чтобы номер, по всем тем же правилам, ставился не в произвольную точку, по клику мыши, а заменял собой другой номер (в тексте или в блоке, или в мтексте)?
Т.е. с функцией "перенумерации"?

[valerik88]

Думаю было бы удобно, если бы диалог изначально был предзаполнен начальным значением "1", инкремент "1" и чтоб вместо TEXT вставлялся MTEXT. И степень сжатия по умолчанию чтоб была 1, а не 0.7
Я себе сам допилил эту программу, но думаю это всем было бы полезно.

[Ingpro]

Сообщение от valerik88 Я себе сам допилил эту программу, но думаю это всем было бы полезно

Допилил, выкладывай - и мы попробуем...
А если ещё расскажешь в какой строчке что подправил, вообще будет супер...
Особенно интересует сжатие

Код:

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

 ":edit_box {label= \" Сжатие: \"; key=\"b4\"; value=\"\"; edit_width=28; edit_limit=60;}"

как 0.7 исправить на 1?
Или это надо делать в другой строке?

[valerik88]

Ingpro, я там не только озвученное допилил для себя, поэтому не каждому подойдёт. Ещё и сам текст предзаполнил на QF (автоматы в электрике)

Значение сжатие меняется в строке 417

Код:

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

(if (eq Sgat nil) (setq Sgat "1"))

А ещё я сделал, чтоб выравнивание было "Середина по центру" выставленно по умолчанию. И высота текста на 3.
Вставку MTEXT сделал только для варианта с цифрами (там с буквами и римскими цифрами оставил как было всё, TEXT вставляется)

[Ingpro]

Сообщение от valerik88 А ещё я сделал, чтоб выравнивание было "Середина по центру"

Спасибо, а подскажите ещё, в какой строке подправить, чтобы выравнивание было "Середина по центру" по умолчанию.
И где изменить высоту текста?

[valerik88]

Ingpro, высота в строке 416

Код:

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

(if (eq Heidht_txt nil) (setq Heidht_txt "3"))

Выравнивание по центру в строке 447

Код:

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

(set_tile "b5" (itoa (vl-position "Середина по центру" viravn_list)))

[Ingpro]

Сообщение от valerik88 Выравнивание по центру в строке 447

Спасибо большое за подсказки!
Если запустить лисп из поста #9, нумерует нормально, но пишет в КС:
неверный тип аргумента: 2D/3D-точка: nil