bb-qq.com 必强编程网 http://www.mjtd.com/?7327106 [收藏] [复制] [分享] [RSS] 你只有走完必须走的路，才能过想过的生活。有的路，你必须一个人走，这不是孤独，而是选择

日志

getkword

热度 1已有 5075 次阅读2019-9-16 23:16 |个人分类:运行原理|系统分类:开发| getkword

(defun c:bb()
(initget "1 2 3 4")
(if (not bb) (setq bb "1"))
(setq bb(cond ( (getkword (strcat
"送命题\n你老妈和你女朋友掉水里你先救谁
[老妈(1) /女朋友(2) / 都不救(3) / 退出(4)]
<" bb "> : " ))) ( bb )))(cond
((= bb "1") (alert "\n那女朋友呢?"))
((= bb "2") (alert "\n那老妈呢?"))
((= bb "3") (alert "\n你还是人?"))
((= bb "4") (alert "\n醒醒吧,你没有女朋友" )))
(princ))