Lion2032 Posted June 5, 2019 Report Share Posted June 5, 2019 Сваял макрос к екселю 1. приводит КБЖ к расчетному виду (запятые и точка запятой убраны) 2. Заменяет длину кабеля на сумму длин в кнс 3. Делает сводную таблицу правила шапку не трогаем импортируем кбж в ворд копируем таблицу из ворда в ексель запускаем макрос если нужно выложу Выкладывай конечно, может допилим совместными усилиями. Навскидку: нужно исключить экспорт в ворд и эксель, сразу парсить в эксель из xml Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted June 5, 2019 Author Report Share Posted June 5, 2019 (edited) вот если разработчики нам предоставят парсер для экспорта в ексель вообще будет замечательно ))) К_Б_Ж - копия.xlsm.ексель.zip шаблон для отчета.zip Edited June 5, 2019 by Илья_500 4 Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 4, 2019 Author Report Share Posted July 4, 2019 (edited) версия два готова зы прогеры нанокада/сисофта этот костыль , да еще с большим функционалом сделали бы за 2 дня КБЖ.xlsm.zip Edited July 4, 2019 by Илья_500 3 Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 9, 2019 Author Report Share Posted July 9, 2019 работает хоть:? Quote Link to comment Share on other sites More sharing options...
Doctor_Che Posted July 9, 2019 Report Share Posted July 9, 2019 работает хоть:? С ходу не пошло. Для непонятливых нужна более подробная инструкция. Quote Link to comment Share on other sites More sharing options...
Andrey_ka Posted July 10, 2019 Report Share Posted July 10, 2019 работает хоть:? тоже не разобрался... Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 10, 2019 Author Report Share Posted July 10, 2019 (edited) малая инструкция копируем файл в папку с чертежами при запуске просит указать директорию с проектом на листе "спецификация" жмем кнопку "запустить расчет" макрос отработал далее в листах КБЖ соответственно кабельник поправленый лист сводная показывает сколько и какого кабеля, сколько кнс кнопки соотвествующие заменяют значения в спецификации (кабель/кнс) сводная КНС, пересчитывает материалы на кнс по длине в КБЖ (КНС) кнопка вносит изминения все остальные листы практически сервисные данный макрос работает с ошибкой на пересчет материалов на КНС, завышает, т.к. трассы строятся из участков с разной длинной и на каждый участок рассчитывается количество материалов Nучастка=(Lтрассы/Lуст)*Nколвонаметр+1 и Nобщ=Nучасток1+Nучасток2+.....+Nучасток n для чего все это 1. уравнять КБЖ и спецификацию 2. взять запас для КНС (коэффициент на прокладку) и уравнять КБЖ и спецификацию Edited July 10, 2019 by Илья_500 Quote Link to comment Share on other sites More sharing options...
Walkmax Posted July 10, 2019 Report Share Posted July 10, 2019 Протестировать не удалось копируем файл в папку с чертежами Скопировал при запуске просит указать директорию с проектом Не просил на листе "спецификация" жмем кнопку "запустить расчет" Нажал макрос отработал Макрос выдал ошибку «Compile error: Can't find project or library» В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет. Quote Link to comment Share on other sites More sharing options...
slavian12 Posted July 10, 2019 Report Share Posted July 10, 2019 Доброго времени суток. У меня следующая задача. ЭОМ многоквартирного дома. На этаже 4 квартиры. Вся архитектура в ArhiCAD. В конечном итоге от меня необходима 3D модель всего здания. Комплекты РД нужны на каждую квартиру отдельно. И вот в чем вопрос: Как разделить спецификацию одного этажа, т.к по умолчанию спецификация объединяется на весь этаж? С КЖ проще он объединяет по Щиту, а вот спецификация объединяет все Quote Link to comment Share on other sites More sharing options...
kolymba Posted July 10, 2019 Report Share Posted July 10, 2019 Попробуйте Маркеры, может починили, в вашем случае очень бы помогли... Quote Link to comment Share on other sites More sharing options...
slavian12 Posted July 10, 2019 Report Share Posted July 10, 2019 Попробуйте Маркеры, может починили, в вашем случае очень бы помогли... Да это то что нужно. Под "может починили" я правильно поял что маркер не присваивается кабелю? Quote Link to comment Share on other sites More sharing options...
kolymba Posted July 10, 2019 Report Share Posted July 10, 2019 нет, под "починили" - в Электро Маркеры не работали, сейчас не знаю... Quote Link to comment Share on other sites More sharing options...
slavian12 Posted July 10, 2019 Report Share Posted July 10, 2019 (edited) нет, под "починили" - в Электро Маркеры не работали, сейчас не знаю... В принципе все работает вот только сам кабель не получается присвоить маркер. Это единственно что спецификации считается общей кучей Edited July 10, 2019 by slavian12 Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 (edited) Протестировать не удалось копируем файл в папку с чертежами Скопировал при запуске просит указать директорию с проектом Не просил на листе "спецификация" жмем кнопку "запустить расчет" Нажал макрос отработал Макрос выдал ошибку «Compile error: Can't find project or library» В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет. Открываете редактор VBA Идете в Tools-References ставите галочки Жмете Ок. Сохраняете файл. на всякий случай перед запуском удалите все с листа SERVICE Edited July 11, 2019 by Илья_500 Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 Доброго времени суток. У меня следующая задача. ЭОМ многоквартирного дома. На этаже 4 квартиры. Вся архитектура в ArhiCAD. В конечном итоге от меня необходима 3D модель всего здания. Комплекты РД нужны на каждую квартиру отдельно. И вот в чем вопрос: Как разделить спецификацию одного этажа, т.к по умолчанию спецификация объединяется на весь этаж? С КЖ проще он объединяет по Щиту, а вот спецификация объединяет все если не брать в голову стояки, то сделайте введите этажи на нужных квартирах (планах) Quote Link to comment Share on other sites More sharing options...
Doctor_Che Posted July 11, 2019 Report Share Posted July 11, 2019 Протестировать не удалось копируем файл в папку с чертежами Скопировал при запуске просит указать директорию с проектом Не просил на листе "спецификация" жмем кнопку "запустить расчет" Нажал макрос отработал Макрос выдал ошибку «Compile error: Can't find project or library» В коде прописан путь «C:\Users\i.petukhov.SMU\Desktop\xml\», которого у меня естественно нет. Открываете редактор VBA Идете в Tools-References ставите галочки Жмете Ок. Сохраняете файл. на всякий случай перед запуском удалите все с листа SERVICE Аналогичная ошибка. Галочки стоят. Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 нужен скриншот кода на которой вылазит ошибка Quote Link to comment Share on other sites More sharing options...
Walkmax Posted July 11, 2019 Report Share Posted July 11, 2019 нужен скриншот кода на которой вылазит ошибка Как-то так Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 (edited) давайте так попробуем поставить галку и убрать галку Edited July 11, 2019 by Илья_500 Quote Link to comment Share on other sites More sharing options...
Walkmax Posted July 11, 2019 Report Share Posted July 11, 2019 Теперь так - Debug - Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 (edited) 1. скорее всего неправильно задана папка с проектом 2. открыт Электрик у вас на листе SERVICE должны появится пути там где лежит сам файл и путь проекта Edited July 11, 2019 by Илья_500 Quote Link to comment Share on other sites More sharing options...
Walkmax Posted July 11, 2019 Report Share Posted July 11, 2019 1. скорее всего неправильно задана папка с проектом как должно быть правильно? 2. открыт Электрик точно нет у вас на листе SERVICE должны появится пути там где лежит сам файл и путь проекта как это должно выглядеть скрин можно? при старте КБЖ.xlsm окно выглядит так - Quote Link to comment Share on other sites More sharing options...
Илья_500 Posted July 11, 2019 Author Report Share Posted July 11, 2019 нажимаем кнопку откроется выбор пути к проекту вибыраем Quote Link to comment Share on other sites More sharing options...
Walkmax Posted July 11, 2019 Report Share Posted July 11, 2019 Это было сделано, всё равно появляется сообщение что «БД открыта электриком» Quote Link to comment Share on other sites More sharing options...
Doctor_Che Posted July 12, 2019 Report Share Posted July 12, 2019 Это было сделано, всё равно появляется сообщение что «БД открыта электриком» Аналогично Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.