entsel

(entsel [pregunta])

Pide designar un objeto con un clic. Devuelve una lista con el nombre de la entidad y el punto designado, o nil.

(setq s (entsel "\nDesigne una línea: "))
(entget (car s))