如何在DCL中设计点选键

如附图，如何在Autocad用lisp在DCL中设计点选键？请各位指教。在此感激不尽！