lisp里生成随机数。

zjdtm

我想在一个区域内生成一定数量的随机坐标的园。
这个过程应该不难，但是lisp的函数里，我没有找到可以生成随机数的函数。
请那位大侠帮帮我，我应该怎么实现？谢谢！

hnfsf

(defun @rnd (rmin rmax / e)  ; 产生随机数
    (vla-eval (vlax-get-acad-object)
              "Randomize : ThisDrawing.setVariable \"USERR5\" ,CDbl((Rnd))")
    (setq e (+ rmin (* (getvar "userr5") (- rmax rmin))))
    (if (= 'int (type rmin) (type rmax)) (fix e) e)
  )

alin

好像是从小东那儿来的

;;; Get a random value
;;;Author: aeo
(defun rnd (rMin rMax)
  (vla-eval (vlax-get-acad-object)
     "ThisDrawing.setVariable \"USERR5\" ,CDbl((Rnd))"
  )
  (+ rMin (* (getvar "userr5") (- rMax rMin)))
)

colder

有几种办法生成伪随机数

就是取一些随时间变化的系统变量的后几位:

(rtos (rem (getvar "DATE") 1) 2 16)
小数字符串的后几位已经失去了具体意义, 可以看做是随机数.

(rtos (getvar "CPUTICKS"))
这个得到的是整数, 它的最后几位也可以看做是随机数.
另: cputicks这个系统变量在帮助里查不到, 兼容性不得而知.

zjdtm

有没有其他办法？

colder

如果你了解其他语言是怎么产生伪随机数的
那你就会明白 (getvar "CPUTICKS") 完全可以满足你的要求了
因为随机数本来就是一个理想化的概念
现有的计算机技术产生的所谓随机数都是根据时钟周期产生随机种子, 再经过某种运算生成的伪随机数.
同一个种子产生的伪随机数也是相同的.

cputicks从字面意思理解就是"CPU的滴答音", 推测可能就是CPU的时钟周期.
那也就是说你的程序每进行一步, 这个周期早就跑好几圈了.
你每次读取, 结果一定不同, 并且没有实质上的规律.

不信你可以试试下面的:
(repeat 100 (prompt (strcat "\n" (rtos (rem (getvar "CPUTICKS") 10)))))

另附常见用法:
(rem (getvar "CPUTICKS") 10)   ;0-9
(1+ (rem (getvar "CPUTICKS") 11))   ;1-10
(rem (getvar "CPUTICKS") 65536)   ;0-65535

参考资料:
http://baike.baidu.com/view/1127.html

dinosaurhxe

按照楼上的方法，(repeat 100 (prompt (strcat "\n" (rtos (rem (getvar "CPUTICKS") 10)))))，所得的2和7居多，如下：

6
6
9
7
2
2
2
2
2
2
7
2
7
7
2
7
2
7
2
2
2
7
2
2
2
2
2
2
7
7
2
7
2
2
2
2
2
7
2
2
7
2
2
7
7
2
2
7
7
2
7
7
2
7
2
2
7
2
2
2
7
2
2
7
2
2
2
2
2
7
2
2
2
2
2
2
2
2
2
2
2
2
2
7
2
2
7
7
7
2
7
2
2
2
7
2
2
7
2
7

zjdtm

谢谢大家。

尤其谢谢colder，我刚学编程，让我长了不少知识。

谢谢。

colder

你的CAD好奇怪 是哪个版本?

我试过了 机会均等啊

jxphklibin

呵呵，编写一个函数，在指定的范围内产生随机实数，比如，指定在-2.0至3.0之间产生随机实数 (sjs min max)

oyxx1023

6楼的代码不行,重复执行(rnd 1 2)得到的结果都是一个鸟样.