[Composter]

у меня есть лисп , аналог команды trim.

Код:

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

(defun c:zod99 (/ obj ss1)
(princ "\nпродляет или обрезает линии до пересечения с выбранной")
(setq obj (vlax-ename->vla-object(car(entsel))))
(setq ss1(vl-remove-if 'listp (mapcar 'cadr (ssnamex(ssget)))))
(setq ss1 (vl-remove obj(mapcar 'vlax-ename->vla-object ss1)))
(mapcar '(lambda(name)
	(if	(not	(or	(equal	(-
						(atof(angtos(vla-get-angle obj)0 1))
						(atof(angtos(vla-get-angle name)0 1))
					)
				0)
				(equal	(-
						(atof(angtos(vla-get-angle obj)0 1))
						(atof(angtos(vla-get-angle name)0 1))
					)
				180)

			)
		)
		(progn
			(setq intpt(vlax-safearray->list(vlax-variant-value(vla-IntersectWith obj name 3))))
			(if	(>
					(DISTANCE (vlax-curve-getStartPoint name) intpt)
					(DISTANCE (vlax-curve-getEndPoint name) intpt)
				)
				(vla-put-EndPoint name (vlax-3d-point intpt))
				(vla-put-StartPoint name (vlax-3d-point intpt))
			)
			)
		)
	)
ss1)
(princ)
)

в середине лиспа идет проверка на паралельность линий, либо паралельных только визуально.если попадается полилиния вместо отрезка то выскакивает ошибка(знаю что можно через vl-catch-all-apply можно избавиться от этого).мне интересно есть ли какой нибудь другой способ на проверку паралельности(включая полилинии если они состоят из 2 точек)?

[Дима_]

Я бы сделал так:

Код:

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

(defun paralel (pt1 pt2 pt3 pt4);паралельность прямых pt1-pt2, pt3-pt4.
(or	(equal (getvektor pt1 pt2) (getvektor pt3 pt4) 0.001)
	(equal (getvektor pt1 pt2) (getvektor pt4 pt3) 0.001)
);end of or
);end of paralel
(defun getvektor (pt1 pt2 / tmp); единичный вектор направления заданный точками pt1 pt2.
(setq tmp (mapcar '- pt1 pt2))
(if (not (equal tmp '(0.0 0.0 0.0)))
(mapcar '(lambda (x) (/ (float x) (apply 'max (mapcar 'abs tmp)))) tmp)
);end of if
);end of getvektor

И подставляй конечные точки.

[Composter]

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

[Дима_]

Исправил код (все время про эти допуски забываю) на 0.001.

[Composter]

а для чего две проверки .по моему можно обойтись одной
(equal (getvektor pt1 pt2) (getvektor pt3 pt4) 0.001)
ведь значение берется по модулю и от перестановки местами pt3 и pt4 ничего не измениться.
все таки хотелось бы знать как определить границы чертежа.

[Александр Ривилис]

Сообщение от Composter а для чего две проверки .по моему можно обойтись одной (equal (getvektor pt1 pt2) (getvektor pt3 pt4) 0.001) ведь значение берется по модулю и от перестановки местами pt3 и pt4 ничего не измениться.

Меняется. Вектора '(0 0 1) и '(0 0 -1) разнонаправленные, но параллельные.

Сообщение от Composter все таки хотелось бы знать как определить границы чертежа.

(getvar "EXTMIN") и (getvar "EXTMAX")

[zamtmn]

ИМХО для проверки лучше использовать векторное произведение

[Composter]

за переменные спасибо.
так вот в этом месте,
(mapcar 'abs tmp)
функция избавляется от минусов.вроде не должно получиться -1

[Дима_]

Добавил в #2 проверку на одинаковость точек (раньше вылетало по ошибке деления на ноль).
то composer (apply 'max (mapcar 'abs tmp)) - вернет естественно всегда положительное число, но на него делиться (float x) - который может быть и отрицательным - в итоге знак сохраняеться. Начерти любую линию и (getvektor (getpoint) (getpoint)) в одну и другую сторону - увидишь что вектор изменится.

[Composter]

торможу.ну тогда можно добавить одну команду что бы целую строку не писать
(mapcar '(lambda (x) (/ (abs(float x)) (apply 'max (mapcar 'abs tmp)))) tmp)

[Дима_]

Тогда у тебя вектор неверный получится - всегда положительный - (-1 1 0) паралелен (1 -1 0), но не (1 1 0) - последний ему строго перпендикулярен.

[Composter]

убедил.
еще вопрос.я вот таким образом проверяю лежит ли точка пересечения в границах чертежа

Код:

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

(and
	(>=(car intpt)(car(getvar "EXTMIN")))
	(<=(car intpt)(car(getvar "EXTMAX")))
	(>=(cadr intpt)(cadr(getvar "EXTMIN")))
	(<=(cadr intpt)(cadr(getvar "EXTMAX")))
)

можно ли это сделать по другому?