[[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

[Shagezood]

Не работает. С лиспами умею работать, загрузил через APPLOAD. Команду автокад видит, но после ввода ничего не происходит. Помогите пожалуйста)
В командной строке выдает это:

Команда: MNUM
AutoNum_M: dialog
{label = "Автонумерация c ручным заданием позиции"; width=35;
spacer_1;
:radio_column {label= " Параметры нумерации ";
:row {
:text {label= " Тип нумерации: "; width=20;}
opup_list {key="a0"; is_enabled=true; label=""; list=""; width=30;}
}
:edit_box {label= " Префикс: "; key="a1"; value=""; edit_width=28; edit_limit=60;}
:edit_box {label= " Нач. значение: "; key="a2"; edit_width=28; edit_limit=30;}
:edit_box {label= " Интервал: "; key="a3"; value=""; edit_width=28; edit_limit=60;}
:edit_box {label= " Постфикс: "; key="a4"; value=""; edit_width=28; edit_limit=60;}
}
spacer_1;
:column {label=" Параметры размещаемого текста";
:row {
:text {label= " Слой: "; width=20;}
opup_list {key="b1"; is_enabled=true; label=""; list=""; width=30;}
}
:row {
:text {label= " Стиль текста: "; width=20;}
opup_list {key="b2"; is_enabled=true; label=""; list=""; width=30;}
}
:edit_box {label= " Высота текста: "; key="b3"; value=""; edit_width=28; edit_limit=60;}
:edit_box {label= " Сжатие: "; key="b4"; value=""; edit_width=28; edit_limit=60;}
:row {
:text {label= " Выравнивание: "; width=20;}
opup_list {key="b5"; is_enabled=true; label=""; list=""; width=30;}
}
}
spacer_1;
ok_cancel;
}
Error_Nachzn: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Нач. значение> введите числовое значение"; key="c1"; alignment=centered;}
spacer;
ok_button;
}
Error_Interv: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Интервал> введите числовое значение"; key="d1"; alignment=centered;}
spacer;
ok_button;
}
Error_Height: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Высота текста> введите числовое не отрицательное значение"; key="e1"; alignment=centered;}
spacer;
ok_button;
}
Error_Сompression: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Сжатие> введите числовое не отрицательное значение"; key="f1"; alignment=centered;}
spacer;
ok_button;
}
Error_Nachzn_Alf: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Нач. значение> введите прописную букву русского алфавита"; key="g1"; alignment=centered;}
spacer;
ok_button;
}
Error_Nachzn_Rimsk: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Нач. значение> введите целое числовое значение"; key="h1"; alignment=centered;}
spacer;
ok_button;
}
Error_Interv_Rimsk: dialog
{label = "Ошибка типа";
spacer;
:text_part {label="Ошибка: В поле <Интервал> введите целое числовое значение"; key="i1"; alignment=centered;}
spacer;
ok_button;
}
неверный тип аргумента: streamp nil
Команда:

[[MTL]]

Shagezood, вероятно, ошибка происходит на этапе записи DCL-диалога во временный файл. В тексте LISP вот эта строка:

Код:

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

 (setq file (strcat (vl-string-right-trim                                                                     ; убирает в конце строки все перечисленные символы
                                          (vl-list->string '(92))
                                          (vla-get-tempfilepath (vla-get-files
                                                                      (vla-get-preferences
                                                                                 (vlax-get-acad-object))        ; значение каталога временных файлов AutoCAD
                                                                 )                                              
                                          )                                                                     
                       )                                                                                        
                       "\\AutoNum_M.DCL"
              )                                                                                                 ; конец strcat

         handle (open file "w")                                                                                 ; открывает файл на запись
    )

Подробнее об этом здесь: https://autolisp.ru/2010/03/15/dcl-dialogs-create/
Попробуйте вместо

Код:

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

 (vla-get-tempfilepath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))

вставить

Код:

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

 (getenv "temp")

или

Код:

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

 (getenv "tmp")

Используете ли вы LiSP программы, которые вызывают дополнительные диалоговые окна? Проблем не бывает?