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

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

Войти

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

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

  1. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Ну тогда он сам себе злобный буратино ;)
    Программа АВТОМАТИЧЕСКАЯ и предполагает изменения значений созданных другими ПРОГРАММАМИ. Если что-то пытаться изменить вручную, то после этих изменений программа посчитает что это просто числа и будет работать с ними не как с отклонениями В и Н. При этом она сотрёт написанные вручную В и Н и напишет ЧИСЛО без букв.
    Ррррррррр... Зачем менять что-то вручную, когда есть автоматическая изменялка? Она же тупая как валенок, просто знает как именно выглядят значения написанные другими программами и изменяет их так чтобы не менять синтаксиса написания этих значений... она понятия не имеет как может написать пользователь эти значения.

    Спорное утверждение. Во всяком случае программе всё равно на каких слоях находятся значения. Она работает со значениями на указанном слое, НО сама определяет чем является каждое найденное значение (высотная или плановая съёмка) и работает с каждым значением отдельно. Да, остальные мои программы работают на созданных ими слоях, но для работы IspoRand никто не запрещает ВСЕ значения с разных программ поместить на один слой и отработать их одним кликом сразу все. Именно поэтому в программе IspoRand нет выделения и лишних кнопочек для плановых, высотных и пр. съёмок, только в форме для ввода параметров эти виды съёмок отделены графически чтобы не путаться при вводе.

    В некоторых версиях 14 она работает. Видимо Autodesk опять что-то намудрила :) Есть подозрения, что в 15 акаде будет полная отмена VBA. Ну туда им и дорога. Не знаю кто будет писать на их "волшебном" .Net т.к. четверть программ для геодезии написать на .Net физически невозможно (полностью отсутствуют некоторые требующиеся функции, а писать их с нуля.... это тратить годы).
     
    #281
  2. Advent

    Регистрация:
    25 авг 2013
    Сообщения:
    3
    Симпатии:
    0
    Адрес:
    Калужская Обл. Г. Боровск
    )) второй вариант рисуется только Н а значек В вобще не рисуется. Подразумевается AxeAndPointz
    --- Сообщения объединены, 3 сен 2013, Оригинальное время сообщения: 3 сен 2013 ---
    Я все ровно плохо понял что нужно сделать чтобы появилось значение В ну и Н.
     
    #282
  3. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Чертёж с точками съёмки и самими объектами съёмки можно увидеть? А то мы так месяц будем общаться через форум. Вдруг это какая-то редкая ошибка программы.
    И версия AxeAndPointZ какая у Вас? Последняя рабочая версия 4.4 и есть ещё 4.5 (работающая не совсем по инструкции пользователя и только что удалённая из общего доступа).
     
    #283
  4. Sashko

    Форумчанин

    Регистрация:
    15 дек 2010
    Сообщения:
    19
    Симпатии:
    62
    Здравствуйте Philin.
    Очень благодарен Вам за Вашу работу по автоматизации нашей (геодезистов) работы в Автокаде. Ваши макросы невероятно облегчают и ускоряют рутинные процессы оформления исполнительных и подготовку файлов разбивок.

    Подскажите можно ли как-то адаптировать Ваши программы под Civil 2014?
    Из 8-ми программ, к сожалению работает только 3.((
    Ниже написал, что пишет Кад при загрузке макросов.

    Был бы очень признателен за помощь в решении этой проблемы.

    "Команда: _-vbarun
    Имя макроса: AxeAndPointZ.dvb!AxeAndPointZ.StartProgram Ошибка при выполнении

    Команда: _-vbarun
    Имя макроса: IspoRand.dvb!IspoRand.StartProgram Ошибка при выполнении

    Команда: _-vbarun
    Имя макроса: Razvorot.dvb!Razvorot.StartProgram Ошибка при выполнении

    Команда: _-vbarun
    Имя макроса: COM2ACAD.dvb!COM2ACAD.StartProgram Ошибка при выполнении

    Команда: _-vbarun
    Имя макроса: aCAD2TXT.dvb!aCAD2TXT.StartProgram Ошибка при выполнении"
     
    #284
  5. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Здравствуйте.

    Попробую что-то сделать, но маловероятно.
    Потому, что:
    - не один год меня на этом форуме пытаются уверить в том, что занимаюсь фигнёй, что всё это уже давно есть в сивиле и отлично работает. Поэтому на сивиле даже не тестирую программы, "там это всё есть" - пользуйтесь на здоровье
    - по данным Autodesk только для установки и запуска сивил 3D 2014 требуется не менее 4Гб оперативной памяти, а для минимальной работы в нём требуется 8Гб и более. У меня всего 3Гб памяти и этот сивил даже не запустится

    PS выпустил пакет программ специально адаптированный под AutoCAD 2014 x64 (проверено и работает). В пакете отсутствует программа COM2ACAD т.к. она физически неспособна работать в x64 режиме в автокад 2014. Скачать пакет можно ЗДЕСЬ.
    С большой долей вероятности этот пакет будет работать и в Civil 3D 2014. Дальнейшая поддержка этого пакета не планируется.
    Адаптированные программы едят в 2 раза больше оперативной памяти и работают в 3-4 раза медленнее чем стандартные. Пользуйтесь этим "преимуществом" x64 в полной мере :)
     
    #285
  6. 1Geoomsk

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    41
    Симпатии:
    1
    • aCAD2TXT ver.Beta6 (программа для создания каталога координат (файл SDR и файл TXT) угловых точек полилиний с указанным отступом от объектов или полилиний и прочих примитивов автокад без отступа). Вышла новая версия программы Beta8, касается всех у кого Win7/8 выдаёт ошибку 5 при запуске программы. Скачать её можно ЗДЕСЬ.
    • Есть новая версия aCAD2TXT ver.Beta6 ? А то на как и говорилось на вин 7-8 не работает. выдает ошибку когда пытаюсь получить координаты с полилиний.
    • Выйдет ли aCAD2TXT для прибора Leica?
     
    #286
  7. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    А свой же репост моего сообщения прочитать невозможно? Я на каком языке пишу? Вроде написано, что есть версия БЕТА 8 и даже ссылка на её скачивание в репосте присутствует.
    Если не работает в версии бета 8, то тогда уже надо смотреть чертёж на котором не работает.

    Прочитать инструкцию пользователя Leica, загрузить в прибор форматный файл для SDR формата (который присутствует на диске, поставляемым с прибором) и пользоваться данными для Sokkia SDR не позволяет вера?

    Вот примерное описание этого "безобразия" Leica. НЕ НАДО ПО НЕМУ ЧТО-ТО ДЕЛАТЬ!!! Читайте инструкцию именно на свой прибор!
    [​IMG]

    PS да и не обязательно использовать именно SDR формат. Программа создаёт два файла координат: SDR и текстовый файл с разделителями запятая
     
    #287
  8. Sashko

    Форумчанин

    Регистрация:
    15 дек 2010
    Сообщения:
    19
    Симпатии:
    62
    Огромное спасибо, Philin!
    Хорошо, что есть такие специалисты как Вы!

    CAD2TXT к сожалению тоже не работает.(( Жаль.
     
    #288
  9. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Пожалуйста.

    (только для AutoCAD 2014x64)

    Сделал новый пакет. В нём эта программа работает. Скачать можно ТУТ
     
    #289
  10. Sashko

    Форумчанин

    Регистрация:
    15 дек 2010
    Сообщения:
    19
    Симпатии:
    62
    CAD2TXT Работает. Но! Только если задать смещение для полилинии. В остальных случаях "ошибка при выполнении".

    Все остальные макросы, кажется, работают хорошо.
    Сказал спасибо на Яндекс-деньги.
     
    #290
  11. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Проблема решена. В общем-то её и не было.
    Программа работает с готовым открытым файлом чертежа. Если просто открыть автокад, начертить что-то в якобы файле "Чертёж1" и попытаться запустить программу... то произойдёт ошибка т.к. программа не сможет определить путь на диске к этому файлу (его нет, он находится только в оперативной памяти).
    В принципе... в таком случае программа пытается сохранить все данные каталогов координат в корень диска С: Но не всегда это возможно.
     
    #291
  12. Sashko

    Форумчанин

    Регистрация:
    15 дек 2010
    Сообщения:
    19
    Симпатии:
    62
    Спасибо.
     
    #292
  13. Advent

    Регистрация:
    25 авг 2013
    Сообщения:
    3
    Симпатии:
    0
    Адрес:
    Калужская Обл. Г. Боровск
    Честно это не какой не случай так как исполнительную которую делаю нет съемки поэтому это просто обычный чертеж. Как можно задать букву В для этого случая если это вообще возможно, а по поводу версии я не знаю)) где посмотреть так то воде все работает.
     
    #293
  14. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Программа не рассчитана на работу без реальных точек съёмки. Если нет точек, то единственное что можно сделать это указать программе сначала высоту 1, далее отрисовать всю съёмку по низу. Потом закрыть программу, запустить снова и указать ей высоту -1 и отрисовать съёмку уже по верху.

    При запуске, в главной форме программы всегда указана её версия.
    Вот скрин с последней версией программы (отсутствует на форуме, выложена только 4.4):
    [​IMG]
     
    #294
  15. tonatas

    Форумчанин

    Регистрация:
    6 июл 2012
    Сообщения:
    35
    Симпатии:
    20
    Добрый день, возможно ли сделать так, что бы выбор точки А был в произвольных точках(без привязок), такая ситуация возникла вследствии того, что подложка - растр, обрисовывать который очень бы не хотелось, также пригодиться, если исходники - блок. Если это возможно, добавьте эти функции в программу, думаю, не только мне пригодиться, спасибо.

    Да, еще один вопрос, можно ли сделать так, что бы настройки привязок не сбрасывались после выбора точки А? Спасибо.
     
    #295
  16. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Добрый день.
    О какой программе хоть идёт речь? AxeAndPointZ? Чертёж с примером можно увидеть, а то на слух что-то не очень понимаю причину проблемы.
    Исходники чего являются блоком? Точек? Если точек, то почему это блок, а не точки?

    Какая программа?
    Зачем это надо?

    PS Ребус какой-то :) На этом форуме выложено не менее 10 моих программ, а в итоге я должен догадываться о чём речь...
     
    #296
  17. tonatas

    Форумчанин

    Регистрация:
    6 июл 2012
    Сообщения:
    35
    Симпатии:
    20
    Извините за не очень корректный вопрос. Попробую уточнить. Да, вы правильно поняли, программу я имел ввиду AxeAndPointZ. Под исходником я имел ввиду подложку (проектанты цифру не дают, приходится сканировать план). Суть вопроса - возможно ли при выборе точки А(проектного положения) сделать так, что бы помимо выбора "линии/дуги-оси" появилась возможность произвольной точки автокада без привязки? Аналогичная ситуация возникает, если подложка представлена блоком, то есть весь план, полученный от проектантов представлен единым неразделимым блоком(точнее разделимым, но это дополнительное время с корректировкой размеров и прочим).
    Касаемо привязки: при выполнении программы AxeAndPointZ в настройках привязки остается только привязка "узел", как сделать, чтобы все остальные привязки оставались активными? Нужно для привязки к точке В(отснятой, то есть фактической). Да, если важно автокад 2006. Спасибо.
     
    #297
  18. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Опять не совсем понимаю. Проектное положение для программы это всегда не точка, а линия, дуга, окружность, полилиния. Точкой для программы является фактическое положение.

    Не вижу никаких проблем. У меня вообще 9 из 10 объектов есть только на бумаге и все до единого чертежа приходится чертить вручную.
    А если проектировщики дают электронку, то даже в самом сложном случае приведение этой электронки к нормальному виду занимает максимум 5 минут времени (если я вас более-менее правильно понял, то что вы хотите это совсем другая программа... Её написание потребует минимум 2 месяца. Сравните трудозатраты - кому-то жалко потратить 3-5 минут, а кому-то другому для этого надо потратить 2-4 месяца). Кстати, ускорения работы программы не будет, там придётся показывать точки начала-конца, потом точки съёмки... это будет всё долго и писать такое не вижу смысла.

    А вот тут я вообще в осадок выпадаю и зависаю на неделю :)
    Да, в настройках привязка только к (узлу, точке). Эту самую точку рисует COM2ACAD, а также может нарисовать и практически любая другая программа приёма координат из файла или COM порта. Так это и есть фактическая точка съёмки. Что-то я не пойму. Тут всё с ног на голову... Как-будто с прибора приходит проект, а в чертеже находится факт.

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

    Версия программы какая?
    И, в общем:
    - проект это всегда какая-то линия (привязка либо отключена, либо включена та, которая бвла активна до запуска программы)
    - факт это всегда точка (привязка только к точке)
    Что тут не так?
     
    #298
  19. tonatas

    Форумчанин

    Регистрация:
    6 июл 2012
    Сообщения:
    35
    Симпатии:
    20
    Я Вас понял, просто надеялся, что это сделать не сложно.
    По поводу привязок, у меня фактические точки - полилинии (расчленил точки геоникса), изначально не подумал, что нужны будут точки. Где-то на форуме проскакивала программа для замещения одного объекта другим, попробую поискать. Спасибо.
     
    #299
  20. Philin

    Форумчанин

    Регистрация:
    1 фев 2008
    Сообщения:
    2.567
    Симпатии:
    2.092
    Адрес:
    Москва
    Чертёж можно увидеть? И понять из каких объектов надо сделать точки?
    Все полилинии на одном слое находятся? Если да, то используйте ACAD2TXT (в режиме БЕЗ отступа), она создаст точки на краях всех полилиний на указанном слое. Но это только в том случае, если полилинии не 3D.. т.к. 3D полилинии программа вообще не видит (она не рассчитывалась на работу с ними).
     
    #300

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

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