[===AAA===]

Всем привет!

Обычная 2D задача.

Имеем дугу, отрисованную в плоскости XY.
Для удобства будем считать, что её центр находится в точке 0,0

Нужно рассчитать точки концов её проекции на ось X.

(Потом, конечно, построить по ним линию, но это легко, оно и
обсуждения не стоит).

Когда дуга полностью находится НАД или ПОД осью X - всё просто.
Сложности возникают, когда дуга захватывает несколько квадрантов.

Конечно, через (cond … ) можно описать и посчитать все случаи, но:

а) Может быть, кто-то уже решал эту задачу и не нужно "изобретать
велосипед", есть готовая функция?
б) Может быть, есть более изящное решение, чем перебирать варианты
изображения дуги через (cond …)?

[koMon]

и тебе не хворать)
эммм, дуга на плоскости XY, проекции её концов на ось X разве не будут (X начала дуги, 0), (X конца дуги, 0) или янтп?

[===AAA===]

Это частный случай, для "не очень загнутой дуги".

Если дуга охватывает четыре квадранта, то проекции
её концов вообще в одну точку угодить могут. :-)

А проекция всей дуги при этом будет "Радиус + кусочек".

[koMon]

так тогда не концов, а граничных точек её проекции

----- добавлено через ~13 мин. -----
если концы дуги (один или оба) находятся в квадрантах III, IV, то есть углы начала и конца дуги >= pi и <= 2*pi, то найти для соответсвующих концов радиальные точки дуги по оси Х и из всех Х-ов для радиальных точек (если они есть) и концов дуги найти min и max.

[===AAA===]

Да там полно вариантов... Всё, что у меня пока получается - это
наборка "частных случаев", обрабатываемых через (cond …)

Диапазон - от R+R до "почти точки", если короткая дуга лежит
на пересечении 2-го и 3-го квадрантов.

Я эту задачу и через (cond …) "допилю" конечно (благо кол-во
вариантов ограничено), но мне сам этот подход не нравится.

Хотелось бы решения "в общем виде".

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

Возьми BoundingBox и не парься.

[===AAA===]

Как вариант - да.

Если он умеет для 3D-дуги правильный 3D-прямоугольник
строить. Пробовать нужно.

Это я ведь лишь в "Теме" задачу упростил.
Остальное-то и сам сделаю/пересчитаю.

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

BoundingBox возвращает 2 трехмерные точки в мировой системе координат, и вполне корректно (насколько я помню) работает и с трехмерными объектами.

[koMon]

можно и попариться)

Код:

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

 
(defun arc_x_projection (arc_ename)
	(setq arc_object (vlax-ename->vla-object arc_ename)
		  arc_radial_point_1 (vlax-curve-getpointatparam arc_object pi)
		  arc_radial_point_2 (vlax-curve-getpointatparam arc_object 0)
		  arc_radial_point_3 (vlax-curve-getpointatparam arc_object (* 1.5 pi))
		  arc_start_point (vlax-get arc_object 'startpoint)
		  arc_end_point (vlax-get arc_object 'endpoint)
		  all_point_list (vl-remove nil (list arc_radial_point_1 
		  									  arc_radial_point_2 
											  arc_radial_point_3
											  arc_start_point 
											  arc_end_point
										)
						 )
		  x_min_arc_projection (apply 'min (mapcar 'car all_point_list))
		  x_max_arc_projection (apply 'max (mapcar 'car all_point_list))
		  y_min_arc_projection (apply 'min (mapcar 'cadr all_point_list))
	)
	(vla-put-color (vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
										 	   (vlax-3d-point (trans (list x_min_arc_projection y_min_arc_projection) 0 1))
										 	   (vlax-3d-point (trans (list x_max_arc_projection y_min_arc_projection) 0 1))
				   )
				   1
	)
)