Jump to content

Кабельный журнал/Спецификация


Recommended Posts

Сваял макрос к екселю

 

1. приводит КБЖ к расчетному виду (запятые и точка запятой убраны)

2. Заменяет длину кабеля на сумму длин в кнс

3. Делает сводную таблицу

 

правила

шапку не трогаем

импортируем кбж в ворд

копируем таблицу из ворда в ексель

запускаем макрос

 

если нужно выложу

 

Выкладывай конечно, может допилим совместными усилиями.

Навскидку: нужно исключить экспорт в ворд и эксель, сразу парсить в эксель из xml

Link to comment
Share on other sites

вот

если разработчики нам предоставят парсер для экспорта в ексель

вообще будет замечательно )))

К_Б_Ж - копия.xlsm.ексель.zip

шаблон для отчета.zip

Edited by Илья_500
  • Like 4
Link to comment
Share on other sites

  • 4 weeks later...

малая инструкция

копируем файл в папку с чертежами

при запуске просит указать директорию с проектом

на листе "спецификация" жмем кнопку "запустить расчет"

макрос отработал

далее в листах КБЖ соответственно кабельник поправленый

лист сводная показывает сколько и какого кабеля, сколько кнс

кнопки соотвествующие заменяют значения в спецификации (кабель/кнс)

сводная КНС, пересчитывает материалы на кнс по длине в КБЖ (КНС)

кнопка вносит изминения

все остальные листы практически сервисные

данный макрос работает с ошибкой на пересчет материалов на КНС, завышает, т.к. трассы строятся из участков с разной длинной и на каждый участок рассчитывается количество материалов Nучастка=(Lтрассы/Lуст)*Nколвонаметр+1 и Nобщ=Nучасток1+Nучасток2+.....+Nучасток n

 

для чего все это

1. уравнять КБЖ и спецификацию

2. взять запас для КНС (коэффициент на прокладку) и уравнять КБЖ и спецификацию

Edited by Илья_500
Link to comment
Share on other sites

Протестировать не удалось

копируем файл в папку с чертежами

Скопировал

при запуске просит указать директорию с проектом

Не просил

на листе "спецификация" жмем кнопку "запустить расчет"

Нажал

макрос отработал

Макрос выдал ошибку «Compile error: Can't find project or library»

В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет.

Link to comment
Share on other sites

Доброго времени суток.

У меня следующая задача. ЭОМ многоквартирного дома. На этаже 4 квартиры.

Вся архитектура в ArhiCAD. В конечном итоге от меня необходима 3D модель всего здания.

Комплекты РД нужны на каждую квартиру отдельно.

И вот в чем вопрос: Как разделить спецификацию одного этажа, т.к по умолчанию спецификация объединяется на весь этаж?

С КЖ проще он объединяет по Щиту, а вот спецификация объединяет все

Link to comment
Share on other sites

Попробуйте Маркеры, может починили, в вашем случае очень бы помогли...

Да это то что нужно.

Под "может починили" я правильно поял что маркер не присваивается кабелю?

Link to comment
Share on other sites

нет, под "починили" - в Электро Маркеры не работали, сейчас не знаю...

В принципе все работает вот только сам кабель не получается присвоить маркер.

Это единственно что спецификации считается общей кучей

Screenshot_1.png

Edited by slavian12
Link to comment
Share on other sites

Протестировать не удалось

копируем файл в папку с чертежами

Скопировал

при запуске просит указать директорию с проектом

Не просил

на листе "спецификация" жмем кнопку "запустить расчет"

Нажал

макрос отработал

Макрос выдал ошибку «Compile error: Can't find project or library»

В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет.

  • Открываете редактор VBA
  • Идете в Tools-References
  • ставите галочки
  • Жмете Ок.
  • Сохраняете файл.

на всякий случай перед запуском удалите все с листа SERVICE

post-63035-0-51436200-1562824094.png

Edited by Илья_500
Link to comment
Share on other sites

Доброго времени суток.

У меня следующая задача. ЭОМ многоквартирного дома. На этаже 4 квартиры.

Вся архитектура в ArhiCAD. В конечном итоге от меня необходима 3D модель всего здания.

Комплекты РД нужны на каждую квартиру отдельно.

И вот в чем вопрос: Как разделить спецификацию одного этажа, т.к по умолчанию спецификация объединяется на весь этаж?

С КЖ проще он объединяет по Щиту, а вот спецификация объединяет все

 

если не брать в голову стояки, то сделайте введите этажи на нужных квартирах (планах)

Link to comment
Share on other sites

Протестировать не удалось

копируем файл в папку с чертежами

Скопировал

при запуске просит указать директорию с проектом

Не просил

на листе "спецификация" жмем кнопку "запустить расчет"

Нажал

макрос отработал

Макрос выдал ошибку «Compile error: Can't find project or library»

В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет.

  • Открываете редактор VBA
  • Идете в Tools-References
  • ставите галочки
  • Жмете Ок.
  • Сохраняете файл.

на всякий случай перед запуском удалите все с листа SERVICE

Аналогичная ошибка.

Галочки стоят.

Link to comment
Share on other sites

1. скорее всего неправильно задана папка с проектом

2. открыт Электрик

у вас на листе SERVICE должны появится пути

там где лежит сам файл

и путь проекта

Edited by Илья_500
Link to comment
Share on other sites

1. скорее всего неправильно задана папка с проектом

как должно быть правильно?

 

2. открыт Электрик

точно нет

 

у вас на листе SERVICE должны появится пути

там где лежит сам файл

и путь проекта

как это должно выглядеть скрин можно?

при старте КБЖ.xlsm окно выглядит так - post-41274-0-66287400-1562851379.png

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Tell a friend

    Love Официальный форум компании Нанософт? Tell a friend!
×
×
  • Create New...