Name: entsel

Syntax:
(entsel [prompt])

Description:
Allows the user to select a single object in the drawing and it returns the objects name and the point that was selected in the drawing.

Example(s):
(setq EN1 (car (entsel "\nSelect::")))
(command "._erase" EN1 "")