一种生成随机数的方式

kozmosovia

生成随机数，除了常用的种子计算或者根据cputick来计算，我们还可以采用另外一种不用计算的生成随机数的方法：可以利用生成GUID的方式，从生成的GUID中剔除非数字部分，剩余的部分可以前面补0.转换成成为0~1之间的数字。因为GUID的生成本身的离散型，再加上数字在整个GUID的出现也具有随机性，最终生成的随机数应该比单纯的种子计算或者根据cputick来计算来更加随机。
代码如下：

(Defun vldcl-RandomByGUID ()
  (distof
    (strcat
      "0."
      (vl-list->string
        (vl-remove-if-not
          (function (lambda (x) (< 47 x 58)))
          (vl-string->list
            (vlax-get (vlax-create-object "Scriptlet.TypeLib") "GUID")
          )
        )
      )
    )
  )
)

yshf

谢谢分享

伊江痕

太强了，我的K

chenbh2

，看来有点强悍！

guosheyang

感谢大佬的分享！