31.01.2013

Суммарная длина линий в AutoCAD или Как измерить длину всех линий слоя


Суммарная длина линий в AutoCAD или Как измерить длину всех линий слоя AutoCAD
[ · Скачать  (1622 кб) ]
Программа " Суммарная длина линий в AutoCAD" является плагином для AutoCAD, написанным на VBA.
Данный плагин предназначен для подсчёта суммарной длины выбранных линий.
 Программа может суммировать длины всех выбранных линий, находящихся в разных слоях, так и по одному слою, который выбирается из списка слоёв. Для того чтобы считалась сумма только по одному слою необходимо перед выбором линий выбрать слой из списка и поставить галочку "Считать длину линий только для указаного слоя". Далее необходимо нажать на кнопку "Выбрать линии" и выбрать область рисунка в котором необходимо посчитать сумму длин линий. Результат запишется в текстовое окно "Суммарная длина линий".
В текстовом окне "Коэффициент" можно указать коэффициент для пересчёта суммы длины линий в текстовое окно "Суммарная длина линий + (...%), м", это может быть полезным, например, для увеличения суммы длины трубы на 10% при расчёте спецификации ВК.
В текстовом окне "Количество единиц длины в 1 м натурной длины линии", можно указать соответствующий масштаб чертежа.
Пример использования программы можно посмотреть в прилагающемся видеоролике.
Программа проверялась только в AutoCAD2013.
Описание программы.
Программа "Сумма длин линий" является плагином для AutoCAD, написанным на VBA.
Данный плагин предназначен для подсчёта суммарной длины выбранных линий.

Инструкция по использованию.
Программа может суммировать длины всех выбранных линий, находящихся в разных слоях, так и по одному слою, который выбирается из списка слоёв. Для того чтобы считалась сумма только по одному слою необходимо перед выбором линий выбрать слой из списка и поставить галочку "Считать длину линий только для указаного слоя". Далее необходимо нажать на кнопку "Выбрать линии" и выбрать область рисунка в котором необходимо посчитать сумму длин линий. Результат запишется в текстовое окно "Суммарная длина линий".
В текстовом окне "Коэффициент" можно указать коэффициент для пересчёта суммы длины линий в текстовое окно "Суммарная длина линий + (...%), м", это может быть полезным, например, для увеличения суммы длины трубы на 10% при расчёте спецификации ВК.
В текстовом окне "Количество единиц длины в 1 м натурной длины линии", можно указать соответствующий масштаб чертежа.
Пример использования программы можно посмотреть в прилагающейся видеоинструкции.
Программа проверялась только в AutoCAD2006.


Инструкция по установке программы.
Для начала работы с программой необходимо загрузить макросом в AutoCAD, для этого надо зайти в меню Сервис=>Макросы=>Диспетчер VBA,
при этом откроется окно "Диспетчер VBA", в котором необходимо нажать кнопку "Згрузить" и в окне "Открытие проекта VBA" выбрать
файл макроса DlinaTrub.dvb и нажать кнопку открыть. Таким образом мы загрузили файл макроса DlinaTrub.dvb.

Запустить данный плагин в AutoCAD можно 2-мя способами:

1)Запуск макроса из командной строки.

В командной строке ввести "vbarun" и нажать клавишу Enter(ввод), при этом должно выскочить окно "Макросы"
с выбором загруженных в AutoCAD макросов. Из них необходимо выбрать макрос имеющий путь, соответствующий
текущему местонахождению файла DlinaTrub.dvb. Например, если файл DlinaTrub.dvb лежит в папке, имеющей путь:
"C:/Documents and Settings/1/Мои документы/VB/", то вам необходимо выбрать строку:
"C:/Documents and Settings/1/Мои документы/VB/DlinaTrub.dvb!Module1. DlTrRun" и нажать кнопку выполнения, где:
DlinaTrub.dvb - имя файла макроса;
! - обязательный знак;
Module1 - название модуля в котором находится макрос;
DlTrRun - название процедуры запускающей макрос.
Запуск макроса из командной строки неудобен, т.к. приходится при каждой загрузке AutoCAD сначала загружать файл макроса DlinaTrub.dvb, а потом и запускать его из командной строки. Для избегания этого используйте 2-й метод.


2)Создание и установка кнопки на новой или существующей панели инструментов AutoCAD.

Для создания новой кнопки через меню Сервис=>Интерфес... откройте окно "Настройка интерфейса пользователя" и
во вкладке Адаптация в разделе "Список команд" нажмите кнопку "Создать" для создания новой команды. Затем в
разделе "Адаптации в Все файлы CUI" раскройте список "Панели", потом раскройте любую из существующих панелей
либо создайте свою(щёлкните правой клавишей мыши на списке "Панели" и в контекстном меню выберите Содать=>Панель задайте ей имя).
В раскрытую созданную или существующую панель перетащите созданную новую комманду. Затем выберите новую команду и задайте её свойствам следующие значения:
1.Имя - Инженерная Аксонометрия
2.Описание - Инженерная Аксонометрия
*3.Макросы - ^C^C-vbarun "путь к папке с файлом макроса DlinaTrub.dvb/DlinaTrub.dvb!Module1.DlTrRun" 
например:

^C^C-vbarun "C:/Documents and Settings/1/Мои документы/VB/DlinaTrub.dvb!Module1.DlTrRun"

^C^C-vbarun "C:/Users/Desktop/DlinaTrub.dvb!Module1.DlTrRun"

- ВНИМАНИЕ!!! поле макросы заполнять строго как указано в примере, с учётом всех знаков и пробелов, иначе макрос не запустится, заметьте что здесь используется только правый слэш(/), а не левый(\) как обычно.
4.Малое изображение - "путь к папке с файлом картинки Для суммы длин линий.BMP / Для суммы длин линий.BMP" (например:"C:/Documents and Settings/1/Мои документы/VB/Для суммы длин линий.BMP")
5.Большое изображение - то же что и Малое изображение.
Потом нажмите кнопки "Применить" и "OK".

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

После выполнения вышеуказанных процедур на новой или существующей панели соответственно должна появиться кнопка, при нажатии на которую
должно запускаться окно с программой "Инженерная Аксонометрия", если окно не появляется то значит вы неправильно заполнили поле *3.Макросы,
проверьте всё ещё раз и исправте, а потом снова запустите.
Преимущество кнопки в том что при перезапуске AutoCAD не требуется повторная загрузка файла макроса и использование командной строки

Для   AutoCAD2013 AutoCAD2014 AutoCAD2015 
нашел рабочий макрос.
Проверил. работает.
[ · Скачать файл dvb
[ · Скачать  файл lisp]
С установкой разберитесь сами - легко.

4 комментария:

  1. Анонимно22.01.2014, 14:58

    Большое спасибо! ) Работает

    ОтветитьУдалить
  2. Анонимно30.07.2014, 04:35

    В 2014 версии не работает. Путь макросов проверял неоднократно(

    ОтветитьУдалить
  3. Анонимно16.07.2015, 06:56

    Напишите пожалуйста как установить макрос для 2015 автокада (на которые даны ссылки после статьи)

    ОтветитьУдалить
  4. Анонимно08.05.2017, 23:03

    Спасибо огромное lsp работает и в nanocad 5

    ОтветитьУдалить

Популярные сообщения