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

pxt2001

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

自贡黄明儒

不要想了，lisp办不到的。

G〆h

;带提示的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)
)

hf423

带关键字可以，一键回车不行

MUSIC-DIE

来C#玩，关键字的啥都行

guosheyang

G〆h 发表于 2022-7-26 09:09
;带提示的ssget
(defun LM:ssget ( msg arg / sel )
    (princ msg)

这个的确可以输入提示信息  

pxt2001

MUSIC-DIE 发表于 2022-7-26 10:49
来C#玩，关键字的啥都行

c#入门门槛比较高啊，且学习资料少很多，人气比lisp少很多。对于工程师来说，lisp也算是功能强大了，该有的都有。我在一楼提的问题，实质是美化和简化操作，即使是大型程序，核心计的算、循环遍历、嵌套等等主要功能，vlisp也不弱，它也能做出大型、复杂的程序。

524917100

用grread可以创个ssget，这样不用回车键，论坛里面有源代码

zj20190405

(list (prompt "\n请选择直线")(ssget))

guosheyang

zj20190405 发表于 2022-10-17 12:41
(list (prompt "\n请选择直线")(ssget))

提示没显示在命令行   容易被忽略   还是leemac的代码好些