[tujn08]

Приветствую всех!

Ищу смежную линию к двум другим. Ищу короткий путь - Л1 пересекает Л2. Есть смежная линия Л3 - через нее путь короче может быть. Но есть где такие смежные линии просто пересекают Л1 и Л2 в их точке пересечения. Тут я вычисляю точки где Л3 пересекает Л1 и Л2 и сравниваю их. Три смежные линии отсеяны успешно, а вот дальше проблема. Даже точность не помогает. Как быть?
Сравниваю 2D/3D точки.

(if (equal s_coord coord2 0.1)
(равны)
(не равны)
)

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

Приводи эти точки к одинаковому формату - либо только 2D, либо только 3D. Нередко этого оказывается достаточно.

[tujn08]

Сообщение от Кулик Алексей aka kpblc либо только 2D, либо только 3D

Для уточнения:
Вы поняли вот так: 1) сравниваю 2D c 3D точками. Или 2) 2D/3D с 2D/3D точками ?. Для меня видна разница в п.1, если же п.2 то это что-то новенькое для меня ))
Спасибо!
Буду CAR и CADR щас сравнивать пробовать...

----- добавлено через ~16 мин. -----
(if (and (equal (car s_coord) (car coord2) 1) (equal (cadr s_coord) (cadr coord2) 1) )

та же ошибка. как перевести в 2D?

----- добавлено через ~20 мин. -----
Команда: (princ s_coord)
(-158.825 307.93 0.0)
Команда: (princ coord)
(-158.825 307.93 0.0)

----- добавлено через ~20 мин. -----
Может округлить?

[VVA]

Сообщение от tujn08 та же ошибка.

В чем ошибка то?

Код:

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

(setq s_coord '(-158.825 307.93 0.0))
(setq coord '(-158.825 307.93 0.0))
(if (equal s_coord coord 1e-3)(princ "equal")(princ "not equal"))
(princ)

_$ equal ; 4 форм загружено из #<editor "<Без имени-0> загружается..."> _$

Сообщение от tujn08 как перевести в 2D?

Код:

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

(setq s_coord '(-158.825 307.93 0.0))
(setq s_coord_2d (mapcar '+ s_coord '(0.0 0.0)))

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

Код написан черт-те когда, поэтому качество хромает. Тем не менее работает

Код:

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

 (defun _kpblc-conv-2d-to-3d (point)
                            ;|
*    Преобразование 3Д-точки в 2Д
*    Параметры вызова:
*  point  список вещественных чисел (точка)
*    Примеры вызова:
(_kpblc-conv-2d-to-3d (getpoint))
|;
  (list (car point)
        (cadr point)
        (if (caddr point)
          (caddr point)
          0.0
          ) ;_ end of if
        ) ;_ end of list
  ) ;_ end of defun

(defun _kpblc-conv-3d-to-2d (point)
                            ;|
*    Преобразование 3Д-точки в 2Д
*    Параметры вызова:
*  point  список вещественных чисел (точка)
*    Примеры вызова:
(_kpblc-conv-3d-to-2d (getpoint))
|;
  (list (car point) (cadr point))
  ) ;_ end of defun

[tujn08]

Всем спасибо!
Оказалось все работает исправно. Я переменные переприсваивал и смотрел не туда.

Код:

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

 (setq coord2 coord) ; проверка смежной линии на надежность. Будем сравнивать
									(setq coord s_coord) ; меняем координаты на первые
(f_or_b1) ; вычисляем длину (10 (FINISH до пересечения

(f_or_b1)- тут coord меняется
Я смотрел на coord и s_coord, а надо было на coord2 и s_coord