AutoLISP有没有产生随机数的功能？

fxrswc1

如题，请教各位大侠，利用AutoLISP函数能否产生随机数？

SunVei

Ref:
' M3 o! a; b7 }http://groups.google.com/groups? ... 8E9C.2550%40ibm.net

sealive_leafage

如果vb了解的话可以试试下面的代码
3 P$ ?1 w8 J! ^4 Z  P5 n9 h
这是用LISP调用DLL文件生成随机数的程序示例。
+ \5 `( F/ S* Y7 v: A在VB6中创建一个ActiveX DLL工程，在其中将类模块修改为RND，将工程名修改为RNDAPP。在其中添加下面的代码：
2 `3 v" w! F# [' N0 BPublic Function GetRND() As Double
  Dim i As Double
  i = RND
# x( S" n+ A+ h. `; _! w  GetRND = i
End Function
- J- w" B; ~6 h4 D+ _将其编译成DLL文件（“RND.dll”）。
在WINDOWS下注册这个DLL文件。
先将这个文件拷入C盘根目录下（注：也可放入相应文件夹下但文件夹名称中不能有空格）。
0 |4 e! a1 L% t9 F再在运行中加入运行如下命令：Regsvr32 c:\RND.dll
然后编LISP程序。
(defun c:testrnd( / rndobj rndnum)
) w3 N3 m" N9 l+ i  (setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))
: m+ }  X  C9 \" M  (setq rndnum (vlax-invoke-method rndobj "GetRND"))
  (princ rndnum )
  (princ)
) X$ v1 _3 w" ]& U)
这里的rndnum就是相要的随机数。
3 ]$ W3 G  T: g) B/ u  |这里是测试结果：
命令: testrnd
  `( n+ v9 z4 f) [) [0.592458
命令:
命令: testrnd
0 H$ R8 s7 `, Q( X* b0.4687
命令:
/ S. W* ~7 w; m7 t! u命令: testrnd
0.298165
6 {( F" D( _* L: M% I* n# k
- S7 G# z7 \6 A/ S自动注册:
4 b  F+ f5 n, V8 T+ J- B$ W4 z4 }在前面加上一句 (STARTAPP "Regsvr32" (strcat "/s \"" "c:\\RND.dll" "\""))就可以了

fxrswc1

谢谢楼上两位的回复。我试过了，二楼给出的网页打不开；偶不懂VB，所以三楼给出的代码也用不了，不过还 是要谢谢大侠

SunVei

) A: U2 Q. k$ e( r8 k
Dos_lib ===>(dos_random)
5 I  n% u, J: S( Q8 W
or (groups.google)
* l; k: X2 w/ \. N1 ]7 @5 e
* t" w5 H1 g7 };;; by Paul Kohut
, l0 _; b! w- M6 p% i. e(setq SeedRand 1)
(defun rand (/)
8 u  B- P# y% K# s/ i  (setq SeedRand (+ (* (fix SeedRand) 214013) 2531011))
4 Q+ l, {$ e; Q, E  (boole 1 (/ SeedRand 65536) 32767)
)

;;; edited by Fatty
# ~# q$ c  j) J(defun randomgen (num init / rlst SeedRand init ncount val)
$ ~# k+ l! r8 |6 u. N5 d1 v1 A  (setq SeedRand (abs (fix (* 128256 (- init (fix init))))))
  (setq nCount 0)
: S! @3 {; ~4 E* O! `; c" U  (while (< nCount num)
! N9 u+ C2 G& r" E* d    (setq val (rem (rand) num))
3 m4 t9 a) N1 B7 J/ l    (if (not (member val rlst))
      (progn
+ b1 R( I4 V; z7 g/ e& R& A        (setq rlst (cons val rlst))
        (setq nCount (+ nCount 1))
      )
" b' t# z  k' n0 J5 y# C    )
2 K9 K( m$ t6 a- g" X2 [0 ?! b  )
% [' X' T1 f9 S0 Y- c' {1 D  rlst
)

: B" U5 c8 G0 _8 Q8 r: f5 E7 i======================================================

4 f  X$ A% E, J7 l2 xPosted By Doug Kidd on Oct. 11 2001.
;;; Initialize pseudorandom seed from time and date

(setq randseed (atoi (rtos (rem (fix (* (getvar "date") 10000.0)) 1000) 2 0)))

;;; RANDOM  --  Generate the next pseudorandom number between 0 and 10
: K1 h8 d- {5 s( k, m
1 H* @9 h0 V( @, J, u" l+ V(defun random ()
   (setq randseed (* randseed 17381))
   (/ (rem (Boole 1 randseed 65535) 100) 10.0)
)

  ]* f0 c3 F% t% E5 @9 j: V* q. u===================================================
4 ?& L. \2 w1 w* T
: b* `) R* I& M. [) X* C' j$ vLuis Esquivel
' x  c. g* n+ G5 v5 m2 I, W1 m7 MNewsgroups: autodesk.autocad.customization
  q4 |9 l* Z( o  ^....
! G" _3 B# }0 I0 S& ?# h;;; Random number generator
(defun ran ()
8 l3 P3 W' [- g2 E, n   (setq seed (if seed (rem (+ (* seed 15625.7) 0.21137152) 1) 0.3171943))
)
1 {5 U4 i/ `' s8 X" h4 B* `, _
& V/ ?" }  r; e
Terry Cadd
;;; GetRnd - Generates a random number
, g3 {# l( Z. G0 M! i% Q) e;;; Arguments: 1
: Z$ W* ^" v: E+ i;;;   Num# = Maximum random number range
) y; R$ }6 ^4 i& m* ?0 j;;; Returns: Random integer number between 0 and Num#.
8 d( V$ y0 m+ a
* ?6 a. G$ F! [# Z5 D. W- A/ w& m; m(defun GetRnd (Num# / MaxNum# PiDate$ RndNum# Minus Loop)
  (if (or (/= (type Num#) 'INT)(= Num# 0))
    (progn
* h9 ^7 N; g$ w0 G' H( i, @      (princ "\nSyntax: (GetRnd Num#) Num# = Maximum random integer number range\ngreater than or less than 0.")
" D- D" \8 \, R2 d+ Z5 I! z      (exit)
    );progn
- r# n) W3 N& A( c4 k  );if
- G5 N4 M. G" p& A  (if (< Num# 0)
    (setq MaxNum# (abs (1- Num#)) Minus t)
) w. {+ J1 t% r, k! L    (setq MaxNum# (1+ Num#))
  );if
* T' t+ u# l8 k" _, a  (if (not *RndNum*) (setq *RndNum* 10000))
  (setq Loop t)
  (while Loop
    (if (or (null *int*)(> *int* 100))
      (setq *int* 1)
      (setq *int* (1+ *int*))
* p( ]( ?0 ?% r8 I4 ~, W4 q    );if
4 [: V: ?8 e$ `* B    (setq PiDate$ (rtos (* (getvar "cdate") (* pi *int*)) 2 8))
* u' n' h; {; s) D    (cond
0 b3 i' R; v+ H      ((>= MaxNum# 10000)
        (setq RndNum# (fix (* (atof (substr PiDate$ 13 5)) (* MaxNum# 0.00001))))
: o$ X2 h% d8 p$ k+ G& \: j      )
      ((>= MaxNum# 1000)
1 M9 g$ y  V  E, ]        (setq RndNum# (fix (* (atof (substr PiDate$ 14 4)) (* MaxNum# 0.0001))))
      )
- E6 Q" c/ w# Z" y/ H& V      ((>= MaxNum# 100)
7 B- k- _+ D6 t/ Z3 V        (setq RndNum# (fix (* (atof (substr PiDate$ 15 3)) (* MaxNum# 0.001))))
/ {3 v. d& Q7 b. C" M$ m      )
      ((>= MaxNum# 10)
/ F( t, c. E3 k        (setq RndNum# (fix (* (atof (substr PiDate$ 16 2)) (* MaxNum# 0.01))))
      )
, g/ `; E! I1 s! n      ((>= MaxNum# 1)
/ k- ]3 N) `. X2 H; [6 h        (setq RndNum# (fix (* (atof (substr PiDate$ 17 1)) (* MaxNum# 0.1))))
      )
2 J' @/ t' N/ B, @      (t (setq RndNum# 0))
  e3 j4 K6 [' z    );cond
' e+ W: q! O5 B# Q    (if (/= RndNum# *RndNum*)
      (setq Loop nil)
. H% d+ L" l- W7 t+ @/ k    );if
  );while
6 S" V8 G$ Y% t# b, q% S  (setq *RndNum* RndNum#)
, d6 Z/ p+ A4 \- M7 x9 G! H- l- d  (if Minus
    (setq RndNum# (* RndNum# -1))
  );if
  RndNum#
);defun GetRnd