[Calibration]

Здравствуйте.
Не помню откуда находил вот такую программу по нахождению точек пересечений двух полилиний:

Код:

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

[LISP
(defun intersect (obj1 obj2 / tmp x y)
(setq tmp 
(vlax-variant-value (apply 'vla-intersectwith
(reverse (cons acExtendNone (mapcar 'vlax-ename->vla-object (list obj1 obj2)))))))
(if (> (vlax-safearray-get-u-bound tmp 1) 0)
(vl-remove nil (mapcar '(lambda (z / ret) 
(if y (setq ret (list x y z) x nil y nil) (if x (setq y z) (setq x z))) ret) 
(vlax-safearray->list tmp)))
)
)
[/lisp]

Отличная вещь. Постоянно применяю.
Подскажите, пожалуйста, что нужно переделать в этом коде, чтобы программа не учитывала координату Z? то есть чтобы программа воспринимала все пересекающиеся полилинии, как лежащие в одной плоскости.

[Хмурый]

а привязка "кажущееся пересечение" не подходит?

[Calibration]

эээ. наверное, нет

[Хмурый]

Сообщение от Calibration эээ. наверное, нет

выложи пример и обоснуй

[Calibration]

пример, вот.

надо найти точки пересечения черной линии с оранжевыми.
Если значение "уровень" для всех полилиний одинаковый (обычно равен 0), то точки определяются программой intersect, а вот если уровни разные (не пересекаются в трехмерном пространстве) - то нет.
Для моей задачи необходимо, чтобы программа intersect ( или ее аналог) не учитывал координату z, как будто все линии лежат в одной плоскости.
Если это можно выполнить с помощью кажущегося пересечения и программы intersect, то я не против. Только как это сделать?

[Хмурый]

в AutoCAD'е существует привязка "кажущееся пересечение". По крайней мере, начиная с 2008-ой версии она появилась.
или flatten всем полилиниям из комплекта Express Tools
Ещё существует геометрический калькуллятор и нельзя забывать про его команды ill для нахождения координат точки пересечения линий и ilp для нахождения координат точки пересечения линии с плоскостью. (см. рис. 2)