Need to create a lisp to the following

Step 1 - Save xrefs name, Scale, path and insert point
Step 2 - purge drawing of block names
Step 3 - Attach xrefs from previous list

Any help would be appreciated.