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

Philin cпасибо огромное на отписку настроил все получилось!!!

 

В программе всегда каждая горизонталь кратная целому числу метров была красная, остальные синие. На скрине "предварительно" шаг горизонталей был 0,25м, на видео шаг 0,5м.

Все горизонтали специально одной толщины и не стандартного цвета. Кому как надо, тот так их утолщит и перекрасит. Всё равно придётся проверять правильность проведения горизонталей программой и после проверки каждой горизонтали можно сразу её перекрасить и задать нужную толщину.

В названии этой темы - "строительство". Одно дело чертить обычный топоплан и совсем другое для проектировщиков в строительстве. Первым делом их интересует величина общего перепада высот поверхности на местности будущего строительства. Если я им начерчу топоплан по всем правилам, то они его просто выкинут, он им не даёт никакой информации. Зато если начертить горизонтали, отметить цветом горизонтали кратные целому числу метров, то даже даун сможет просто посчитать количество красных горизонталей от одного края участка строительства до другого и точно будет знать общий перепад высоты на всём участке. В итоге получается, топограф чертит план для себя, а при проектировании проектировщик максимум что может из него использовать так только сами точки съёмки. Всё это вполне работает пока у нас достаточно горизонтальная поверхность, но как только появляется объект с большим перепадом высот.... начинается писец.
Что получает проектировщик - план с планово высотными точками и ситуацией (без горизонталей, потому что горизонтали неудобны для расчётов. Не будет проектировщик раздумывать какие тут применимы правила утолщения горизонталей... через 4 или 5... и нет ему дела до полугоризонталей). Первым делом он считает отметку "нуля" строительства. Как он это делает - складывает все высотные отметки в пределах участка строительства и делит их на количество отметок (таким образом находит среднюю отметку и приравнивает её к "нулю" строительства). Рельеф он при этом не видит.

Теперь реальный случай из практики.
(высотные отметки условные) У проектировщика есть план площадки строительства такого вида:


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

Пока это только бета... Идёт тест. Позже выложу в "ресурсы" форума и тема сама создастся.

Ужс-ужс :)

 

Жаль.Хреновый геодезист не нарисовал рельеф или отметок на площадке набрал лихнй строитель которому изычкания на х..... упали

 

Ввёл масштаб, но программу пока не выкладываю. Надеюсь что будут выходные и смогу разобраться с "узлами" в горизонталях. Развяжу узлы и выложу версию без узлов и с масштабами.

Выглядеть это будет примерно так:

 

