I like it that code, good idea and Andrea.
As suggest
(setq p1 (getpoint "\nSelect object...from inside to outside"))
yes Gary..you'r right...
it work only when picking from inside to outside..
I miss to specify it..
too much in my head....I need an aspirin..