[MAJKL.BY]

Кто нибудь знает, как получить геодезическую таблицу с координатами, растояниями и дирекционными углами? Исходные данные - указанная полилиния.

[shir]

Наверно для геодезии лучше использовать не автокад сам по себе, а цивиль или ланддесктоп, ну или геоникс.

[ShaggyDoc]

Сообщение от MAJKL.BY Кто нибудь знает, как получить геодезическую таблицу с координатами, растояниями и дирекционными углами? Исходные данные - указанная полилиния.

Надо написать программу, которая это делает. И пользоваться ей.
[ATTACH]1184316713.gif[/ATTACH]

[Кочетков Андрей]

Все уже давно написано
В Лэнде - меню Stakeout.
В Сивиле - Разбивочные ведомости (с Сивилом могу ошибаться - под рукой его нет, не могу проверить).

[rrola]

Сообщение от Кочетков Андрей Все уже давно написано В Лэнде - меню Stakeout. В Сивиле - Разбивочные ведомости (с Сивилом могу ошибаться - под рукой его нет, не могу проверить).

Здраствуй, Андрей ))
Про Лэнд по подробнее ,пожалуйста
Спасибо

[Кочетков Андрей]

Общая идея такая:
вдоль полилинии расставляем COGO точки
(меню Points подгруппа Create)

Затем идем опять в меню Points -> Stakeout utilities и создаем по только что созданным точкам отчет.

Пишу по памяти, поэтому если нужны подробности, то не сегодня ))

[DonJad]

Гы, пишу чаз програмку, делает следующее

Из акада берет поли линию и по полученным данным

Строит ряд таблиц, плюс функции для автоматизации ряда специфичных для зем дела моментов.

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

Ну и самый простой вариант работы, на картинке.

В принципе могу добавать и геодезическую таблицу, только где взять ее спецификации?

Правда не раньше чем через месяц. Сегодня в отпуск уезжаю.
[ATTACH]1184933998.jpg[/ATTACH]

[MAJKL.BY]

DonJad

Получилась ли програмка, которую вы писали?

"Из акада берет поли линию и по полученным данным

Строит ряд таблиц, плюс функции для автоматизации ряда специфичных для зем дела моментов"

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

[karp_b]

Этот раздел называется "Программирование" и насколько я понимаю, разговор идет о документе, который называется карта (план) границ. Как зная координаты перейти к дирекционным углам и длинам отрезков, написано в учебниках геодезии. Не знаю как в лиспе, в VB алгоритм реализуется. Я видел программу, которая формирует землеустроительные дела, работая под автокадом. Внутрь не влезал.
Даю совет, но как реализовать - не знаю. Хороший учебник по геодезии я видел у знакомого. Вот полгода заглядываю в книжные магазины Москвы - подобного не вижу.

[remlin]

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

[VVA]

remlin, Если не жалко, выложи здесь. Гораздо больше людей скажут спасибо.

[bernata]

Присоединяюсь!

[remlin]

выложил на этом сайте вот здесь: http://dwg.ru/dnl/3885
Пользуйтесь!

[bernata]

Полезная програмуля. Спасибо.

[DonJad]

вернулся из отпуска.

У мя програмка как раз по полилиниям работает... правда приходится экспортить в dxf... чаз думаю прикрутить ком сервер, чтобы лиспом прям из акада данные в нее передавать.

[asys]

а обратной нету? чтоб по таблице строила полилинию?

[VVA]

Asys, Посмотри здесь пост #28 или #34.

[mvz]

Не хватает только, чтобы по точкам тоже в такую табличку сводила, в Exel.
Т.к. в таблице нужен мой порядок точек.
Спасибо автору проги, очень помогла. )

[asys]

Сообщение от VVA Asys, Посмотри здесь пост #28 или #34.

спасибо, упустил из виду

[VVA]

