[LISP函数]：终于找到ukword函数,不敢独享

网络水手 · 发表于 2005-8-4 11:19:53

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

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

×

(defun ukword(bit kwd msg def / inp)
  (if (and def (/= def ""))
(setq msg (strcat "\n" msg "<" def ">:")
   bit (* 2 (fix (/ bit 2)))
   )
(setq msg (strcat "\n" msg ": "))
)
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp inp def)
  )

;;调用方法如下:
(defun c:xt001()
  (setq tt (ukword 1 "Yes No" "请选择(Yes/No):" tt))
  )

xyp1964 · 发表于 2005-8-4 15:11:49

应该这样：

[FONT=courier new]
;;调用方法如下:
(defun c:test ()
(setq tt (ukword 1 "Y N" "请选择(Yes/No):" tt))
(cond ((= tt "Y") (操作1))
((= tt "N") (操作2))
)
)
(defun ukword (bit kwd msg def / inp)
(if (and def (/= def ""))
(setq msg (strcat "\n" msg "<" def ">:")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ":"))
)
(initget bit kwd)
(setq inp (getkword msg))
(if inp
inp
def
)
)
[/FONT]

网络水手 · 发表于 2005-8-4 16:06:24

(cond ((= tt "Y") (操作1))
((= tt "N") (操作2))
)

对,不加这个什么事也不干哈!

coolload · 发表于 2005-8-4 20:16:51

弱弱问一句：这个函数用来做什么啊？见笑了

aeo · 发表于 2005-8-4 22:56:28

最初由 xyp1964 发布
[B]应该这样：
[CODE]
;;调用方法如下:
(defun c:test ()
  (setq tt (ukword 1 "Y N" "请选择(Yes/No):" tt))
  (cond ((= tt "Y") (操作1))
((= tt "N") (操作2))
  )
)
(defun ukword (... [/B]

(* 2 (fix (/ bit 2)))
这是为什么,如果是 (initget 1),不就成0了么?

网络水手 · 发表于 2005-8-5 08:19:27

(* 2 (fix (/ bit 2)))
这是为什么,如果是 (initget 1),不就成0了么?

当bit为0时就可能接受null输入了!

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：终于找到ukword函数,不敢独享

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

相关帖子