Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

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

Тема в разделе "Autodesk", создана пользователем Philin, 20 ноя 2010.

  1. serg vrn

    Регистрация:
    13 дек 2012
    Сообщения:
    1
    Симпатии:
    0
    Адрес:
    sergey.20@bk.ru
    вышлите ссылку на видео урок по установке
     
    #181
  2. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Самая первая страница ЭТОЙ ТЕМЫ, там есть архив soft3 и в нём есть видео. Внутри архива уже устаревшие версии программ. Если требуются последние версии, то придётся искать их в ЭТОЙ ТЕМЕ листая страницы начиная с этой к началу и собирая выложенные программы по одной.
     
    #182
  3. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Выкладываю очередной пакет программ для исполнительных съёмок в строительстве. Версия пакета 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
    Пакет программ был удалён в связи с выходом более нового пакета.
     
    #183
  4. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Хотел открыть новую тему, но решил чтол эта более подходит. А именно, Вы в процессе реализации программы COM2ACAD ver.2.4 использовали форматные файлы тажеометров для передачи координат с прибора в чертеж автокада. В связи с этим возникла идея, нельзя ли иимпортировать фаил измерений (угол,растояние) т.к. не всегда есть донные на исходные точки для ввода их в прибор и работы в координатах. И плтлм уже на компе с плана снять координаты (обратная засечка) и расчитать эту станцию набранных точек, и затем отобразить полученные точки на плане. ::smile24.gif::
     
    #184
  5. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    946
    Адрес:
    Новосибирск
    Извиняюсь, что влезаю... А уравнивание подразумевается?
     
    #185
  6. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    А что уравнивать? Предположительно это отдельная станция. Только если при решении обратной засечки учесть допуски определения точки стояния.
     
    #186
  7. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    946
    Адрес:
    Новосибирск
    Я потому и спрашиваю. Если одна станция, определение обратной засечкой или ориентированием и все на этом, то это частный случай. А вот если несколько станций, хода и засечки, то это, можно сказать, громадный проект, подразумевающий и уравнивание и отчетность и т.д. и т.д. ::smile24.gif::
     
    #187
  8. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Нет,нет, отдельный частный случай. Для всего остального есть такие монстры, как Кредо Дат и прочие.
    А у Вас есть идеи на этот счет?
     
    #188
  9. Philin

    Форумчанин

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

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

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

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Ну нет так нет.Я просто спросил и не как не требовал от Вас никаких подвигов.Все зависит только исключительно от Вашего желания.Так что извините,если я лично обидел Вас своим вопросом.
    З.Ы. Насчет "двух пальцев" - очень даже представляю.
     
    #190
  11. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Нет никаких обид.

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

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

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

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

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

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

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    Нууу! После получения такого "отлупа" не только руки опускаются.::biggrin24.gif::
     
    #192
  13. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Новая версия программы Razvorot ver.0.3. Программа разворачивает стрелки отклонений выполненных с помощью AxeAndPointZ

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

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

    Форумчанин

    Регистрация:
    31 мар 2012
    Сообщения:
    25
    Симпатии:
    0
    как включается модуль разворот?)
     
    #194
  15. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Инструкция по установке VBA программ есть в 4-м пакете программ. Пакет можно скачать с первого сообщения данной темы.
    Установка производится по аналогии с другими программами, изменения только в названии Razvorot. Это я писал сообщений 10 назад.

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

    Форумчанин

    Регистрация:
    31 мар 2012
    Сообщения:
    25
    Симпатии:
    0
    Уважаемый Philin я элементарно установил все модули, все просто и понятно, единственное что, при вводе слова raz не высвечивался лог набора, поэтому и написал). Спасибо вам за огромную работу, очень помогает.
     
    #196
  17. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Очередная версия программы AxeAndPointZ ver.3.9

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

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

    [​IMG]

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

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.557
    Симпатии:
    2.084
    Адрес:
    Москва
    Очередная версия программы AxeAndPointZ ver.4.0

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

    [​IMG]

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

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

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

    Форумчанин

    Регистрация:
    29 июн 2011
    Сообщения:
    894
    Симпатии:
    578
    Адрес:
    Витебск
    Philin,
    Даже не сомневайся! ( обожаю "подгонометрию" ::facep:: )....
    ::popcorm1.gif::
     
    #199
  20. Purgen

    Регистрация:
    11 мар 2010
    Сообщения:
    21
    Симпатии:
    4
    Адрес:
    Москва
    Так ведь куда же без нее- "подгонометрии" .::smile24.gif::. Ждем релиза ::smoke1::::drink1.gif::
     
    #200

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление