关于getkword

caravaggio

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


(initget "Add Substract")


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


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


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


                                                                         :


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

王咣生

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

ljpnb

是不是这个意思： (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

为什么... (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

原来我意思理解错了。 你这个函数用的位置错了。应该改成 (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

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

2. (defun c:test()
3.      (setq tx1 (ukword 1 "1 2 3 4 5" "\n1-上/2-下/3-左/4-右/5-中" tx1))   
4.    )(defun ukword (bit kwd msg def / inp)
5.    (if (and def (/= def ""))
6.        (setq msg (strcat "\n" msg "<" def ">:")
7.      bit (* 2 (fix (/ bit 2)))
8.        )
9.        (setq msg (strcat "\n" msg ":"))
10.    )
11.    (initget bit kwd)
12.    (setq inp (getkword msg))
13.    (if inp
14.        inp
15.        def
16.    )
17. )

(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    ) )