Unblock In Autocad Shortcut [updated] Review

Would you like the full sequence or a lisp routine to automate unblocking?