[求助]：这个函数如何调用

liuzqyh

在网上下了个随机函数的Vlisp,不知对不对,也不会调用,请高手指点一二.

2. 
   
3. 
   
4. (defun rnd (rMin rMax / rndobj rndnum)
   
5.   (setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))
   
6.   (setq rndnum (vlax-invoke-method rndobj "GetRND"));取得随机数
   
7.   (if (and (= (type rmin) (type 1))(= (type rmax) (type 1)));如果是整数
   
8.     (fix (+ rMin (* rndnum (- rMax rMin -1))))      ;则取整
   
9.     (+ rMin (* rndnum (- rMax rMin)))               ;对此范围内求值
   
10.   )  
    
11. )
    
12. 
    

<br /> <br /> (defun rnd (rMin rMax / rndobj rndnum)<br />   (setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))<br />   (setq rndnum (vlax-invoke-method rndobj "GetRND"));取得随机数<br />   (if (and (= (type rmin) (type 1))(= (type rmax) (type 1)));如果是整数<br />     (fix (+ rMin (* rndnum (- rMax rMin -1))))      ;则取整<br />     (+ rMin (* rndnum (- rMax rMin)))               ;对此范围内求值<br />   )  <br /> )<br /> <br />

稍微改了一下lisp函数。

下面是对无痕那个函数的修改，能自动判断整数和实数。

2. 
   
3. 
   
4. (defun rnd (rMin rMax / rndnum)
   
5.   (vla-eval (vlax-get-acad-object) "ThisDrawing.setVariable \"USERR5\" ,CDbl((Rnd))")
   
6.   (setq rndnum (getvar "userr5"))                            ;取得随机数
   
7.   (if (and (= (type rmin) (type 1)) (= (type rmax) (type 1)));如果是整数
   
8.     (fix (+ rMin (* rndnum (- rMax rMin -1))))               ;则取整
   
9.     (+ rMin (* rndnum (- rMax rMin)))                        ;否则求此范围内随机值
   
10.   )
    
11. )
    
12. 
    

<br /> <br /> (defun rnd (rMin rMax / rndnum)<br />   (vla-eval (vlax-get-acad-object) "ThisDrawing.setVariable \"USERR5\" ,CDbl((Rnd))")<br />   (setq rndnum (getvar "userr5"))                            ;取得随机数<br />   (if (and (= (type rmin) (type 1)) (= (type rmax) (type 1)));如果是整数<br />     (fix (+ rMin (* rndnum (- rMax rMin -1))))               ;则取整<br />     (+ rMin (* rndnum (- rMax rMin)))                        ;否则求此范围内随机值<br />   )<br /> )<br /> <br />

yshf

每次得到的随机数都有是一样的！！！

liuzqyh

那如何修改?才样才能做个每次不一样的呢~~~
我在置顶贴中  "[原创]：方便查询的XDCAD论坛Autolisp开发帖子汇总（更新到2007.5.1） "        找到 [分享]：vb方法生成"随机数"+aeo,   可我看不明白,有人能帮我整个完整的出来吗

carrot1983

这个应该是在明经里面拿的吧。。。如果是的话，上面应该有说明怎么取啊。呵！

liuzqyh

是在明经取的,好像没说明