[日积月累]：请问各位高手，lisp里有没有随机函数？如果我要随机产生一个图层，应该怎

zzx76

请问各位高手，lisp里有没有随机函数？如果我要随机产生一个图层，应该怎么做？

aidraft

There are many ways to do that. I use (dos_random) from DOSLIB, otherwise, you can try the following function from Bell R Robert...
[php](defun Rnd (ValMin ValMax / ValRnd Seed)
(setq
Seed (atof (strcat "0." (substr (rtos (getvar "Date") 2 9) 16 2)))
ValRnd (+ ValMin (fix (+ 0.5 (* Seed (1+ (- ValMax ValMin))))))
) ;_ closes setq
(repeat (+ 10000 (fix (* 10000 Seed))))
ValRnd
) ;_ closes defun
[/php]
I suggest you use DOSLIB, it's much quicker and randomer, here are the test result:
[php](DEFUN C:TEST1()
  (REPEAT 1000
  (SETQ X (RND 1 1000))
  (SETQ Y (RND 1 1000))
  (COMMAND "POINT" (LIST X Y)))
)
(DEFUN C:TEST2()
  (REPEAT 1000
  (SETQ X (REM (DOS_RANDOM) 1000))
  (SETQ Y (REM (DOS_RANDOM) 1000))
  (COMMAND "POINT" (LIST (+ X 1000) Y)))
)[/php]

aidraft

最初由 心愿 发布
[B]? [/B]

生成一个随机数，前面加前缀，再却认图中的确不存在该层，就可以以该名创建一个新层。

oyxx_1023

doslib需要安装吗？

aidraft

只是一个ARX文件，加载便行

aeo

vl-filename-mktemp

它山之石

最好的办法是利用取得时间来生成以随机数字命名的图层。
晓东API中有取得时间作为随机数的命令。
我觉得这样意义并不大。图层名为何要随机？

winabcd

随机数有时是非常有用的，程序很好。