CAD命令行显示诗词，无限扩展版
本帖最后由 烟盒迷唇 于 2021-7-16 10:48 编辑之前论坛发布的一个代码诗词显示，地址如下：
http://bbs.mjtd.com/thread-180980-1-1.html
诗词需要嵌套在代码里，写起来比较麻烦，而且扩展也不方便，现进行优化，把诗词独立出来，做成一个TXT文件，方便添加。可以无限扩容，添加自己喜欢的诗词进去。代码如下：
[*];;;;;诗词显示
[*](defun List_sc(/ file n shici str)
[*](setq file (findfile "诗词大全.txt")) ;添加到支持路径里
[*](setq shici (reverse (cx-read file)))
[*](setq str (nth (fix (rem (getvar "CPUTICKS") 99)) shici))
[*](while (setq n (vl-string-search "\\n" str))
[*] (setq str (vl-string-subst "\n" "\\n" str n))
[*])
[*](prompt str)
[*] (prin1)
[*])
2021年7月16日更新，诗词数量99改为变量，根据文件内诗词数量自动获取，避免数量过少出错。
tigcat 发表于 2021-7-15 09:30
(nth (fix (rem (getvar "CPUTICKS") 99)) shici)是不是这句有问题啊？是不是随机数如果太大超过诗词数就会 ...
可能里面装的诗词太少了，你可以加多点啊 烟盒迷唇 发表于 2021-7-16 10:14
代码还可以优化一下，把99换成变量，根据诗词数量自动调整，这样就不会出错了。
经过我两个小时的实测，我的第100首歌出不来，请楼主修复 自贡黄明儒 发表于 2021-7-17 07:46
启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。
大儒，咋个弄法？能否发个代码出来，谢了！
That's great!
可以一边工作，一边背单词了吧？支持位置记忆吗？下一次命令，下一个单词，并记忆位置。 启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。 自贡黄明儒 发表于 2021-7-13 12:46
启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。
黄大师写一个呗 Bao_lai 发表于 2021-7-13 21:02
黄大师写一个呗
顶，来一个 Bao_lai 发表于 2021-7-13 21:02
黄大师写一个呗
有需要带式输送设计的可以找我哈:lol 可以随机展示就好了，比如文本有很多首诗，随机读取一行就好了 等下去公司下载一个试试，命令名改为joy，这个程序非常好，看到随机函数了，看来可以随机。 tigcat 发表于 2021-7-15 08:28
等下去公司下载一个试试，命令名改为joy，这个程序非常好，看到随机函数了，看来可以随机。
这种肯定是要随机的啊