Помогу бесплатно разработать любую программу на autolisp.

Тема в разделе "Autodesk", создана пользователем Германup, 3 фев 2014.

  1. Да, все верно конечная цель построить профиль с помощью программы быстрый профиль. Через Civil 3D не получится, т.к. использую ACAD MEP. На данный момент задача частично решается через программы AutoSEZ 2 (http://www.cad3d.it/forum1/threads/...l-terreno-estrazione-automatica.17601/page-10) или QP1 от kpblc-а, т.е. строится сразу полилиния профиля, и потом по этому профилю строится "таблица", которая выполняется не по стандарту, приходится переделывать, поэтому хотелось бы использовать готовую прогу квик-профиль.
    Ваша программа даже в таком виде отлично подойдет для каких то разовых задач, где необходима визуализация трассировки, где затраты времени вторичны, большое спасибо!
    А обычные задачи сейчас пока решаются быстрее программой AutoSEZ 2/QP1 даже с учетом переделки "таблицы"
     
  2. Qvinto

    Qvinto Форумчанин

    Извиняюсь за задержку, навалилось на работе.
    Видео во вложении. Хотя, я просто, поставил всего одну галочку, и получил вершины в 3D полилинию вершины промежуточного перелома, соответственно, на пересечении с горизонталями, так как поверхность построена по горизонталям.
     

    Вложения:

    SOYZNIK, ivsem и Hroost нравится это.
  3. ivsem

    ivsem Форумчанин

    Спасибо за видео. Посмотрел с большим интересом. Как говорится, лучше один раз увидеть, чем сто раз услышать.
    Как только появится свободное время попробую сам выполнить показанные вами шаги-действия по созданию 3D полилинии посредством сивила.
    Если не секрет, какую программу Вы использовали для создания видео?
     
  4. Qvinto

    Qvinto Форумчанин

    FastStone Capture
     
    АлексГелиос нравится это.
  5. АлексГелиос

    АлексГелиос Форумчанин

    Приветствую! Что то програмка выстрелила в холостую, пишет "не создан NaborLine" И рисует линии поперек оси в лево а промеров нет. Схему в DWG прилагаю.
     

    Вложения:

  6. АлексГелиос

    АлексГелиос Форумчанин

    Разобрался! Только осевую 3d полилинию нужно 2 раза выбирать, а не отрезок и 3d полилинию.
     
  7. ivsem

    ivsem Форумчанин

    Так программа и запрашивает два раза выбор осевой полилинии.
    У вас в чертеже пользовательская система координат (левая часть картинки). Программа в пользовательской системе координат не работает, только в мировой.
    Я создал пустой файл, скопировал туда ваши линии с точкой вставки 0,0 и все сработало (правая часть картинки).
    Как по мне, желателен такой порядок работы- в мировой системе загрузить пикеты, начертить линии, запустить программу, получить excel-ведомость и дальше уже можно крутить вертеть чертеж.
    11-12.jpg
     
    Последнее редактирование: 20 сен 2019
    АлексГелиос нравится это.
  8. АлексГелиос

    АлексГелиос Форумчанин

    Спасибо! Разобрался.
     
  9. ivsem

    ivsem Форумчанин

    АлексГелиос, к стати, используя при сьемке простую систему кодирования, можно потом автоматически программно отрисовать край асфальта, ось, край асфальта.
    Когда то давно я создал для своей древней SOKKIA set 5F такой набор программ.
    http://geodesist.ru/threads/risuem-chertezh-po-kodam-iz-fajla-s-taxeometra.36029/
     
    Последнее редактирование: 20 сен 2019
    АлексГелиос нравится это.
  10. АлексГелиос

    АлексГелиос Форумчанин

    Круто! Вот еще бы программу, которая по проектной ведомости промеров в exel расставляла точки cogo во тыло бы круто. В ведомости зачастую есть только координаты оси с высоткой, уклоны от оси к краю асфальта (зем полотна) и ширина от оси. Нужно проектную отрисовать в автокаде. Ведомость в exel прикрепляю.
     

    Вложения:

  11. ivsem

    ivsem Форумчанин

    Программа txtToPoperchnik01.fas предназначена для построения в автокаде поперечников по данным в приложенном файле Excel.
    Подготовительные действия.
    1. Сохранить файл Ведомость.xls в формате CSV.
    2. В простом текстовом редакторе удалить шапку, в пустой строке в конце текста написать end и сохранить с расширением txt.
    3. Заменить запятые на точки.
    03.jpg
    Можно запускать программу txtToPoperchnik01.fas.
    Далее можно воспользоваться программой Poperechnik3_v03.fas.
    Если после запуска программы Poperechnik3_v03.fas. появится сообщение об ошибке, то сие можно побороть изменив интервал поперечников (например вместо 20 задаем 20.000000001).
    На точности отрисовки сие не скажется, но позволит сместиться с точки соединения двух отрезков.
    1-2.jpg
     

    Вложения:

    SOYZNIK и АлексГелиос нравится это.
  12. АлексГелиос

    АлексГелиос Форумчанин

    Огромное спасибо! Будем пробовать. Вот только номер карты так и не скинул)) Или номер счета)
     
  13. ivsem

    ivsem Форумчанин

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

    Вложения:

    АлексГелиос нравится это.
  14. АлексГелиос

    АлексГелиос Форумчанин

    Все получилось! И опять большое тебе спасибо! (правда я считаю, что "спасибо" в корман не положишь, по прежнему жду номер карты или счета)
     
    SOYZNIK нравится это.
  15. ivsem

    ivsem Форумчанин

    Доработал программы из поста #933. Вместо трех, теперь две программы.
    Программа InterpolGorizont03.fas теперь автоматом переходит от вершины к вершине 2D полилинии-трассы.
    Программа 3DplineMakeGorizontal03.fas строит 3D полилинию.
    Для построения профиля по полученной 3D полилинии, можно использовать программу Быстрый профиль форумчанина Alexandr-GR.
    http://geodesist.ru/resources/bystryj-profil-quick-profile.189/
     

    Вложения:

    Steinar нравится это.
  16. gorelikoff13

    gorelikoff13 Форумчанин

    Здравствуйте! Помогите пожалуйста нужен лисп или программа для интерполяции по 2д точкам. Интерполяция нужна типа такой- есть текст или мтекст, выбираю его, потом выбираю второй и нахожу значение между ними, к примеру 150.00 и 151.00 выбираю их и ввожу значение которое мне нужно найти при интерполяции к примеру 150.50 и чтобы показало где оно находится. Ну очень пряям надо, СРОЧНО. Заранее огромное спасибо.
     

    Вложения:

  17. ivsem

    ivsem Форумчанин

    У Вас в задании указано, имеем отметку 153.53, вторая отметка 153.21, найти точку с интерполяционным значением 150.50.
    Но значение 150.50 не попадает в интерполяционный интервал!
    01.jpg
     
    SOYZNIK нравится это.
  18. Qvinto

    Qvinto Форумчанин

    Еще бы знать, для чего всё это нужно? Может, что то попроще и готовое уже есть.
     
  19. gorelikoff13

    gorelikoff13 Форумчанин

    Сорь ошибся, 153.50
    --- Сообщения объединены, 11 окт 2019, Оригинальное время сообщения: 11 окт 2019 ---
    В основном для горизонталей, я знаю что есть много программ которые строят ЦММ по 3д точкам и потом по ним горизонтали, но не всегда есть 3д точки и горизонтали которые они строят у нас не принимают, очень много надо исправлять вручную, проще сразу вручную делать но провести скажем так на глаз тоже не прокатит.
     
  20. Qvinto

    Qvinto Форумчанин

    Если нет 3д точек, то и съемки нету. Интерполировать нечего.
    --- Сообщения объединены, 11 окт 2019, Оригинальное время сообщения: 11 окт 2019 ---
    Из ваших 2д точек в один клик 3д точки сделать можно. Рассказывать? Или вы вручную тыкать будете?
     
    mihamster и SOYZNIK нравится это.
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление