[Meddoks]

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

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

Планирую использовать - для дальнейшего построения профиля.

Либо если есть программы позволяющие получить данную таблицу данных - укажите Фоме не ведающему
Но хотелось бы лисп - т.к например для построения профиля в ГЕОНИКСЕ нет генпаланов с горизонталями 3d

[hwd]

Как вариант - есть пример, где программка оперирует точками, но подправив несколько строк кода, ты можешь оперировать длинами и углами, как тебе надо. Либо ещё проще - добавить пару строк кода, которая помимо координат, добавит в таблицу столбцы длины и углов. Правда это не автолисп... Хотя, имея координаты, добавить самому в таблице Excel формулу, вычисляющую длину и угол - это уровень детского сада (тогда и код править не надо).

Там можно два мультика посмотреть, для ясности.

[Олег (jr.)]

Сообщение от Meddoks если есть программы позволяющие получить данную таблицу данных

Покажи такой пример в Экселе, создай для 4-5 точек,
а то не совсем ясен формат, в Лиспе это достаточно просто делать

[VVA]

По экспорту точек можно посмотреть еще здесь
Все функции взяты из ECoorE rev7.zip по ссылке.
Полилинии выбирать по одной за раз

Код:

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

(defun c:COORL+A ( / ptLst lst)
  (vl-load-com)
  (setq *ptcol:SEPARATE* "")
  (if (setq ptLst (vva-get-final-points-list))
    (progn
      (setq lst
        (mapcar
          '(lambda ( a b)
             (list
               (rtos (distance a b) 2 6) ;_расстояние
               (angtos (angle a b) 0 4)  ;_угол
               )
             )
          ptLst
          (cdr ptLst)
          )
       )
      (xls lst '("Длина сегмента" "Угол градусы") nil "COORL+A")
      )
    )
  (princ)
  )

[Son1cs]

Команда "данныеизвл". Делаешь извлечение нужных данных в эксель.

[Meddoks]

Добрый день, Уважаемые форумчане!
Спасибо большое, что откликнулись.
Выглядеть табличка должна примерно такТаблица для построения профиля.rar! Но для меня главное, чтоб не выписывать вручную все длины участков трассы по генплану. Это довольно скучная и муторная работа, на которую уходит уйма времени.
А используя полилинию (как я полагаю) - от этого можна уйти.
Попробую разобраться в предложенных Вами вариантах


Это просто супер!!
VVA - Ваша программа на данный момент удовлетворяет меня по всем требованиям!!!!! Округление значений, наверное можно где-то выбирать, но этого можна добиться и в самом экселе. Если не ошибаюсь с помощью Вашей программы можна полилинию разбить на равное кол-во сегментов (в моем случае это будут пикеты), а точки поворота уже имеют опорную точку. Так что теперь работа закипит. Выпьем всем офисом за Ваше здоровье!!!!


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

[Олег (jr.)]

Судя по файлу у тебя уже вставлены участки отметки и углы,
каким образом?, ведь обычно трасса рисуется обычной полилинией,
если наоборот значит у тебя 3Д полилиния также уже есть пикеты
Объясни процесс, с чего начинаешь, например покладываешь трассу
по точкам и тд

[Meddoks]

