First of all thank you all for the answers:
@gile: this is good for another case that I have to solve, but in this case it select too many objects
using: (getvar 'extmin).
roy_043: I do not have the point list to use your function I only have a point
I try Lee Mac or ribarm (more complex) suggestion.
I'll see if I have problems.
Grazie ancora.