[求助]：如何随机地指定出线的颜色？

light_dream · 发表于 2003-7-22 11:52:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

当我采用循环程序绘制不定条线时，以示区别，需指定不同线的颜色，怎样随机地指定线的颜色？请大虾们指教！

daziran · 发表于 2003-7-22 23:51:54

你可以用系统变量 CDATE 最后两位作为随机数

lijiao · 发表于 2003-7-23 08:15:21

可以产生0～256的随机数。

light_dream · 发表于 2003-7-23 08:37:45

这一条我还真没用过！怎么个用法？还请二位详细指点！谢谢！

daziran · 发表于 2003-7-23 23:47:10

似乎lisp 没有随机函数，只好找个替代数。
我们知道：
命令:cdate =〉 CDATE=20030723.22334845(只读)
因此有代码：
(setq str (rtos (getvar "cdate")))
(if (= (strlen str) 16)(setq str (strcat str "0")))
(setq k (atoi (substr str 16)))

则k值为45。
于是你获得了从0到99的随机数。

light_dream · 发表于 2003-7-24 16:44:21

谢谢daziran！这个数字会有16位的时候吗？

daziran · 发表于 2003-7-24 18:46:56

你觉得 if 语句没什么用吧？
当 CDATE=20030723.22334840 （末尾为0）时，它就有用了。

egos · 发表于 2007-6-17 10:51:02

(setq str (rtos (getvar "cdate") 2 8))
(if (= (strlen str) 16)(setq str (strcat str "0")))
(setq k (/ (atoi (substr str 16)) 10.0))
改一下，获得1·－9.9的范围呵呵
不过随机数有问题时，要看看rtos的参数或系统变量 lunits和 luprec的的值，精度也是一个问题。

nuance · 发表于 2007-6-20 08:57:03

autolisp学习导引中国铁道出版社有专门介绍。篇幅太长，不能录入。

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

[求助] [求助]：如何随机地指定出线的颜色？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子