Сумма чисел расположенных в текстовых полях

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

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

Скрипт VBA: Funkcii.dvb

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

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

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

После запуска, макрос предлагает указать тестовое поле для суммирования. Кликните число, откроется сообщение показывающее, что суммируется.

Закройте подсказку и переходите к выбору следующего текстового поля. Закрытие подсказки удобно делать кнопкой пробел на клавиатуре.

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