DXF和反应器的一些问题

onej

1、为何使用 (entget (car(entsel))) 能找到如图的DXF代码，但使用如下代码却没有用了， _$ (setq all-3(ssget "x" '((2 . "*U10")) ))
nil
_$ 那正确的代码是？ 2、在加载下面代码后，
(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . opened)))
(defun opened(reacator_object llist)
(setq a llist)
(alert (strcat "命令，" (car llist) ))

)
如果使用QUIT退出CAD，将有反应器提示，但点击右上角的关闭按钮怎么没有反应器提示？如何用反应器截获到？？

Ea

(ssget '((2 . "'*U10")))