lisp中getword输入默认_晓东CAD家园-论坛-A/VLISP-[LISP函数]：懒人“getkword”函数-问题还没解决，期盼.............. - Powered by Di...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

懒人“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-难听的:"))

(if (or (= sx T) (= sx nil)) (setq sx "d"))

(cond

((= sx "d") (princ "\n*** 天哪，你真是帅呆了 ***"))

((= sx "f") (princ "\n*** *—%—*%￥￥#￥￥ ***"))

)

(princ)

)

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册