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

fxrswc1 · 发表于 2010-1-10 13:07:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

SunVei · 发表于 2010-1-11 09:22:16

Ref:
http://groups.google.com/groups? ... 8E9C.2550%40ibm.net

sealive_leafage · 发表于 2010-1-12 16:16:15

如果vb了解的话可以试试下面的代码

这是用LISP调用DLL文件生成随机数的程序示例。
在VB6中创建一个ActiveX DLL工程，在其中将类模块修改为RND，将工程名修改为RNDAPP。在其中添加下面的代码：
Public Function GetRND() As Double
  Dim i As Double
  i = RND
  GetRND = i
End Function
将其编译成DLL文件（“RND.dll”）。
在WINDOWS下注册这个DLL文件。
先将这个文件拷入C盘根目录下（注：也可放入相应文件夹下但文件夹名称中不能有空格）。
再在运行中加入运行如下命令：Regsvr32 c:\RND.dll
然后编LISP程序。
(defun c:testrnd( / rndobj rndnum)
  (setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))
  (setq rndnum (vlax-invoke-method rndobj "GetRND"))
  (princ rndnum )
  (princ)
)
这里的rndnum就是相要的随机数。
这里是测试结果：
命令: testrnd
0.592458
命令:
命令: testrnd
0.4687
命令:
命令: testrnd
0.298165

自动注册:
在前面加上一句 (STARTAPP "Regsvr32" (strcat "/s \"" "c:\\RND.dll" "\""))就可以了

fxrswc1 · 发表于 2010-1-14 08:00:32

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

SunVei · 发表于 2010-1-14 08:46:50

本帖最后由 SunVei 于 2010-1-14 08:48 编辑

Dos_lib ===>(dos_random)

or (groups.google)

;;; by Paul Kohut
(setq SeedRand 1)
(defun rand (/)
  (setq SeedRand (+ (* (fix SeedRand) 214013) 2531011))
  (boole 1 (/ SeedRand 65536) 32767)
)

;;; edited by Fatty
(defun randomgen (num init / rlst SeedRand init ncount val)
  (setq SeedRand (abs (fix (* 128256 (- init (fix init))))))
  (setq nCount 0)
  (while (< nCount num)
(setq val (rem (rand) num))
(if (not (member val rlst))
   (progn
      (setq rlst (cons val rlst))
      (setq nCount (+ nCount 1))
   )
)
  )
  rlst
)

======================================================

Posted 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

(defun random ()
(setq randseed (* randseed 17381))
(/ (rem (Boole 1 randseed 65535) 100) 10.0)
)

===================================================

Luis Esquivel
Newsgroups: autodesk.autocad.customization
....
;;; Random number generator
(defun ran ()
(setq seed (if seed (rem (+ (* seed 15625.7) 0.21137152) 1) 0.3171943))
)

Terry Cadd
;;; GetRnd - Generates a random number
;;; Arguments: 1
;;; Num# = Maximum random number range
;;; Returns: Random integer number between 0 and Num#.

(defun GetRnd (Num# / MaxNum# PiDate$ RndNum# Minus Loop)
  (if (or (/= (type Num#) 'INT)(= Num# 0))
(progn
   (princ "\nSyntax: (GetRnd Num#) Num# = Maximum random integer number range\ngreater than or less than 0.")
   (exit)
);progn
  );if
  (if (< Num# 0)
(setq MaxNum# (abs (1- Num#)) Minus t)
(setq MaxNum# (1+ Num#))
  );if
  (if (not *RndNum*) (setq *RndNum* 10000))
  (setq Loop t)
  (while Loop
(if (or (null *int*)(> *int* 100))
   (setq *int* 1)
   (setq *int* (1+ *int*))
);if
(setq PiDate$ (rtos (* (getvar "cdate") (* pi *int*)) 2 8))
(cond
   ((>= MaxNum# 10000)
      (setq RndNum# (fix (* (atof (substr PiDate$ 13 5)) (* MaxNum# 0.00001))))
   )
   ((>= MaxNum# 1000)
      (setq RndNum# (fix (* (atof (substr PiDate$ 14 4)) (* MaxNum# 0.0001))))
   )
   ((>= MaxNum# 100)
      (setq RndNum# (fix (* (atof (substr PiDate$ 15 3)) (* MaxNum# 0.001))))
   )
   ((>= MaxNum# 10)
      (setq RndNum# (fix (* (atof (substr PiDate$ 16 2)) (* MaxNum# 0.01))))
   )
   ((>= MaxNum# 1)
      (setq RndNum# (fix (* (atof (substr PiDate$ 17 1)) (* MaxNum# 0.1))))
   )
   (t (setq RndNum# 0))
);cond
(if (/= RndNum# *RndNum*)
   (setq Loop nil)
);if
  );while
  (setq *RndNum* RndNum#)
  (if Minus
(setq RndNum# (* RndNum# -1))
  );if
  RndNum#
);defun GetRnd

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

通知

[已答复] AutoLISP有没有产生随机数的功能？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块