Нумерация названий объектов в текстовых полях

Скрипт записывает текст в заранее подготовленные текстовые поля. Например, при перенумерации электрических цепей, когда необходимо дать обозначения в порядке возрастания или добавить к тексту индекс.

Для работы скрипта его файл нужно разместить в папке Автокада. (У меня это "C:\Program Files\Autodesk\AutoCAD 2017"). При копировании Автокад должен быть закрыт.

Скрипт VBA: Funkcii.dvb

Перед запуском скрипта текстовые поля должны быть уже созданы. Значение текста в поле заменяется полностью, поэтому желательно, что бы свойства полей уже были выставлены на необходимые.

Запуск скрипта осуществляется командой: -vbarun Funkcii.dvb!Mod1.Ind

Её можно ввести в командную строку, я предпочитаю создать кнопку на панели и назначить команду кнопке.

После запуска, появится запрос на ввод текстовых значений.

Первое поле определяет приставку к индексу. Можно ввести любой текст который будет вставляться перед индексом. Если заполнить только это поле, то введённый текст будет добавляться к существующему тексту в полях.(Помогает если нужно дописать что-то одинаковое в начале каждого существующего поля. Например принадлежность к системе "В1-" перед каждой цепью.)

Второе поле - число с которого начинается отсчёт индекса. Если поле заполнено, то в текстовые пола вставляются число по порядку начиная с указанного, с учётом приставки и суффикса.

Третье поле определяет суффикс индекса. Можно ввести любой текст который будет вставляться после индекса. Если заполнить только это поле, то введённый текст будет добавляться после существующего текста в полях.(Помогает если нужно дописать что-то одинаковое в конце каждого существующего поля. Например принадлежность к вторичным цепям "_1" после каждого номера цепи.)

После заполнения формы нажмите "ОК" и кликайте по одному существующие текстовые поля, их текст будет меняться. Скрипт завершается кликом на пустое пространство.

Пример запуска:

Результат: