get component name from a line or surface

hi, there!

how can I get the component name of a line or surface using tcl? is there a hm function that I could use.

example. If I select a surface with its number, how I could get its component name or ID

thanks!