Lisp to eliminate all that is inside in frozen layer until the same layer dwg