Полезные программы от Philin (строительство). VBA

вышлите ссылку на видео урок по установке

 

Самая первая страница ЭТОЙ ТЕМЫ, там есть архив soft3 и в нём есть видео. Внутри архива уже устаревшие версии программ. Если требуются последние версии, то придётся искать их в ЭТОЙ ТЕМЕ листая страницы начиная с этой к началу и собирая выложенные программы по одной.

 

Выкладываю очередной пакет программ для исполнительных съёмок в строительстве. Версия пакета 4.0

В пакет входят следующие программы, иконки к ним и инструкции:
- PloskH ver.0.4 (автоматическая программа черчения высотной исполнительной съёмки по плоскости)
- PloskHi ver.0.1 (автоматическая программа черчения высотной исполнительной съёмки дуговых/линейных пандусов и плоскостей)
- COM2ACAD ver.2.4 (приём данных с тахеометра в чертёж автокад через кабель передачи или файл минуя программы-посредники)
- Vinoska ver.1.1 (программа для упрощения вычерчивания различных типов выносок)
- AxeAndPointZ ver.3.8.1 (программа для черчения плановых исполнительных съёмок)
--- дополнения к AxeAndPointZ (программы СКАЗКИ)
- IspoRand ver.0.1 (автоматическое изменение ВСЕХ значений отклонений на выбранном слое в пределах указанного допуска)
- Razvorot ver.0.1 (программа для разворота стрелок отклонений от проекта)

Для двух последних программ инструкции пока нет. Установка и запуск программ производится по аналогии с другими программами (делаем всё по инструкции, заменяя только название программы).

Краткая инструкция для новых программ. Для работы программам требуется уже готовая исполнительная съёмка.

IspoRand
После запуска программа предлагает ввести в командной строке автокад значение допустимого отклонения от проекта.
Далее предлагает указать одно из текстовых значений отклонения от проекта вычерченных программой AxeAndPointZ.
Далее находит ВСЕ ТЕКСТЫ на слое с указанным значением и изменяет их на цифры в пределах от 0 до допуск минус 1.
Программа не затрагивает буквы В и Н в значениях отклонений, но если в найденном тексте нет этих букв, то программа считает что это цифры и заменяет текст на число в пределах от 0 до допуск -1

Пример работы программы:
После запуска указали допуск 21
Указали одно из значений отклонения от проекта
программа нашла следующие тексты на этом слое
- В12
- В3
- В8
- В19
- какой-то текст
- 23
- В6
- Н8

Изменённые программой значения могут выглядеть следующим образом:
- В0
- В14
- В3
- В5
- 9
- 20
- В18
- Н3

ВНИМАНИЕ!!! Если съёмка производилась по верху и низу, то после работы программы может оказаться что значение верха на максимуме допуска направлено в одну сторону, а значение низа на максимуме допуска и направлено в другую сторону (что по факту окажется ВНЕ ДОПУСКА). Для исправления таких ситуаций написана программа Razvorot.

Razvorot
После запуска программа показывает краткую инструкцию.
Далее предлагает ввести в командную строку автокад цифры от 1 до 3 или нажать Enter.

Если ввели цифру 1

• программа предлагает указать одну из стрелок отклонения от проекта вычерченных с помощью AxeAndPointZ
• определяет слой на котором находится стрелка отклонения
• разворачивает ВСЕ стрелки отклонения на этом слое на 180 градусов

Если ввели цифру 2

• программа предлагает выделить рамкой объекты на чертеже
• находит в выделенных объектах все стрелки отклонений вычерченных с помощью AxeAndPointZ
• разворачивтает на 180 градусов все стрелки попавшие в выделенную область
• программа разворачивает ТОЛЬКО СТРЕЛКИ AxeAndPointZ и не затрагивает никаких других объектов чертежа

Если ввели цифру 3 или нажали Enter

• программа предлагает указать одну из стрелок отклонения от проекта вычерченных с помощью AxeAndPointZ
• разворачивает выбранную стрелку на 180 градусов
• предлагает указать следующую стрелку
• выход из цикла клавишей ESC

Пакет программ был удалён в связи с выходом более нового пакета.

 

Хотел открыть новую тему, но решил чтол эта более подходит. А именно, Вы в процессе реализации программы COM2ACAD ver.2.4 использовали форматные файлы тажеометров для передачи координат с прибора в чертеж автокада. В связи с этим возникла идея, нельзя ли иимпортировать фаил измерений (угол,растояние) т.к. не всегда есть донные на исходные точки для ввода их в прибор и работы в координатах. И плтлм уже на компе с плана снять координаты (обратная засечка) и расчитать эту станцию набранных точек, и затем отобразить полученные точки на плане.

 

