entsel

(entsel [prompt])

Asks to select one object with a click. Returns a list with the entity name and the picked point, or nil.

(setq s (entsel "\nSelect a line: "))
(entget (car s))