Создание Lisp для расчета глубины траншеи

Тимур С. · 21.03.2016, 15:58

Здравствуйте. Занимаюсь проектированием трубопроводов. Постоянно возникает необходимость в выводе данных о глубине траншеи. Т.е. имеется профиль с полилинией земли и полилиниями, обозначающими трубопровод. Для сметного отдела мы должны предоставлять данные по разработке траншеи в виде: разработка траншеи глубиной до 1,2 м, до 1,4 м и т.д с шагом 0,2 м. Вручную считать долго и не точно, особенно если трасса измеряется десятками километров.
В связи с этим возникла идея сделать LISP. Алгоритм примерно следующий. Выбирается полилиния, обозначающая землю, полилиния обозначающая низ трубы. Задаются точки начала и конца трассы. Задается горизонтальный и вертикальный масштаб. После этого программа начинает замерять расстояние по вертикали от линии низа трубы до линии земли с заданным горизонтальным шагом (например 0.01 м) от начальной до конечной точки и выводит данные в виде : глубина до 1.2 м- ххх метров, 1,4 м- ууу метров и т.д. Если трубопровод выходит на поверхность, вычисляет длину надземной части.
Пытаюсь освоить Autolisp, но процесс идет с большим трудом. В программировании что-то я не силен.
Застрял в самом начале. Не знаю как сделать чтобы LISP замерял расстояние между двумя точками полилиний.
Может кто-нибудь сможет помочь советом, или может есть какие-то заготовки?
Образец профиля прилагаю. Заранее спасибо.

Boxa · 21.03.2016, 17:46

1. Выкладывайте что уже сотворили.
2. Читайте тему: http://forum.dwg.ru/showthread.php?t=22894
3. У Вас в таблице есть все необходимые данные, глубина и расстояние, зачем Вам полилиния непонятно.
4. Импортируйте текстовые данные и фильтрацией по Х координате в Excel и там считайте.

А так это очень похоже не вежливую просьбу написать все за Вас, это во первых, а во вторых, смысла писать велосипед пока не вижу.

engngr · 21.03.2016, 18:20

Обвести полилинией профиль от планировки до дна траншеи, посмотреть площадь и умножить её на ширину траншеи. А вообще есть специализированные программы для подсчета объёмов пос.
upd: профиль делается вручную или в вертикальном приложении?

trir · 21.03.2016, 19:23

Civil 3D

Puroshev · 21.03.2016, 21:42

Алгоритм для лиспа.
1. Выбираешь две полилинии: отметки земли и дно траншеи.
2. Строишь вертикальные отрезки (вдоль трассы) с нужным шагом, которые заведомо пересекаются с этими полилиниями.
3. Определяешь точки пересечения отрезка с этими профилями.
4. По двум точкам находишь длину (глубину траншеи) и считаешь количество нужных расстояний.

Тимур С. · 22.03.2016, 08:21

Профиль делается в программе Трубопровод 2012. В ней есть функция вывода глубин траншеи, но лицензий у нас немного и часто нет доступа к программе.
Через площадь, умноженную на ширину мы получим разработку в м3, а мне нужно в метрах.
Puroshev, в общем-то вопрос сводится к тому, что я не знаю как замерить расстояние между двумя полилиниями. Если и провожу вертикальные прямые с шагом, то как найти их точки пересечения с полилиниями? Функция INTERS работает только с отрезками, я так понимаю.

engngr · 22.03.2016, 13:05

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

trir · 22.03.2016, 13:21

находим уравнение прямой...

Do$ · 23.03.2016, 01:04

Цитата:

Сообщение от Тимур С.

Пытаюсь освоить Autolisp, но процесс идет с большим трудом. В программировании что-то я не силен.
Застрял в самом начале. Не знаю как сделать чтобы LISP замерял расстояние между двумя точками полилиний.

Эта задачка явно не для начинающего лиспера.

Тимур С. · 23.03.2016, 07:06

Вот это звучит неплохо! Попробую, спасибо!

Цитата:

Сообщение от engngr

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

Krieger · 23.03.2016, 08:42

Пересечение можно попробовать найти с помощью метода vla-intersectwith

Тимур С. · 23.03.2016, 09:03

Спасибо!

Владимир_М · 23.03.2016, 12:17

Цитата:

Сообщение от Тимур С.

, из оставшихся отрезков извлекаете длины и обрабатываете в екселе.

Мне кажется с задачкой: распределить длины по разным диапазонам и сложить их, можно внутри Lisp-приложения, без подключения excell.

VVA · 23.03.2016, 22:32

Цитата:

Сообщение от Тимур С.

Если и провожу вертикальные прямые с шагом, то как найти их точки пересечения с полилиниями? Функция INTERS работает только с отрезками, я так понимаю.

Здесь есть набор готовых функций

Цитата:

MeGetInters - Returns all intersection points between two objects

Krieger · 24.03.2016, 06:04

Цитата:

Сообщение от VVA

Здесь есть набор готовых функций

Спасибо. Посмотрел функцию MeGetInters. Можно вопрос. Там в аргументах функции cond есть такое выражение "(T nil)", какой в этом смысл? "T" ведь не функция, что она делает? Или это просто, чтобы что то было?

Puroshev · 24.03.2016, 08:26

Пример получения точки пересечения 2-х объектов

