It's like you are trying to drive a nail with a pile driver rather than a hammer. A lisp routine to do this seems like overkill to me.
This is not a LISP-ON-DEMAND forum, everyone here VOLUNTEERS time to HELP others in their CAD related endeavors. You were already warned in a previous thread about this attitude. If you NEED a LISP, then contact someone to do this for you for a fee.