I have a short expression in my acad.lsp that does 'picktofreeze' and one that does 'picktoset' that I have used for many years. I would share it with you if you were interested.