[vl74]

Давно уже занимаюсь проектной деятельностью и заметил одну вещь - нет нормального способа оформлять расчеты. Понятно - NormCad, "ом снип железобетон", модули SCAD, в LIRA есть расчеты узлов стыков и баз металлических конструкций (с подробным протоколом расчета по пунктам нормативов).
Сам я изобретал велосипед - расчеты в EXCEL, но там сложности с вставкой формул и последующей постановкой значений переменных.
Но когда надо быстро сделать отчет с рисунками и формулами - иногда проще вручную, чем в WORDе.

И я решил попробовать WORD+VBA. Не самый простой вариант, но документ получает сразу конечный вид.
За основу взял пример 22 пособия к СП 52-101-2003, скопировал текст и в VBA набрал программу.
Пример выложил, голубым цветом отмечены вводимые данные, коричневым - результаты расчета. После ввода данных нажмите CTRL+Q
Он не совсем идентичен тексту примера, но тут уж издержки расчета.

И по-моему в примере ошибка с определением коэффициента nu_v (он не равен 1 , его нужно считать по формуле 3.86). Но в файле оставил как в примере.


ПОПРАВКА - в примере нет ошибки.

[sp1ash]

Пытаюсь изменить значение h, жму Ctrl+Q, выдает "Type mismatch". ЧЯДНТ?

[vl74]

Точно число вводите? А то не пойму ЧЯДНТ!

[v.psk]

Сообщение от vl74 Сам я изобретал велосипед

и я...
последнее что пробовал - libreoffice calc+math
- связка позволяет заполнять сложные формулы /я вставлял циклами полученные расчетом str/.

отличная работа - http://webcad.pro/
- чем сделано не знаю.

[sp1ash]

ЧЯДНТ = что я делаю не так. Числа ввожу разные, и 400, и 600. Не проверил сразу только самое явное - даже ничего не изменяя, по связке Ctrl+Q вылезает этот "Type mismatch".

[Бахил]

Сообщение от sp1ash ЧЯДНТ?

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

----- добавлено через ~7 мин. -----
vl74, не понял вопроса. Или просто выложил для всеобщего использования?

[vl74]

Да это не вопрос - просто как готовый расчет выложил. Интересно опытом поделиться.
А насчет проблемы - у меня MS OFFICE 2010 х64, может версии отличаются?
А вообще новый редактор формул довольно глючная вещь.

----- добавлено через ~3 мин. -----

Сообщение от v.psk отличная работа - http://webcad.pro/ - чем сделано не знаю.

JAVA SCRIPT - гляньте исходный код страницы.

[Бахил]

Сообщение от vl74 А вообще новый редактор формул довольно глючная вещь.

Это так. Почему то высота формулы всегда одинаковая. В результате в дробях шрифт уменьшается. Можно ли как то увеличить высоту формулы?
Что касается "ЧТЯНД" sp1ash, то причина именно в десятичном разделителе.
У меня 10-32, заработал после замены точки на запятую.

----- добавлено через 58 сек. -----
Вообще то VBA не меняется с момента возникновения.

[vl74]

Сообщение от Бахил Вообще то VBA не меняется с момента возникновения.

И это хорошо
Чтобы высота формулы не уменьшалась - поменяйте ее тип на "отображаемый", но тогда нельзя печатать текст в той же строке.
Насчет точки или запятой - у меня работает в обоих случаях.

[Бахил]

Спасибо. Но это не дело. Я просто пишу формулы в экейшен.

[vl74]

Сообщение от sp1ash ЧЯДНТ = что я делаю не так. Числа ввожу разные, и 400, и 600. Не проверил сразу только самое явное - даже ничего не изменяя, по связке Ctrl+Q вылезает этот "Type mismatch".

Точно, разделитель - запятая, тогда глючит.
Надо сделать точку и все работает.
Надо допиливать.

Поправил, и скорректировал расчет в сторону увеличения nu_v.

[AY]

Непревзойденное (как утверждают с 1978г. т.е. уже 36 лет) средство для верстки математики это TeX (LaTeX). И что удивительно, вещь очень мало известная в нашем инженерном сообществе. Физики и математики еще более или менее пользуются, а с нашим братом совсем туго. Вещь сильная, но порог вхождения относительно высок — для использования нужно прочитать книгу, а лучше две :) и постоянно пользоваться при работе справочником.

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

Для интересующихся выкладываю кое-какие примеры расчетов в Ворд >= 2007.

[vl74]

Не спорю - онлайн расчеты тоже можно использовать, но ситуация - сайт закрылся и все, приехали.
А расчеты в Ворде - это, конечно, слишком муторно.

[ShaggyDoc]

А расчеты в Ворде - это, конечно, слишком муторно.

По этому поводу ещё древние греки говорили: "У каждого жулика свой расчет". А французы расширили: "Месье знает толк в извращениях".

Ну зачем нужны именно расчеты в Ворде? Чтобы оформить "красиво"? Чтобы были многоэтажные формулы с греческими символами и математическими знаками? А потом расшифровка "по цифиркам"?

