Positie vergelijken

[delangstevandestraat]

Ik heb 2 entiteiten, en ik wil via lisp checken of deze op de zelfde plaats staan...
(if (= apos bpos)
  (doe iets)
)

dit doet niets, alsof hij niet ziet dat het wél gelijk is

wat is de makkelijkste manier om dit te doen ?

[roy_043]

Om lijsten te vergelijken moet je de equal functie gebruiken.
Vaak is het nodig om met een tolerantie te werken:

Code Selecteer Uitklappen

(equal pt1 pt2 1e-8)

[delangstevandestraat]

Ik had het voorlopig zo opgelost

Code Selecteer Uitklappen


(if (and (= (car posa)     (car posb))
           (= (cadr posa)   (cadr posb))
           (= (caddr posa) (caddr posb))
    )
   (doe iets)
)
[/font]

maar bedankt 'k zal het eens proberen