[G-RAV]

Подскажите спопсоб определения длины на 3d полилинии по горизонтальному проложению (двумерной длине).
Сам дошел до того, что можно определить общую длинну 3D сегмента разделить ее на длину 2D этого же сегмента, и у множать на эту величину каждое отложенное по этому сегменту 2d расстояние, но может есть способ попроще?
Полученные расстояния необходимы мне для функции vlax-curve-getPointAtDist

[Олег (jr.)]

См. св-во Delta:

Код:

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

(alert (strcat "Horizontal distance is: " (rtos (car (vlax-get  line_obj 'delta))2 6)))

[gomer]

А можно подробнее о этом свойстве?

[G-RAV]

Сообщение от Олег (jr.) См. св-во Delta: Код: [Выделить все] (alert (strcat "Horizontal distance is: " (rtos (car (vlax-get line_obj 'delta))2 6)))

это ж для отрезков? и в предложенном варианте выдает dx?

[Disney]

G-RAV, а практическое применение? Поделить 3D полилини, на равный 2D шаг?

[G-RAV]

В общем... У меня получилось как то так... (без обработчиков ошибок пока)

Код:

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

 (DEFUN PROF_NEXT (DIST Start_piket ROAD  /   COORDINATES_PIKET
					     PARAMTR_POINT 
					     Proizvodn
					     ANGEL_SEGMENT
					     current_2D_DIST
		  				First_DIST
			)
  
(setq	nn 0
	First_DIST (* DIST(1+(fix(/ Start_piket DIST))))
	2D_DIST_SUMMA 0	
	current_2D_DIST (- First_DIST Start_piket)
	Catalogue_pickets (list(list nn Start_piket (vlax-curve-getStartPoint ROAD) 0 )	)
)

(WHILE (/= (vlax-curve-getpointatparam ROAD (1+ nn)) nil)
 
(setq 	2D_DIST_SEGMENT 	(distance (list (car (vlax-curve-getpointatparam ROAD nn))(cadr (vlax-curve-getpointatparam ROAD nn))) (vlax-curve-getpointatparam ROAD (1+ nn))))
(if	(/= 2D_DIST_SEGMENT 0.0) (progn
(setq 	PARAMTR_POINT 		(+ nn ( /(- current_2D_DIST 2D_DIST_SUMMA) 2D_DIST_SEGMENT  ) )
)
  
(WHILE (< PARAMTR_POINT (1+ nn))

  
(setq 	COORDINATES_PIKET 	(vlax-curve-getpointatparam ROAD PARAMTR_POINT )
	PROIZVODN 		(vlax-curve-getFirstDeriv ROAD PARAMTR_POINT )
	ANGEL_SEGMENT 		(angle '(0 0 0) Proizvodn) 
 	Catalogue_pickets 	(cons(list PARAMTR_POINT (+ Start_piket current_2D_DIST) Coordinates_piket ANGEL_SEGMENT )Catalogue_pickets)
  	current_2D_DIST		(+ current_2D_DIST DIST)
	PARAMTR_POINT 		(+(/ (- current_2D_DIST 2D_DIST_SUMMA)  2D_DIST_SEGMENT ) nn)			  
      )
);WHILE
  
(setq 	nn 			(+ 1 nn)	
  	COORDINATES_PIKET 	(vlax-curve-getpointatparam ROAD nn)
	ANGEL_SEGMENT 		0
	2D_DIST_SUMMA 		(+ 2D_DIST_SUMMA 2D_DIST_SEGMENT)
	Catalogue_pickets 	(cons(list nn (+ Start_piket 2D_DIST_SUMMA) COORDINATES_PIKET ANGEL_SEGMENT )Catalogue_pickets)
		)
)
(setq 	nn  (+ 1 nn))
  )
  )

(setq Catalogue_pickets (reverse Catalogue_pickets))  

)

Замечания и поправки очень даже принимаются... Может получится сделать функцию менее громоздкой...

[Disney]

Сообщение от G-RAV Может получится сделать функцию менее громоздкой...

Конечно может, только если ты объяснишь, что на входе и что нужно получить на выходе, а то ни фига не весело сидеть и гадать, а чего же это у тебя там получается. И самое главное, зачем всё это? а то может оказаться, что решать её надо совсем не так и в другом месте.

[G-RAV]

На входе: 1. Интервал (INT), 2. Начальный пикет (REAL), 3. (vlax-ename->vla-object (car (entsel)))

На выходе: Список
(параметр текущий_пикет (координаты) угол)

думал наименование самих переменных говорит само за себя...

*** нашел косЯк - при переходе на следующий сегмент, использует предидущий коофициент... блинн

[Disney]

Сообщение от G-RAV 2. Начальный пикет (REAL)

Что это такое "начальный пикет"? начальный номер, начальной вершины кривой, который будет через заданный интервал увеличиваться на единицу?

Сообщение от G-RAV 3. (vlax-ename->vla-object (car (entsel)))

По твоей теории, это обязательно должна быть только 3D полилиния, и ни чего иного?
Один фиг не понял, не смотря на то что я сам вроде как геодезист
В любом случаи, проще создать 2D копию, 3D кривой (если исходную "плющить" нельзя), и уже с 2D "курва-гетать" всё что угодно.

[G-RAV]

Сообщение от Disney Что это такое "начальный пикет"? начальный номер, начальной вершины кривой, который будет через заданный интервал увеличиваться на единицу?

Начальный пикет - это начальный пикет. Он может быть 0.0, т.е. ПК0, а может быть, например, 1256.43, т.е ПК12+56.43 и увеличиваться он будет сначала до целого "шага". В моем примере, при шаге 100, первый шаг составит 43.57, последующие шаги по 100

Сообщение от Disney По твоей теории, это обязательно должна быть только 3D полилиния, и ни чего иного?

именно... может еще быть фигура (C3D) или характерная линия (C3D) (что имеет 3d геометрию)

Сообщение от Disney В любом случаи, проще создать 2D копию, 3D кривой (если исходную "плющить" нельзя), и уже с 2D "курва-гетать" всё что угодно.

я так тоже могу
в том и смысл, чтоб не растерять z

Сообщение от Disney Один фиг не понял, не смотря на то что я сам вроде как геодезист

наверно не работаешь на линейных объектах

[Vov.Ka]

Сообщение от G-RAV в том и смысл, чтоб не растерять z

зачем терять? ты ведь копию делаешь...

[G-RAV]

Сообщение от Vov.Ka зачем терять? ты ведь копию делаешь...

3д полилиния, скажем, длиной 100м, с одной стороны отметка z=150.00 с другой z=220.000
Какая отметка будет на 3д полилинии через 25м двумерного расстояния (или горизонтального проложения)?

[Кулик Алексей aka kpblc]

3D-полилиния в этом отношении неинтересна: там можно высчитать аппроксимацией. Со сплайнами будет намного веселее...
P.S. См.в сторону vlax-curve-getclosestpointtoprojection

[G-RAV]

Сообщение от Кулик Алексей aka kpblc 3D-полилиния в этом отношении неинтересна: там можно высчитать аппроксимацией. Со сплайнами будет намного веселее... P.S. См.в сторону vlax-curve-getclosestpointtoprojection

Спасибо, добрый человек... что то вроде похоже, как я ее пропустил...
сплайн будет запрещен... как раз он неинтересен...
------
Эврика... все ж оказалось гораздо проще, чем я предпологал)))...
у 3D-полилинии с разными отметками и проведенной по ней же полилинии при равном 2d расстоянии будет одинаковый параметр точки...
------

поправил код #6, сейчас вроде работает как надо...