・ Enter 終了で空打ちなしの (entsel) (nentsel)

(entsel) (nentsel) で、ユーザーにオブジェクトを選択させる場合、空打ちしてしまい、選択できないことが有ります。

(setq ent (entsel "\nオブジェクトを選択 <Enterで終了>：") 
(if ent
  (setq en (car ent))
  (exit);選択がなければ終了 空打ちでも終了してしまう
  )  

そこで、空打ちを許容して、空打ちの場合には、再度選択を求めるようにするには、次のようにします。

(while (not ent)
  (initget " ");空打ちを許容
  (setq ent (entsel "\nオブジェクトを選択 <Enterで終了>：") )
  (if (= ent "")  
    (exit);選択がなければ終了
    )
  );空打ちならループ
(setq en (car ent))  

(initget "A B C  ") とすれば、オプション入力を可能にして、空打ちも許容できます。

参考文献：「おぉとりすぷの広場」 記事番号<17970> <17974>