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

tigcat · 发表于 2021-7-15 09:25:08

(or stringp symbolp): nil,把路径添加好了，弹出这么一个东西

tigcat · 发表于 2021-7-15 09:30:25

本帖最后由 tigcat 于 2021-7-15 09:33 编辑

(nth (fix (rem (getvar "CPUTICKS") 99)) shici)是不是这句有问题啊？是不是随机数如果太大超过诗词数就会出现错误呢？

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

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

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

tigcat · 发表于 2021-7-15 21:10:17

烟盒迷唇发表于 2021-7-15 14:49
可能里面装的诗词太少了，你可以加多点啊

对，我加了100首进来，可以了

烟盒迷唇 · 发表于 2021-7-16 10:14:44

代码还可以优化一下，把99换成变量，根据诗词数量自动调整，这样就不会出错了。

tigcat · 发表于 2021-7-16 12:47:05

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

感谢楼主优化代码

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

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

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

Bao_lai · 发表于 2021-7-16 13:23:13

tigcat 发表于 2021-7-16 12:58
经过我两个小时的实测，我的第100首歌出不来，请楼主修复

99改一下就好

tigcat · 发表于 2021-7-16 14:14:47

Bao_lai 发表于 2021-7-16 13:23
99改一下就好

好的，感谢指导。

烟盒迷唇 · 发表于 2021-7-16 15:06:08

tigcat 发表于 2021-7-16 14:14
好的，感谢指导。

改了也出不来吗？那就把1-去掉

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

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