lisp里生成随机数。

liu_kunlun · 发表于 2009-1-6 16:11:00

(rem (* (getvar "CPUTICKS") 0.1) 10)

hnfsf · 发表于 2009-1-17 22:58:00

(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)
)

newbuser · 发表于 2011-11-26 22:34:31

pslstar · 发表于 2012-2-6 05:15:26

谢谢

cabinsummer · 发表于 2012-2-6 07:50:59

本帖最后由 cabinsummer 于 2012-2-6 07:51 编辑

6楼方法是目前最好的了。

pslstar · 发表于 2012-4-4 19:33:26

这行应该是： "ThisDrawing.setVariable \"USERR5\" ,CDbl(Rnd())" 注意是Rnd() 而不是(Rnd) 。

sageman · 发表于 2013-3-22 12:18:52

加载VBA时出错。

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