Да, всё это часто необходимо. Желательно, чтобы всегда расчеты были достойно оформлены. И не только с формулами, но и на форматке, со "штампами", подписями, названиями объекта, здания. Чтобы хоть в архив, хоть в экспертизу. Но для этого совсем не надо использовать именно Word, а для написания формул совсем не надо именно TeX (LaTeX), который долго изучать надо.

Каждый постоянно сталкивается с множеством небольших расчетов, наподобие приведенных в webcad.pro_Примеры_расчетов.docx. Явно видна кустарная ручная работа, которая хорошо выполнена, но и к ней претензии могут быть - для какого объекта, кто сделал, откуда взялись данные, что все эти закорючки означают. Это ведь тоже важно в плане оформления, мало ли что "все знают", что Mmax - это момент. Расчет-то оформляется для "прокурора", а он не знает.

Да и в Ворде уже понадобился VBA со всеми его "приколами" и "фичами". Но, если уж дошло до программирования, то надо серьезно делать. Вот примерная технология:

1. Разрабатываете отдельную программу - сборник таких не очень сложных расчетов. Написать "арихметику" любого такого расчета каждый сможет.
2. Данные для расчетов хранятся в базе данных. Можно в локальной, для простоты, например в MDB.
3. Для каждого вида расчета своя таблица в базе данных со своей структурой и формами ввода. В таблице могут быть и вычисляемые поля.

Для примера прилагаю фрагмент отчета с расчетами, скриншот программы с вводом данных для знакомого всем расчета сопротивлений теплопередаче, и фрагмент скриншота генератора формул - освоить его можно за 10 минут.
4. Должен быть генератор Отчета, который выводит результаты в требуемой форме и форматах - хоть на печать, хоть для вставки куда-то, например в тот же Ворд. Форму отчета надо сделать по-хитрому. Лучше все расчеты выводить в табличном виде с графами наподобие Параметр, Ед.изм, Формула, Расчет, Результат, Примечание.

При вводе или изменении любого значения данные пересчитываются. В этом же событии может генерироваться текст для поля Расчет в виде строки с "цифирками". Именно строки. Незачем извращаться, чтобы сделать сам расчет в иде "простой дроби", вполне пригодна и строка, в том числе с заменой "корней" на функции. А вот Формула должна быть в "математическом" и "сниповском" виде. Но её надо сделать один раз в виде растра

И, чтобы получить любой расчет (а может быть и все расчеты по объекту разом, в виде готового тома) щелкаете кнопку и получаете результат.

Кстати, для любителей VBA - всё, что перечислено в пунктах 1-4 можно сделать и в MS Office, только не в Word, а в MS Access, она специально для этого и разработана. Всё ваше приложение и данные будут в одном файле.

[Boxa]

и чего в одной теме то не сиделось... http://forum.dwg.ru/showthread.php?t=92154

[ShaggyDoc]

и чего в одной теме то не сиделось...

В той теме ровна два года обсужают "а вот бы...", но без каких-либо результатов. Это обычное "колхозное собрание". А здесь человек для себя поставил конкретную задачу. Я подсказываю, как можно её решить - быстро и эффективно.

[vl74]

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

[CRISTOFF]

Есть несколько таких простеньких расчётов, оформленных в Mathcad. Ни разу экспертиза не высказалась против.

[vl74]

Ковыряю mathcad. Вопрос такой: часто в нормах есть условие типа

если a>1 то b=f1(a)
иначе b=f2(a)

Как скрыть промежуточные вычисления, чтобы в итоге было:

так как a=5 > 1, принимаем b= f1(a)=....

[AY]

Сообщение от ShaggyDoc Явно видна кустарная ручная работа, которая хорошо выполнена, но и к ней претензии могут быть - для какого объекта, кто сделал, откуда взялись данные, что все эти закорючки означают. Это ведь тоже важно в плане оформления, мало ли что "все знают", что Mmax - это момент. Расчет-то оформляется для "прокурора", а он не знает.

Предполагается, что показанные расчеты существуют не сами по себе, а в составе пояснительной записки, где и указан объект, исполнитель и откуда взялись данные и сро и "чего вам там еще надо". На счет того, что бы расписать каждую букву в расчете - каких-либо сложностей нет, но с моей точки зрения излишество которое затрудняет чтение расчета (исключая тот сулчай, когда у нашего "жулика" зарплата зависит от толщины пачки макулатуры). Отсылка к прокурору сомнительна, едва ли он будет проверять расчеты - позовет эксперта Иванова-Петрова-Зуева, они и разберутся, а скорее всего и разбираться не станут, а сделают свои ("У каждого жулика свой расчет") и сверят результат.

Сообщение от ShaggyDoc Лучше все расчеты выводить в табличном виде с графами наподобие Параметр, Ед.изм, Формула, Расчет, Результат, Примечание.

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

p.s. Сергей Александрович, а не знаете ли где взять данные по зонам влажности (карта зон влажности из приложения «В» СНиП 23-02-2003) соотнесенные с населенными пунктами из списка СНиП 23-01-99 «Строительная климатология»?