mvz, Имеется ввиду, что твоя точка №1 не совпадает с 1-й точкой полилинии?
Если так, то с помощью
PL-Vx1 -Изменение начала полилинии и ENTREVS -Реверс объекта можно совместить товою точку №1 и 1-ю вершину полилинии.

[mvz]

Мне нужно собирать точки в заданной мною последовательности.
В результате нужно получить таблицу с данными по массивам (координаты и т.д.).
Т.е. было бы удобно, если бы не только выбор "Полилиния", а и выбор "Точка" выводился в Exel. (А не так как сейчас: при команде "Полилиния" выводит таблицу в Exel, а при команде "Точка" таблицу в AutoCAD).
Просто мне эта таблица нужна в записке, а не на листе.
Ну в принцыпе программка очень устраивает,
а поставленную мною задачу можно решить как-нибудь через "сторонние" способы.

[VVA]

mvz, Формируешь таблицу на листе, а затем переводишь в Excel
Функция экспорта данных из таблиц «нарисованых» примитивами, из Autocad в Excel, версия: 0.95

[mvz]

У меня почему-то не получается.
Вообще-то в LISPe я "0".
Попробовал открыть его как *.txt..., почитал...,
попробовал ввести в AutoCAD в командную строку,
например, команду (как я понял это команда?) PL:SetD.
И ничего.
Может что-то неправильно делаю?
Пользуюсь AutoCAD 2009 eng.

[Солидворкер]

mvz, а для кого VVA старался?

[VVA]

mvz, По ссылочке почитай обязательно. У меня готов черновичек на основе COORT. Там маркером (номером) вершины служит ближайший к вершине текст. Только выводятся номер и координаты X,Y,Z. Осталось вычислить дир. угол и расстояние. Своим блокам можещь сделать burst и получить итоговую таблицу. Код пока в работе, так что пока #22.

[mvz]

Спасибо VVA за ответы и подробную инструкцию.
Без него бы я и не понял бы как "ноги" этому LISPу приделать ).
Я читал его инструкцию до Вашего Солидворкер сообщения, но ...
там написано что "Команде всегда предшествует префикс C: после слова defun.", а коде который я скачал "(defun PL:SetD (SYM VAL / _UserDict _TMP)".
Я пробовал вставлять команду SetD и т.д.
Не получается.
Извините, если туплю...

[VVA]

mvz, Найди в этом файле строчку, в которой содержится C: (регистр не имеет значения). И если слово перед C: - defun, то это то что тебе нужно.
Но в данном случае тебе это делать нет необходимости. Загрузи pl_export-to-excel.LSP или pl_export-to-excel.LSP файл в Автокад, нажми F2 и читай командную строку. Там все по-русски написано.

[mvz]

Спасибо!
Я всё таки ступил и по ссылке скачал не то (Набор функций для хранения данных в словарях, версия: 0.95).
Сейчас скачать всё что надо всё заработало, вопросов нет ).
Спасибо ещё раз. Очень помогли.

P.S. Вопрос не по теме:
А возможно ли сделать (или она есть уже стандартная) сноску вот такого вида?

[VVA]

mvz, Можно. Вариант отсюда без "N=" "E=":

Код:

[Выделить все]

