完美实现entsel的选择功能

hnfsf

(defun @entsel (msg filter)
  (while (not (and (setq el (entsel msg)) (ssget (cadr el) filter))))
  el
)

这个函数可以实现带过滤功能的entsel，但是有个问题，不能右键或回车或空格退出。

(defun @entsel@ (msg filter)
  (if (and (setq el (entsel msg)) (ssget (cadr el) filter))
  el）
)

这个函数同样实现带过滤功能，可以右键或回车或空格退出，遗憾的是不能象ssget那样鼠标左键可以不停的选择物体，不管选中与否，右键或回车或空格才退出。

怎么修改才能实现象ssget那样鼠标左键可以不停的选择物体，不管选中与否，右键或回车或空格才退出。

Andyhon

check here

http://www.mjtd.com/function/list.asp?id=64&ordertype=byletter