・ ユーザー入力がなくなるまで繰り返し実行

例１）

(while (setq pt (getpoint "\nポイントを指示 <Enter>で終了："))
  (............)
  )



例２）

(setq ent (entsel "\nオブジェクトを指示 <Enter>で終了："))
(while ent
  (..........)
  (setq ent (entsel "\nオブジェクトを指示 <Enter>で終了："))
  )