注册 登录
明经CAD社区 返回首页

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

日志

getkword

已有 139 次阅读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))

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-10-17 01:35 , Processed in 0.113910 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部