Lisp Routine Needed for Alerting you to overlapping Dimension LInes?

Hi Everyone, I hope I can discribe this well enough... sometimes someone dimensions a floor plan and starts one direction and then "goes back " the other way over the top of the dimension they just placed, which causes the dimension lines to overlap, which in turn shows incorrect distances when viewing on paper. Does anyone know of a lisp routine that can alert you to the fact that there are overlapping dimension lines (not the extension lines) in a drawing by changing them to color White or something? I have pasted a routine that we use which changes all dimenions with "modified text" to color white. That way I can see if someone just typed in the dimension distance they wanted instead of what was actually there. I don't know if this routine can be modified in anyway to acheive the results I'm asking for.

Any help would surely be appreciated.

(defun c:dc (/ dim_length)

(setq ssmod (ssget "X" (list (cons 0 "Dimension")(cons 1 "~"))))
(if ssmod
(progn
(setq dim_length (sslength ssmod))
(command "Change" ssmod "" "P" "C" "w" "")
(strcat "Found a total of ""< " (rtos dim_length 2 0) " >"" modified dimension(s), please verify. Use the DCB command to change the color back to BYLAYER")
);progn
(progn
(prompt "\nThere were no modified dimensions found...") (princ)
);end second program
); if

);end function

Thanks,

John W.

Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.

Image may be NSFW.
Clik here to view.