cadlittlewhite 发表于 2020-11-29 18:20:09

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

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

zmzk 发表于 2020-12-1 07:07:15

请举例怎么用啊？

cadlittlewhite 发表于 2020-12-3 17:59:07

zmzk 发表于 2020-12-1 07:07
请举例怎么用啊？
举例: (setq a(xentsel "请选择文本" '((0 . "text"))))
这样就是一个文本选择过滤器,并且不选中文本将继续保持选择状态.
页: [1]
查看完整版本: lisp自定义函数(3):自定义选择过滤器