Извиняюсь, что влезаю... А уравнивание подразумевается?

 

А что уравнивать? Предположительно это отдельная станция. Только если при решении обратной засечки учесть допуски определения точки стояния.

 

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

 

Нет,нет, отдельный частный случай. Для всего остального есть такие монстры, как Кредо Дат и прочие.
А у Вас есть идеи на этот счет?

 

А кто мешает указать прибору точку стояния А с координатами 0,0 со сбросом угла на 0 на точку Б? Потом работа в координатах, переброс в автокад и посадка с разворотом на нужные координаты уже в автокад...
Просто знаю чем это всё заканчивается... Типа - "а нельзя ли так сделать....?"... Потом я начинаю делать, у вас исчезает интерес и в конце концов в готовой программе получается НЕДОДЕЛАННЫЙ блок кода.
Это я не просто так говорю. В программе уже есть такие блоки, блок работы с данными Nikon, блок работы с данными Trimble, блок работы с данными Leica...
Поначалу это нужно вам, но почему-то вы думаете что написать это "как два пальца об асфальт" и делается за 3 секунды, а в конце концов вы бросаете меня с недоделанным кодом в программе. Я даже не знаю РАБОТАЮТ ли эти блоки программы т.к. НЕТ У МЕНЯ ЭТИХ ПРИБОРОВ.

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

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

 

Ну нет так нет.Я просто спросил и не как не требовал от Вас никаких подвигов.Все зависит только исключительно от Вашего желания.Так что извините,если я лично обидел Вас своим вопросом.
З.Ы. Насчет "двух пальцев" - очень даже представляю.

 

Нет никаких обид.

Вы же скорее всего хотите просто сделать предложение и не приложить к его решению никаких усилий.

Для такой работы понадобится:
- полная документация на тот формат данных который вам нужен (у меня этого может просто не оказаться)
- на написание кода программы до 1 месяца
- на написание и оформление интерфейса до 1-2 недель (если писать для себя, то это не нужно)
- на написание инструкции и её оформление до 1-2 недель (тоже не нужно)
- после написания бета версии произвести полное тестирование программы во всех возможных вариантах (я этого сделать не могу по причине того что не провожу таких работ, да и прибор у меня может оказаться другого производителя. Даже если у вас будет такое желание и возможность, то отлов всех глюков может затянуться на год, т.к. нельзя сразу учесть все возможные варианты, но вы ведь сдадитесь через неделю-месяц)
Так в придачу эта работа одноразовая и нет огромной необходимости в ежедневном использовании программы, в лучшем случае она понадобится раз в год. Устал уже плодить неоконченные и ненужные проекты...

Для примера могу рассказать как появились две последние программы IspoRand и Razvorot.
Мне сказочно повезло, работаю на стройке, но никогда не рисую "сказочных" исполнительных. Поэтому и в программах для их выполнения никогда не было нужды.
Не так давно ко мне обратился геодезист. В отличие от меня ему не повезло (его случай скорее правило чем исключение) и приходится ежедневно рисовать сказочные чертежи. Он слёзно молил написать дополнения к AxeAndPointZ которые бы помогали рисовать сказку. Ему, как и многим другим, рисовать эту муру приходится по несколько раз в день ВРУЧНУЮ, либо с помощью всяких посредников типа эксель и пр., что тоже считай что вручную.
Мне было не очень интересно заниматься такими программами, тем боле что не очень чётко представлял как это должно выглядеть... поэтому попросил его написать подробное техзадание для программы. И каково было моё удивление, когда я получил полное техзадание с подробным описанием и набором чертежей для тестов через 3 дня. Сразу видно что человека действительно припекло не по детски.
В итоге за 5 последующих дней укладывал в голове проект с перепиской по почте и уточнением мелких деталей и за 36 часов написал код готовых программ. Геодезисты получили очередные полезные (надеюсь на это) программы, а мне достаточно и морального удовлетворения.

Всё это пишу для того чтобы вы поняли, что если человеку ДЕЙСТВИТЕЛЬНО это НУЖНО и когда его на самом деле уже ПРИПРЁТ, то он голову расшибёт чтобы помочь разработчику программы и самому себе. А на сей день можно почитать в этой теме форума только пространственные предложения от людей, которым не нужна рабочая программа, а нужна просто программка на один раз и им неважно что в итоге он попользуется ей всего 1 раз в жизни 5 минут (ну выполнил бы он эту работу без программы за 3 часа и не помер бы от этого), а кто-то писал её месяц-год.

