不用回车的KeyWord

hf423

试一下这个，不记得原作者是谁了，应该是来源于本论坛。

2. ;;;(Get_Key_Word "\n1实体/2钢筋砼/3素砼/4墙体/5阳台/6卫生间/7厨房：<1>"'("1" "2" "3" "4" "5" "6" "7") "1")
   
3. (defun Get_Key_Word(pro lst def / kw val)
   
4.   (setq lst (apply 'append (mapcar '(lambda(e) (list (ascii (strcase e)) (ascii (strcase e T)))) lst)) def (ascii def))
   
5.   (prompt pro)
   
6.   (while (not (and (setq kw (grread nil) val (car kw) kw (cadr kw)) (member val '(2 11 25))
   
7.                    (if (or (= val 25) (and (= val 11) (= kw 0)) (member kw '(13 32))) (setq kw def) (member kw lst)))))
   
8.   (strcase (vl-list->string (list kw))))

;;;(Get_Key_Word "\n1实体/2钢筋砼/3素砼/4墙体/5阳台/6卫生间/7厨房：<1>"'("1" "2" "3" "4" "5" "6" "7") "1")<br /> (defun Get_Key_Word(pro lst def / kw val)<br />   (setq lst (apply 'append (mapcar '(lambda(e) (list (ascii (strcase e)) (ascii (strcase e T)))) lst)) def (ascii def))<br />   (prompt pro)<br />   (while (not (and (setq kw (grread nil) val (car kw) kw (cadr kw)) (member val '(2 11 25))<br />                    (if (or (= val 25) (and (= val 11) (= kw 0)) (member kw '(13 32))) (setq kw def) (member kw lst)))))<br />   (strcase (vl-list->string (list kw))))

20060510412

hf423 发表于 2022-5-17 14:34
试一下这个，不记得原作者是谁了，应该是来源于本论坛。

这个也很厉害，而且很简洁

pxt2001

仅仅不用回车关键字没意思，要在entsel,ssget选择的同时，如果输入了关键字，不用回车就直接返回对应key，有没有哪位大神解决了。飞诗寻梦大神的“带关键字的ssget”虽然可以用，但在命令行有一些奇怪提示。也没有一键回车功能。

20060510412

要是能做到显示在光标处，这个功能就更完美了