Это я пример скинул - как должно выглядеть. Но тот вариант, что предложил VVA полностью подходит. Я просто скопирую в эту табличку полученные значения.
Осталось найти - как разбить полилинию с вершинами равных частей (например через 100 м, или 50), где-то видел - теперь не могу найти((


http://dwg.ru/dnl/607 вот нашел такой вариант - все подходит.

[trir]

Civil 3D тоже умеет строить профили...

[Meddoks]

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

Возможно ли сделать такое усовершенствование?
Спасибо!

[nolte]

так же пытаюсь решить проблему автоматизации аксанометрий и процентовки в области сантехники и спринклерных систем. Если поможет вот код определения угла между линиями в пространстве.
P.S.
только я черчу не полилинией а линией, удобней в 3Д не надо крутить ПСК.
идея така начертить полностью аксонаметрию линиями, затем вызвать лисп, который проставит размеры, фасанину, диаметры труб, раскроит общий вид на отдельные листы А4,распечатает (сварит кофе ) и перенесет данные в ексель по кождому листу А4, а затем ексель соеденит это в общую процентовку (кстати последним пользуюсь уже почти год)

Код:

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

 
;;;	ОПРЕДЕЛЕНИЕ УГЛА МЕЖДУ ЛИНИЯМИ В ПРОСТРАНСТВЕ
;;; ПРИМЕР ВЫЗОВА (l_cnr <line1> <line2>)
;;; <line1> <line2> - VLA OBJECT
(defun		L_cnr			(o1 o2 / v1 v2 a1 b1 cosa1 sina1)
(vl-load-com)
(setq	v1 (vlax-safearray->list (vlax-variant-value (vla-get-delta o1)))
		v2 (vlax-safearray->list  (vlax-variant-value (vla-get-delta o2)))
		a1 (apply '+ (mapcar '* v1 v2))
		b1 	(* (sqrt (+ (expt (car v1) 2) (expt (cadr v1) 2) (expt (caddr v1) 2)))
				(sqrt (+ (expt (car v2) 2) (expt (cadr v2) 2) (expt (caddr v2) 2)))
			)
		cosa1 (/ a1 b1)
)
(if (equal cosa1 0)
	(setq cnr 90.0)
	(setq	sina1 (sqrt (- 1 (expt cosa1 2)))
			cnr (/ (* (atan (/ sina1 cosa1)) 180) pi)
	)
)
(if (or (minusp cnr) (equal cnr 90.0 0.01))
	(setq cnr (abs cnr))
	(setq cnr (- 180 cnr))
)
(princ (strcat "\n angle = " (rtos cnr 2 1)))
(princ)
)		;;; end defun L_cnr

[Meddoks]

К сожалению я от программирования очень далек, и мне этот пример - ничего не скажет.
Буду надеятся на наших уважаемых Метров программирования

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

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

Подскажите пожалуйста еще какие-то варианты или дополнения))

сейчас определяю - путем перевода в системе координат. Но когда полилиния уходит в III или IV квадранты начинается путаница и уходит много времени. Тем более обьяснить кому-то довольно сложно.
Может можна формулу применить ????? ...

[nolte]

файл автокада можно получить, попробую что либо сделать и потренируюсь заодно.

[Meddoks]

Пример трассы водопровода с таблицей ПРИМЕР.rar
Указал какие углы необходимо определить

[nolte]

(чисто для расширения кругозора)
сори за бестолковый вопрос, но зачем а главное как (углы не 45 и не 90*) лепить уголки на пластиковой трубе, она же гнется. Получаешь катушку метров 200 и растягиваешь.
и теперь по делу.
мы делаем чертеж а затем переносим в ексель данные иль наоборот данные, занесенные в ексель, управляют чертежем.

[gomer]

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

Offtop: мне страшно

[nolte]

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

[gomer]

Ну тогда ОксаноМетрию изучайте скорее... Про 2М пустой треп, понаписали уже по самое нехочу, про 3М не проще ли установить ПСК по трем точкам и воспользоваться angle

[nolte]

злой Вы товарищ, Гомер.
Вот взяли бы и подсказали неУчам как это по трем точкам. Собственно для этого и форум, и помнили бы Вас вечно потомки.

[gomer]

А не пошли бы вы, товарищь nolte, в Help, где вам расскажут как вызвать команду _ucs, указать начало координат, точку на оси x и точку в плоскости xy, только не забывайте транспортировать из одной пск в другую, а то это чревато...
Хотя... если твоя моя не понимать, налью вам пару строк индокитайского коньячку для сугреву

Код:

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

 (if (and (setq e1 (car (entsel "\n1st e: ")))
	 (setq e2 (car (entsel "\n2nd e: ")))
    )
  (progn
    (command "_.ucs" (dxf 10 e1) (dxf 11 e1) (dxf 11 e2))
    (setq ang (rtd (angle (dxf 10 e2) (trans (dxf 11 e2) 0 1))))
    (command "_.ucs" "_p")
    ang
  )
)