[求助]返回对话框是怎么实现的？

yuun

cad中比如矩阵，填充命令，都会有按钮让你选择图形，选择完后，返回原对话框。

这是怎么实现的？

 (action_tile "pickup" "(pick)")

(defun pick()
  (setq en (car (entsel "选取对象:")))

);不退出对话框画面。

yuun

如果用(action_tile "pickup" "(done_dialog 2)")

执行完后，怎么返回对话框呢？

ZZXXQQ

用while循环实现。