Без обид.. Это так, крик души. Советовать у нас многие могут, а приложить усилия к решению проблемы готовы единицы.

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

 

Нууу! После получения такого "отлупа" не только руки опускаются.

 

Новая версия программы Razvorot ver.0.3. Программа разворачивает стрелки отклонений выполненных с помощью AxeAndPointZ

Изменения:
- включена возможность многократного повтора функции 1 без выхода из программы (выход по ESC)
- включена возможность многократного повтора функции 2 без выхода из программы (выход по ESC)
- функция 3 полностью переработана и больше не реагирует на сбой автокада когда пользователь не указал ни одного объекта выбора. Функция считает, что если автокад не смог передать ни одного объекта, то требуется вернуть последнюю стрелку отклонения к её первоначальному состоянию

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

 

как включается модуль разворот?)

 

Инструкция по установке VBA программ есть в 4-м пакете программ. Пакет можно скачать с первого сообщения данной темы.
Установка производится по аналогии с другими программами, изменения только в названии Razvorot. Это я писал сообщений 10 назад.

Ну прочитайте же pdf инструкцию наконец. Там всё разжёвано так, что 5-летний ребёнок поймёт. Если совсем непонятно даже по подробнейшей инструкции, то в том же пакете лежит ВИДЕОИНСТРУКЦИЯ, это дополнение к основной инструкции, позволяющее установить VBA программу в автокад младенцу.

 

Уважаемый Philin я элементарно установил все модули, все просто и понятно, единственное что, при вводе слова raz не высвечивался лог набора, поэтому и написал). Спасибо вам за огромную работу, очень помогает.

 

Очередная версия программы AxeAndPointZ ver.3.9

Что изменено:
- УДАЛЕНЫ все изменения версии 3.8.1 (часто глючит)
- УДАЛЕНЫ все изменения версии 3.8.2 (просто глючит иногда)
- УДАЛЕНЫ все изменения версии 3.8.3 (жестокий глюк)
- ДОБАВЛЕНА новая кнопка в окне программы "Выделить прямоугольником несколько точек"

Новая кнопка работает только тогда, когда требуется исполнительная съёмка по верху и низу.
Как ей пользоваться:
- после запуска программы включаем работу с индексами В и Н
- нажимаем новую кнопку
- окно программы исчезает
- программа просит выделить участок на активном чертеже
- внутрь выделяемого участка должны попасть минимум 2 точки съёмки (одна по верху и одна по низу)
- если выделили несколько точек, то среди них должна оказаться хотя бы одна точка по верху и одна точка по низу
- после выделения точек, окно программы появляется снова, а в поле для ввода высоты появляется рассчитанное из этих точек число
В рамку выделения могут попадать любые другие объекты чертежа кроме точек, но программа игнорирует их.
Кнопка сделана чисто для удобства. Раньше приходилось смотреть перед запуском программы высоты пары точек В и Н, рассчитывать середину, а теперь это делает программа.



PS Файл программы удалён в связи с выходом новой версии.

 

Очередная версия программы AxeAndPointZ ver.4.0

Изменения:
- поле для ввода масштаба текста и стрелок отклонений заменено на выпадающий список с готовыми значениями высоты текста
Стрелки отклонений масштабируются автоматически относительно высоты текста. При запуске программы список установлен на высоту текста 0,22м по умолчанию (это масштаб 1 в предыдущих версиях, т.е. ничего не изменилось).



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

PS Внутри архива только программа. Если установлена предыдущая версия программы, то для установки достаточно заменить старый файл новым (автокад не должен быть запущен во время замены файлов!).
PPS Может быть кто-то это читает :) Есть идея по дополнению программы новой возможностью. Текущая версия программы работает только с реально выполненными съёмками объекта. В принципе ей можно чертить исполнительные и без реальной съёмки, но это очень неудобно, да и нереальную исполнительную без реальных точек по В и Н невозможно выполнить этой программой, можно только без индексов. Хочу расширить окно программы вправо и дополнить программу возможностью чертить сказочно нереальные плановые исполнительные. т.е. включаем функцию, работаем программой аналогично базовой версии, но... неважно где мы тыкаем мышкой, значения отклонений будут писаться РАНДОМНО в пределах допуска... Два режима, в первом режиме через раз будет писаться В и Н, во втором режиме без В и Н. Стоит заморачиваться с этим?

PS файл программы удалён в связи с выходом новой версии.

 

Philin,
Даже не сомневайся! ( обожаю "подгонометрию" )....

 

Так ведь куда же без нее- "подгонометрии" .. Ждем релиза