关于getkword

caravaggio · 发表于 2005-4-9 12:57:00

我需要用getkword指令，但如果回车的话就是某一个答案，可以什样做呢？

(initget "Add Substract")

(setq ans (getkword "\nAdd or Substract : "))

(if (= ans nil) (setq ans "ADD")) <-- 好像不能这样做

(cond ((= ans "ADD") (....))

:

请版主及高手们指教，谢谢

王咣生 · 发表于 2005-4-9 13:18:00

可以这样做?有什么不对?

ljpnb · 发表于 2005-4-9 13:19:00

是不是这个意思： (if (= ansd nil)
(setq ansd "ADD")
)
(initget "Add Substract")
(setq ans (getkword (strcat "\nAdd or Substract <" ansd "> : ")))
(if (= ans nil) (setq ans ansd))
(setq ansd ans)
(cond ((= ans "ADD") (....))

caravaggio · 发表于 2005-4-9 15:09:00

为什么... (initget "Add Sub")
(setq ans (getkword "\ninput word : "))

(if (= ans nil) (princ "\nanswer is nil"))
(if (= ans "add") (princ "\nanswer is add"))
(if (= ans "sub") (princ "\nanswer is sub")) 是没有问题的，下面这个为什么不行呢 ? (initget "Add Substract Define")
(setq setoff_ans (strcase (getkword "\nDefine OFF layers :　")))　　
(if (= setoff_ans nil) (setq SetOff_Ans "ADD"))
(cond ((= setoff_ans "DEFINE") (Define_Off_Layers))
((= setoff_ans "ADD") (Add_Off_Layers))
((= setoff_ans "SUBSTRACT") (Substract_Off_Layers)) ) 我会车时就出来　“; error: bad argument type: stringp nil＂应该跟"strcase"没有关系吧，我把它除掉也是一样的。

ljpnb · 发表于 2005-4-9 15:46:00

原来我意思理解错了。你这个函数用的位置错了。应该改成 (initget "Add Substract Define")
(setq setoff_ans (getkword "\nDefine OFF layers :　"))　　
(if (= setoff_ans nil) (setq SetOff_Ans "ADD"))
(setq setoff_ans (strcase setoff_ans))
(cond ((= setoff_ans "DEFINE") (Define_Off_Layers))
((= setoff_ans "ADD") (Add_Off_Layers))
((= setoff_ans "SUBSTRACT") (Substract_Off_Layers)) )

xyp1964 · 发表于 2005-4-9 18:24:00

这个可能更加实用、方便：

(defun c:test()
(setq tx1 (ukword 1 "1 2 3 4 5" "\n1-上/2-下/3-左/4-右/5-中" tx1))
)(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
)
)

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

关于getkword

reply