Find closest point ID via tcl command

Hello,

 

Does anybody know function for finding the closest point ID to another point (using tcl command)? Or probably to find the point ID using its coordinates?

I find only command 'hm_findclosestpointonsurface', but it gives only coordinates as an output when I need ID of this point.

 

From Altair HyperWorks Help for scripts:

Syntax

hm_findclosestpointonsurface x y z surf_id

Description

For a given point on a surface, returns the closest other point on that same surface:

xs ys zs dist

 

Thank you in advance!