Perhaps I am doing something wrong, here is what I have:
(setq PtA (vlax-safearray->list (vlax-variant-value retCoordA))
PtB (vlax-safearray->list (vlax-variant-value retCoordB))
)
(if (vl-every '(lambda (q p) (equal q p 1e-8)) PtA PtB)
(alert "Objects are the same")
(alert "Objects are different")
)
Even when the objects are the same, it returns that they are different.