[求助]：帮我解释＂带提示和过滤表的entsel--精简程序代码＂

nuance

明经通道上看到的，但是看不懂，请帮我详细解释，谢谢
四两也能拨千斤

;;BY 无痕
;;调用:(XENTSEL "\n选择直线或圆..." '((0 . "*LINE,CIRCLE")))
;;循环选则直到选中符合过滤的实体为止

(defun xentsel (msg filter)
  (while (not (and (setq el (entsel msg)) (ssget "p" filter))))
  el
)


如果要只选一次的：

;;BY 无痕
;;调用:(XENTSEL1 "\n选择直线或圆..." '((0 . "*LINE,CIRCLE")))
;;只选一次，返回点表 (实体名 . 点位)；选不中或空选返回nil.

(defun xentsel1 (msg filter)
  (if (and (setq el (entsel msg)) (ssget "p" filter)) el nil)
)

陌生人

你只需看看vl的帮助文件里面的
and，not，while，if。 就可以搞清程序的结构了。这些都是最基本的函数

nuance

和函数本身没关系，我是想理解其思考方法，这可能就是象我和你们高手的区别吧．
如上式中利用（ssget "p")的目的．

LUCAS

entsel--單選不能過濾物件(有msg)
ssget--可以過濾物件(no msg 也可以單選)

那麼entsel 選物件後再用ssget過濾物件

也可這樣
(defun XENTSEL1(MSG FILTER)
  (prompt MSG)
  (if (setq EL (ssget "+.:E:S" FILTER))
    (ssname EL 0)
    NIL
  )
)

nuance

谢谢LUCAS的教授，但我还有一问题：
似乎＂：E：S＂即可，＋．的作用是什么？