请问：如何实现带关键字的ssget?

pxt2001 · 发表于 2022-7-24 11:51:00

(ssget note keyword filter)
带关键字keyword和提示字符串note的ssget，除了飞诗寻梦fsxm-ssget，还有没有解决方式？能够一键回车(例如按关键字S不需要输入回车键或空格键直接返回"S")更好。
飞诗寻梦的fsxm-ssget程序会在命令行打印一些无用信息。

自贡黄明儒 · 发表于 2022-7-25 17:59:00

不要想了，lisp办不到的。

G〆h · 发表于 2022-7-26 09:09:00

;带提示的ssget
(defun LM:ssget ( msg arg / sel )
(princ msg)
(setvar 'nomutt 1)
(if arg
(setq sel (vl-catch-all-apply 'ssget arg))
(setq sel (vl-catch-all-apply 'ssget ))
)
(setvar 'nomutt 0)
(if (not (vl-catch-all-error-p sel)) sel)
)