运行LSP，随机出现几个提示，有点像天正日积月累

朽木大师

作用：可偶尔增加点趣味，也可以在自己程序里加载进去，对软件使用的提示，当然如果你要列的条目特别多的话，可以把 8 1改成8 2 或8 3 （代表100以内 与1000以内条）

1. (defun rnd()
   
2. (setq 随机数(atoi(substr (rtos (getvar "cputicks") 2 0) 8 1)))
   
3. (cond
   
4.   ((= 随机数 2)
   
5.                                 (princ "\n【今天画图开心吗？】"))
   
6. ((= 随机数 4)
   
7.                                 (princ "\n【老板，延安城管喊你好给大家发奖金了】"))        
   
8. ((= 随机数 6)
   
9.                                 (princ "\n【我想放假了！】"))
   
10. ((= 随机数 8)
    
11.                                 (princ "\n【又加班，心情真不爽！！】"))
    
12. ((= 随机数 0)
    
13.                                 (princ "\n【输入AAA命令，为自动把图画完命令！】"))
    
14.                                 )                                
    
15.                                 (princ))
    

(defun rnd()<br /> (setq 随机数(atoi(substr (rtos (getvar "cputicks") 2 0) 8 1)))<br /> (cond <br />   ((= 随机数 2)<br />                                 (princ "\n【今天画图开心吗？】"))<br /> ((= 随机数 4)<br />                                 (princ "\n【老板，延安城管喊你好给大家发奖金了】"))        <br /> ((= 随机数 6)<br />                                 (princ "\n【我想放假了！】"))<br /> ((= 随机数 8)<br />                                 (princ "\n【又加班，心情真不爽！！】"))<br /> ((= 随机数 0)<br />                                 (princ "\n【输入AAA命令，为自动把图画完命令！】"))<br />                                 )                                <br />                                 (princ))<br />

cre8or

这么好玩 有空玩玩看

海盗曹

有意思，学习了~

Gu_xl

你们可以参研学习下 LeeMac 的 Tip of the Day 这个程序！

xiabin68

有意思，但是每次都要运行才要的，

kwok

增加定时弹出，，^_^

shalei021647

是否可以让他默认运行撒

朽木大师

（defun c:tt()

(rnd)
(princ)
)
这样运行TT命令时就自动运行了，你把这个(rnd)放到你想要运行的程序中就可以

清风明月名字

没有看到任何效果，不知道是什么原因?

朽木大师

清风明月名字 发表于 2013-6-8 13:12
没有看到任何效果，不知道是什么原因?

因为你运行时的随机数刚好是1 3 5 7 9 之类，当然是没有效果的效果