Here is the little modification that was missing: you already have the functionality
But you should simplify the code a bit.
One test you could do is to obtain the triangles using minimum circles to compare the differences.
Do your tests
(defun SX:M3DFACEF3DPL (/ enameOne enameSecond old_layer
layerNameBase dataOne ptOne
ptlistOne dataSecond ptSecond ptlistSecond
len i j pt1
pt2 ...