lisp自定义函数(3):自定义选择过滤器

cadlittlewhite

(defun xentsel (msg fil)
  (while (not (and (setq el (entsel msg)) (ssget (cadr el) fil)))
  )
  el
)

zmzk

请举例怎么用啊？

cadlittlewhite

zmzk 发表于 2020-12-1 07:07
请举例怎么用啊？

举例: (setq a(xentsel "请选择文本" '((0 . "text"))))
这样就是一个文本选择过滤器,并且不选中文本将继续保持选择状态.