CAD命令行显示诗词，无限扩展版

烟盒迷唇 · 发表于 2021-7-13 11:56:56

本帖最后由烟盒迷唇于 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改为变量，根据文件内诗词数量自动获取，避免数量过少出错。

烟盒迷唇 · 发表于 2021-7-15 14:49:57

tigcat 发表于 2021-7-15 09:30
(nth (fix (rem (getvar "CPUTICKS") 99)) shici)是不是这句有问题啊？是不是随机数如果太大超过诗词数就会 ...

可能里面装的诗词太少了，你可以加多点啊

tigcat · 发表于 2021-7-16 12:58:41

烟盒迷唇发表于 2021-7-16 10:14
代码还可以优化一下，把99换成变量，根据诗词数量自动调整，这样就不会出错了。

经过我两个小时的实测，我的第100首歌出不来，请楼主修复

vlisp2012 · 发表于 2021-7-13 13:06:24

自贡黄明儒发表于 2021-7-17 07:46
启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。

大儒，咋个弄法？能否发个代码出来，谢了！

vlisp2012 · 发表于 2021-7-13 12:31:11

That's great!
可以一边工作，一边背单词了吧？支持位置记忆吗？下一次命令，下一个单词，并记忆位置。

自贡黄明儒 · 发表于 2021-7-13 12:46:10

启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。

Bao_lai · 发表于 2021-7-13 21:02:16

自贡黄明儒发表于 2021-7-13 12:46
启动命令反应器，每执行5个命令就在屏幕上显示一下诗词,10秒之后自动删除。

黄大师写一个呗

AndyWang · 发表于 2021-7-14 09:01:49

Bao_lai 发表于 2021-7-13 21:02
黄大师写一个呗

顶，来一个

自贡黄明儒 · 发表于 2021-7-14 11:06:28

Bao_lai 发表于 2021-7-13 21:02
黄大师写一个呗

有需要带式输送设计的可以找我哈

tigcat · 发表于 2021-7-15 08:24:16

可以随机展示就好了，比如文本有很多首诗，随机读取一行就好了

tigcat · 发表于 2021-7-15 08:28:46

等下去公司下载一个试试，命令名改为joy，这个程序非常好，看到随机函数了，看来可以随机。

烟盒迷唇 · 发表于 2021-7-15 08:39:12

tigcat 发表于 2021-7-15 08:28
等下去公司下载一个试试，命令名改为joy，这个程序非常好，看到随机函数了，看来可以随机。

这种肯定是要随机的啊

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

[源码] CAD命令行显示诗词，无限扩展版

本帖子中包含更多资源

评分

点评