(defun C:NE ( / p1 p2)
;;На основе _kpblc-draw-leader
(defun _addleader (up-string low-string   start-point end-point /   lead_obj ann_obj point-list)
  ;; Прежде всего преобразовываем low-string в строковый вид:
  (if (not low-string)(setq low-string "")) ;_ end of if
  (setq point-list (apply 'append (list start-point end-point)))  
  ;; Теперь собственно выполнение выноски.
  (setq   ann_obj    (vla-addmtext
         (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
         (vlax-3d-point end-point)
         0         ; устанавливается ширина именно 0, для нормального получения полки
         (if (/= low-string "")(strcat up-string "\\P" low-string) up-string))
   lead_obj (vla-addleader
        (if (and (zerop (vla-get-activespace (vla-get-activedocument (vlax-get-acad-object))))
           (= :vlax-false (vla-get-mspace (vla-get-activedocument (vlax-get-acad-object)))))
    (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble
             (cons 0 (1- (length point-list)))) point-list)) ann_obj  acLineNoArrow) ;_ end of vla-AddLeader
   ) ;_ end of setq
  (vla-put-Rotation ann_obj (angle '(0 0 0)(getvar "UCSXDIR")))
  ;; Меняем настройки будущей аннотации:
 ; (vla-put-height ann_obj (* 1 (getvar "dimscale")))
  (vla-put-attachmentpoint ann_obj
    ;; Назначая точку выравнивания, будем использовать числовые значения:
    ;; acAttachmentPointBottomLeft   ->   7
    ;; acAttachmentPointBottomRight   ->   9
    ;; acAttachmentPointMiddleLeft   ->   4
    ;; acAttachmentPointMiddleRight   ->   6
    (+ 4 (if (> (car end-point) (car start-point)) ; выноска вправо, точка — влево
       0  2) ;_ end of if
       (if (/= low-string "")      ; нижняя строка есть, выр. — по  центру
           0 3) ;_ end of if
       ) ;_ end of +
    ) ;_ end of vla-put-AttachmentPoint
  (vla-put-insertionpoint ann_obj (vlax-3d-point end-point))
  ;; Теперь модицифируем собственно выноску
  (vla-put-verticaltextposition lead_obj acOutside)
  (vla-put-ArrowheadSize lead_obj 0.5)
  ;; В принципе, строка ниже не требуется — так, для страховки.
  (vla-put-coordinate lead_obj 1 (vlax-3d-point end-point)) lead_obj)
  (vl-load-com)
  
  (initget 1)
  (setq p1 (getpoint "\nТочка: "))
  (initget 1)
  (setq p2 (getpoint p1 "\nНаправление выноски: "))
  (setq p1 (trans p1 1 0)
  p2 (trans p2 1 0))
  (_addleader
    (rtos (nth 1 p1) 2 2) ;_ТОчность округления
    (rtos (nth 0 p1) 2 2) ;_ТОчность округления
    p1 p2)(princ))
(princ "\nНаберите в командной строке NE")

[VVA]

*** Добавлено
Еще ссылочка
http://dwg.ru/f/showthread.php?t=14385

[mvz]

Спасибо огромное VVA!
Почитаю ).

[Агент СмиТ]

Сообщение от DonJad Гы, пишу чаз програмку, делает следующее Из акада берет поли линию и по полученным данным Строит ряд таблиц, плюс функции для автоматизации ряда специфичных для зем дела моментов. Данные можно редактировать, задавать определенный тип каждой точке, подписывать точки, границы, добавлять удалять. чистить. Полученное сохранять в формате программы, или кидать обратно в автокад. Ну и самый простой вариант работы, на картинке. В принципе могу добавать и геодезическую таблицу, только где взять ее спецификации? Правда не раньше чем через месяц. Сегодня в отпуск уезжаю. [ATTACH]1184933998.jpg[/ATTACH]

Уважаемый DonJad! Я понимаю, что со времени написания вами поста прошло некоторое время... но очень интересно, закончили ли вы работу над своей программой?

[Yelena]

Спасибо огромное за lisp!

[Иван Павлов]

Добрый день!
Схожая проблема, но конечного решения, так и не нашел.
Итак: Есть замкнутая полилиния, из которой нам необходимо получить табличку с
расстоянием между точек, азимутом, и координатами. Есть какие то программы
позволяющие автоматизировать процесс заполнения таблицы??

[sertor]

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

Попробуйте этот лисп, может устроит.

[VVA]

похожая тема http://www.cadtutor.net/forum/showth...tes-into-table

[Иван Павлов]

Сообщение от sertor Попробуйте этот лисп, может устроит.

Да это то, что надо!! Спасибо огромное.
За пару дней использования данного лиспа, накопились вопросы и пожелания.
Но самых главных проблем две:
1. При выборе полилинии, удобнее получать табличку с результатами в автокад, а не в эксель. (так же как при указании точек в ручную).
2. что нужно изменить, что бы можно было указывать номер начальной точки?
Есть соображения по этому поводу?

[Иван Павлов]

И еще одна мучительная проблема: Эксель делает автозамену числовых значений на дату..
Отключил всю автозамену, не помогает.
Остается два варианта:
1. Изменить разделитель"." на ","
2. Менять формат ячеек, до экспорта данных.
Но каким образом этого добиться не понимаю.
Может у кого-то были схожие проблемы?

[Олег (jr.)]

Попробуй водить данные с одиночной кавычкой спереди типа:
'123.456

[Иван Павлов]

Сообщение от Олег (jr.) Попробуй водить данные с одиночной кавычкой спереди типа: '123.456

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

[trir]

лично я давно поменял разделитель на "." в региональных настройках W и больше не мучаюсь ;=)

[VVA]

Сообщение от Иван Павлов И еще одна мучительная проблема: Эксель делает автозамену числовых значений на дату.. Отключил всю автозамену, не помогает. Остается два варианта: 1. Изменить разделитель"." на "," 2. Менять формат ячеек, до экспорта данных. Но каким образом этого добиться не понимаю. Может у кого-то были схожие проблемы?

Добавил отключение/включение разделителей

[Иван Павлов]

Сообщение от VVA Добавил отключение/включение разделителей

Большое спасибо!

[Агент СмиТ]

Тоже поменял "," на "."
Помимо обхода неудобства с автозаменой в Excel, есть и ещё один плюс: при вставке координат из Excel в AutoCad разделители не требуют предварительной замены.

[life--inside]

http://dwg.ru/dnl/3885
Подскажите, уважаемые, как сделать так, чтобы при выборе полилинии тоже была возможность формировать таблицу прямо в автокаде, без экспорта в эксель?
Сейчас при выборе точек формируется таблица, при выборе полилинии - экспорт в эксель.

[VVA]

life--inside, Может отсюда подойдет LISP. Создание таблицы координат

[mindchamber]

Господа, доброго времени суток. Сделал программой от VVA ведомость красных линий, в итоге пришло такое замечание:

отсутствуют углы поворота и радиусы искривления красных линий, границы расчета

Таблица выглядит вот так:

https://www.dropbox.com/s/7pvo0tosgn...33.49.png?dl=0

Радиусы и углы поворота это разве не то же что и дирекционное направление?

Спасибо!!!

[Enik]

Сообщение от mindchamber отсутствуют углы поворота и радиусы искривления красных линий, границы расчета

Странно, у меня всю жизнь прокатывало так, как на картинке (в приложении). Более того, не встречал ни разу, чтобы было как-то иначе.

Какие ещё радиусы искривления красных линий? Кто-нибудь видел вообще красные линии, идущие по дуге? С углами то же самое.

Про границы расчёта - ну да, в принципе, можно понять.

[engngr]

Сообщение от Enik Какие ещё радиусы искривления красных линий? Кто-нибудь видел вообще красные линии, идущие по дуге?

Если речь про лгр - много раз.

[Enik]

Сообщение от engngr Если речь про лгр - много раз.

О том-то и речь, что в моей практике линии градостроительного регулирования всегда шли отрезками.

А чем в вашем случае вызвана необходимость устанавливать лгр по дуге? Это красные линии вдоль дороги?

[skkkk]

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

[engngr]

Сообщение от Enik А чем в вашем случае вызвана необходимость устанавливать лгр по дуге? Это красные линии вдоль дороги?

Это лгр на границе с природным парком, она же граница застройки.
Техзоны метро, всевозможные зсо и сзз, например, береговые, водоохранные зоны, полосы отвода а.д. и ж.д сложно представить без кривых.