[iiscienceii]

Подскажите пожалуйста есть две начальные точки двух объектов
(setq nach_tip_est_sves_i (cdr (assoc 10 est_sves_i)))
(setq nach_tip_sves_i (cdr (assoc 10 _sves_i)))
Нужно проверить совпадение этих точек. Если они совпадают то выдавать сообщение точки совпадают.

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

Если с какой-либо точностью - то equal в руки и вперед.

[VVA]

Только обязательно equal указывать точность (fuzz) проверки

Код:

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

(if (equal nach_tip_est_sves_i nach_tip_sves_i 0.000001)
    (alert "Совпадают")
    (alert ("Не совпадают")
)