[LISP函数]：懒人“getkword”函数

ysx810210

懒人“getkword”函数详细说明:

功能:作用和用法与“getkword”函数相同,但功能比“getkword”函数强，可代替“getkword”函数。
特点:“getkword”函数选择关键字后需按回车才进行确认，“newgetkword”则不用，选择关键字后自动回车确认，连回车都懒得按了。
语法格式：(newgetkword gjzlist bj inforstring)
   函数参数说明:
   1、gjzlist : 关键字表，其值与参数bj有关，详见参数:bj的有关参数说明。
   2、bj : 关键字标记。值为：T 或 nil
    注意：
   为T时，gjzlist 必须为由关键字构成表，如(list "d" "f")，否则参数错误。
   为nil时，gjzlist 为任意值，如* 、nil 、99等。
   返回值 : 1、按键的小写字符  2、T(空格键或回车键)  3、nil(鼠标左键或右键)

请测试：
(defun c:cs( / sx)
  (load "NewGetkword.vlx")
  (setq sx (newgetkword (list "d" "f") T "\n*** 请选择:d-好听的/f-难听的<d>:"))
  (if (or (= sx T) (= sx nil)) (setq sx "d"))
  (cond
    ((= sx "d") (princ "\n*** 天哪，你真是帅呆了 ***"))
    ((= sx "f") (princ "\n*** *—%—*%￥￥#￥￥ ***"))
  )
  (princ)
)

taner

大家貢獻自己和程序時,最好將源碼公布出來.
既然是出於討論,學習,共同提高目的,我想應該這樣.

Underway

another style

ysx810210

凡事都是两面的，有好有坏，我就觉得论坛的规矩很好。

3楼的还只是 initget + getkword 而已。
特点:“getkword”函数选择关键字后需按回车才进行确认，“newgetkword”则不用，选择关键字后自动回车确认，连回车都懒得按了。

cy956

贴一个：

2. 
   
3.   
   
4. (defun cy_getstr(promp init def);;输入字串;;
   
5.   (initget init)
   
6.   (setq str(getkword (strcat promp "<" def ">")))
   
7.   (if (= str nil)(setq str def))
   
8.   str
   
9. )
   
10. 
    
11. (cy_getstr "\n输入选择Yes/No" "Y N" "Y")
    
12. 
    

<br />   <br /> (defun cy_getstr(promp init def);;输入字串;;<br />   (initget init)<br />   (setq str(getkword (strcat promp "<" def ">")))<br />   (if (= str nil)(setq str def))<br />   str<br /> )<br /> <br /> (cy_getstr "\n输入选择Yes/No" "Y N" "Y")<br /> <br />

回车都懒得摁，grread?

eachy

参见
http://www.xdcad.net/forum/showt ... 1345503#post1345503

yuer0103

支持二楼的观点！大家请尽量贴点源码，让我们也学习学习嘛！呵呵

ysx810210

原来论坛中早就有类似功能的程序了，献丑了。不过这个程序更为方便简单，直接引用就行了。
cy956斑竹猜得没错，这个程序也是用到grread。
顺便请教一个问题：
例子：entsel 函数的用法：
1、(entsel)
2、(entsel "选择直线:")
想问的是一楼的程序如何实现：
1、不需定义关键字时 (newgetkword "\n请按下按键:")
2、需要定义关键字时 (newgetkword (list "d" "f") T "\n*** 请选择:d-好听的/f-难听的:")
类似entsel函数的这种格式如何定义。
请教了，唔该晒先。

狂刀

(initget 128)
(entsel msg)
(initget "D F")
(entsel msg)

ysx810210

问题还没解决，期盼..............

Underway

得用Arx 去定义才成

jx2008

请尽量贴点源码，让大家也学习学习！

dmxcs

楼主您好，怎么什么都没有啊？源码能放吗？谢谢！