Код:

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

 (defun c:INT2 (/ INTC INTP OB1 OB2 VLAOBJ1 VLAOBJ2)
(vl-load-com)
  (setq Ob1 (car (entsel)))
  (setq Ob2 (car (entsel)))
(setq
vlaobj1 (vlax-ename->vla-object Ob1)
vlaobj2 (vlax-ename->vla-object Ob2)
intp (vla-intersectwith vlaobj1 vlaobj2 acExtendNone)
;intp (vla-intersectwith vlaobj1 vlaobj2 acExtendBoth)
; for INTersection Point(s)
intc (safearray-value (variant-value intp))
; for INTersection Coord's [all together]
); end setq
  (print intc); точка список 
  (princ)
)

Do$ · 24.03.2016, 15:58

Цитата:

Сообщение от Krieger

Там в аргументах функции cond есть такое выражение "(T nil)", какой в этом смысл? "T" ведь не функция, что она делает? Или это просто, чтобы что то было?

Это способ возврата значения из конструкции COND "по умолчанию". Если никакое условие выше в cond не выполняется, то доходит до этого. Раз в начале T - значит, что это условие всегда будет выполнено, если до него дойдет. Там же как - первый аргумент проверяется на nil, если не nil - то возвращается второй аргумент, если nil - переходим к следующему условию. Первый аргумент T не nil, возвращается второй аргумент - nil. Как-то так.

Puroshev · 24.03.2016, 20:57

Заготовка подсчета глубины траншеи для Тимура С.

Код:

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

  ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$*
 ; AutoCAD R 2000-2017
 ; Автор : Пурошев Сергей
 ; Донецкий центр союза архитекторов "Среда"
 ; E-mail  [email protected]
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
(defun C:PSW( / )
; НАЧАЛЬНЫЕ данные ########################################
  (setq dX 1.0); шаг движения вдоль контура
  (setq kH 0.1); коэфю масштаба по Y
  (setq ff (open "D:\\HHH.txt" "w")); файл  высот траншеи с шагом DX
; дальше либо лиспом либо в Excelе ставишь нужные условия по высоте
; и считаешь погонные метры 
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  (vl-load-com)
  (setvar "CMDECHO" 0)
    (setq PL1 (car (entsel "\nУкажи полилинию верх земли:"))) ; первая точка полилинии должна быть слева
  (setq PL2 (car (entsel "\nУкажи полилинию низ трубы:")))
  (setq T1 (car  (POLY_LINE PL1 1)))
  (setq T2 (cadr (POLY_LINE PL1 1)))
  (setq XX (- (car T2) (car T1)))
  (setq T1 (list (car T1) -100000000.0 0.0))
  (setq T2 (list (car T1)  100000000.0 0.0))	 
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$	
	(setq N (fix (/ XX dx)))
	 (repeat N
  	   (setq T1 (polar T1 0.0 dX))
	   (setq T2 (polar T2 0.0 dX))
	   (command "_LINE" T1 T2 "")
	   (setq Ob (entLast))
	   (setq H1 (INT2 PL1 Ob))
	   (setq H2 (INT2 PL2 Ob))
	   (setq HH (* kH (- (cadr H1) (cadr H2))))
	   (print HH)
	   (print HH ff)
	   (entdel Ob)
	   ); End Repeat
(close FF)  
  (princ)
  
  )

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
(defun INT2 (Ob1 Ob2 / INTC INTP  VLAOBJ1 VLAOBJ2)
	(setq
	vlaobj1 (vlax-ename->vla-object Ob1)
	vlaobj2 (vlax-ename->vla-object Ob2)
	intp (vla-intersectwith vlaobj1 vlaobj2 acExtendNone)
	;intp (vla-intersectwith vlaobj1 vlaobj2 acExtendBoth)
	; for INTersection Point(s)
	intc (safearray-value (variant-value intp))
	); end setq
)
	(setvar "DIMDLI" 6)
 ;**************************************************************
 ; Функция возвращает список ((начал.точка) (конеч. точка))
 ; при выборе полилини или отрезка
 ; Параметры:  A1 - имя примитива
 ;            ZZ=0 - Выбор 1 и 2 точки полилинии
 ;            ZZ=1 - Выбор 1 и конечной точки полилинии
 ;**************************************************************
(defun POLY_LINE (A1 ZZ / P1  A2 TIP A200 N_MAX N1 N2 I)
    (setq A2 (entget A1))
    (setq TIP (cdr (assoc 0 A2)))
    (setq A200 NIL)
 ;**************************************************************
    (if (= TIP "LWPOLYLINE")
        (progn
            (setq N_MAX (length A2))
            (setq I 0)
            (repeat N_MAX
                (setq SP (nth I A2))
                (if (= (car SP) 10)
                    (setq A200 (cons (cdr SP) A200))
                )
                (setq I (+ 1 I))
            ) ;Repeat
            (setq A200 (reverse A200))
            (if (= ZZ 0)
                (setq A200 (list (car A200) (cadr A200)))
            )
            (if (= ZZ 1)
                (setq A200 (list (car A200) (last A200)))
            )
        ) ;progn
    ) ;if
 ;****************************************************************
    (setq A200 A200)
)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Документация Проектировщику на Torrents	DEM	Разное	262	24.02.2024 17:19
Помогите найти РД по расчетам на прочность	1enin	Поиск литературы, чертежей, моделей и прочих материалов	13	08.11.2013 11:50
Ищу ГОСТ Р 52857.1-2007 Сосуды и аппараты. Нормы и методы расчета на прочность. Общие требования	ruseng	Поиск литературы, чертежей, моделей и прочих материалов	11	14.07.2009 16:25
создание автоматизированногj расчета	ayur	Программирование	6	20.02.2009 13:08
ГОСТы, СНиПы, ПРАВИЛА и т.д.	ki	Разное	120	19.09.2007 09:05