Philin, подсоби тока нашел время, чтобы разобратся с твоей программой aCAD2TXT, все добавил загрузил в автозагрузку, создал кнопочку но при ее нажатие вылезает такое окошечко, чувствую, чтото делаю не так, а вот что... (((

И вот такую фразу: "aCAD2TXT.dvb!aCAD2TXT.StartProgram Execution error"

Автокад у меня 2004... Система ХР.

 

Должно работать без танцев с бубном. Версия программы какая? Бета6 или Бета8? Если не Бета8, то проблема в этом.

Скачать aCAD2TXT Beta8

 

в том то и дело что восьмая, лано еще поковыряю, мож что не так сделал, а не может быть ошибки в макросе на кнопку?

 

Вряд ли. Если будет ошибка в макросе, то сообщение будет в командной строке и иметь вид типа


Ошибка 5 говорит о том, что программа запустилась и обнаружена проблема внутри программы.

Возможно была установлена версия бета6, потом запущен автокад, скачана версия бета8 и была произведена попытка заменить старый файл программы на новый (при запущенном автокад). В итоге автокад заблокировал возможность изменить программу, удалил новую версию, заменил её старой. В таком случае у вас получаются две версии бета6 и нет ни одной бета8.
Просто нельзя заменять VBA программы при работающем автокад. В большинстве случаев это приводит к тому, что оба файла (и заменяемый и тот на который заменяют) автокад автоматически перезаписывает таким файлом, который находится в папке Support (ему всё равно что это две разные версии программы, так работает его система защиты от VBA вирусов).

PS Проверил работу. AutoCAD 2004 (Eng), Windows XP, aCAD2TXT v.Beta8

Работает:


PPS Чертёж открыт для работы программы? Или опять ситуация как описано страниц 5 назад... когда вываливалась ошибка из-за того, что пользователь пытался получить каталог координат из пустого чертежа, который создан при открытии автокад.

 

Philin, походу я понял в чем мой косяк, правда еще не проверял, т.к. еще в полях, я прогу на автозагрузку повесил, а она как я понял должна просто лежать в папочке суппорт? И запускатся кнопочкой?

 

Не лучший вариант. Видимо установка была не по инструкции :)
А вдруг это вирус? :) Это же VBA, он вообще может являться частью dwg чертежа и передаваться не в виде отдельного файла (dvb), а вообще как обычный чертёж dwg.

Скорее всего в этом и дело.

Для любителей прописать VBA программу в автозагрузку (не касается тех, у кого автокад версии до 2010). Прописывание VBA в автозагрузку приводит к тому, что при запуске автокад первым делом инициализирует VBA, а это, в свою очередь, приводит к увеличению времени загрузки автокад в 10-20 раз(!). Для старых версий автокад (2000-2009) это не актуально, там VBA является частью автокад. Т.е. новые версии автокад и так супертормоза, так вы ещё и замедляете время их загрузки в десятки раз.

Читаем внимательно инструкцию по установке. Для автокад 2004-2005 там отдельная тема даже есть.

 

Вроде получилось, появилась еще одна напасть:

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

 

"Горизонгали" на W7-32 A2014 не запускается.Может только у меня.

 

У меня тоже не запускается! Win7-64 AutoCad2012. Выдает окошко Microsoft Visual Basic с текстом Compile error in hidden module: Gorizontali

 

Ответ на эту тему был дан уже неоднократно. Вот один из них - тыньц.

Зачем запускать программу с пустым чертежом? Координаты чего вы хотите получить? У вас же WinXP, а такое сообщение в этой операционной системе может появляться только в этом случае (пустой чертёж, который не загружен с диска, а находится только в памяти компьютера). Для Win7 и Win8 такое также может быть из-за системы защиты Windows, антивируса или гороскопа на сегодняшний день...

А что должна сделать программа, если ей для работы дают пустой лист чертежа? Сохранить в файл координаты чего?
Или выбран режим для черчения полилиний с отступом, а на указанном слое нет полилиний. Или указан слой для работы, а на слое ничего нет. Тогда надо либо указать другой слой, либо сменить режим на:


Если программа нашла на указанном слое объекты для создания каталога координат, то появится окно типа:


PS Сам уже запутался. Если вышло первое сообщение ("сбой программы"), то программа в нём пишет куда денет каталоги координат. Второго сообщения не будет, т.к. оно появляется только в нормальном режиме работы программы.

 

Philin, спасибо за долготерпение, ну что поделать ну не догоняю...))) завтра попробую сегодня комп грузить ну совсем....

 

Извиняюсь, мой косяк :)

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

Полдня потерял разбираясь почему же она не работает на других компьютерах :)

Выкладываю версию Бета2. Отвязана от моего компьютера и будет работать на любом другом.
Параллельно проверена работа на следующих системах и версиях автокад:

• Windows XP + AutoCAD2004, AutoCAD2007, AutoCAD2008, AutoCAD2009
• Windows7 + AutoCAD2011
• Windows7 x64 + AutoCAD2012(x64), AutoCAD2014(x64)

Пакет программ также включает три программы: Gorizontali, GorUnion, GorBreak. Иконки к программам и файл адаптации CUI для создания панели и кнопок в Autocad версий 2009 и более новых.
Программа GorUnion также более новая по сравнению с той, которая была в прошлом пакете.

PS Для тех кто не в теме. Краткое описание и видеоинструкцию можно посмотреть здесь.
PPS По результатам тестирования замечена одна странность. Скорость работы программы зависит от версии автокад (это как раз нормально). Т.е. один и тотже тестовый файл автокад 2004 обрабатывает за 3,3 секунды, Автокад2014 (x64) за 24 секунды. Это если не брать в расчёт результаты автокад 2012 (x64), ему на этот файл потребовалось 1804(!)секунды... это же больше получаса . Хотелось бы узнать результаты скорости работы у вас. В реале время обработки не должно превышать 20-30 секунд.

 

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

 

Этим и собирался заняться в выходные. Но выходные оказались рабочими :)

Указанное максимальное расстояние между соседними точками съёмки больше чем расстояние между некоторыми соседними точками вашей съёмки.

Сложно, но вполне решаемая задача. Но можно это сделать уже сейчас, без такой функции :) Достаточно выбрать все точки внутри контура и переместить их на другой слой. Если, после этого, указать программе слой с точками внутри контура, то она только их и обработает. Если указать слой с точками снаружи контура, то получим горизонтали только снаружи контура :)

 

А! Понятно.

Как вариант-пойдет.

 

В прикрепленном файле - правый угол

--- Сообщения объединены, 25 ноя 2013, Оригинальное время сообщения: 25 ноя 2013 ---

Philin, Правый угол чертежа