LISP调用DLL文件生成随机数

tcsl9621 发表于 2007-1-5 22:04:00

这是用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 命令: 命令: testrnd 0.622697 命令: 命令: testrnd 0.647821 命令: 命令: testrnd 0.263793 命令: 命令: testrnd 0.279342 命令: 命令: testrnd 0.829802 命令: 命令: testrnd 0.824602 命令: 命令: testrnd 0.589163 命令: 命令: testrnd 0.986093 命令: 命令: testrnd 0.910964

无痕发表于 2007-1-23 00:02:00

本帖最后由作者于 2007-1-23 0:05:14 编辑

(defun C:TT2 (/ ETIME LST N STIME X)
(setq N 0
LST NIL
)
(repeat 10000
(setq LST (cons (setq N (1+ N)) LST))
)
(setq STIME (getvar "date"))
(setq LST (mapcar '(lambda (X) (nth X LST)) (rndsi (length lst))))
(setq ETIME (getvar "date"))
(prompt
(strcat
   "\n程式共耗用時間: "
   (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))
2
3
   )
   "秒\n"
)
)
LST
)
程式共耗用時間: 0.469秒
程序也用了cputicks
rndsi和tt2已经打包,下载解压后调入cad可直接运行tt2

VBALISPER 发表于 2023-10-7 23:14:05

以前都能正常支行的，但现在提示这个了
命令: testrnd 出错: 参数类型错误: VLA-OBJECT nil
不知道是不是因为用的64位系统和64位CAD的原因。怎么解决呢？

xsk199529 发表于 2018-7-4 11:11:52

好贴，我要试试64位软件能不能调用32位的DLL

nameld001 发表于 2007-1-5 22:37:00

顶!很好！学习

tcsl9621 发表于 2007-1-5 22:56:00

原创，大家下载研究吧。功能需大家自已开发。LISP和VBA都可用DLL文件扩展，呵……将一些LISP或VBA做不了的工作交给VB生成的DLL好了。

lqdcwnui 发表于 2007-1-6 12:39:00

这个方法不错，但却需要人工输入Regsvr32 c:\RND.dll，这点不好我本来想在lisp前加上一句
 (STARTAPP "Regsvr32" "c:\\RND.dll")，但是会弹出“确定”按钮不知道用vl-registry-write行不行？不过却不知道应该在注册表哪个位置？望楼主指点

lqdcwnui 发表于 2007-1-6 13:11:00

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

tcsl9621 发表于 2007-1-6 14:16:00

好自已研究的会记的深刻。

tcsl9621 发表于 2007-1-17 19:47:00

顶回去。

highflybir 发表于 2007-1-18 09:51:00

本帖最后由作者于 2007-1-18 10:40:29 编辑

这个方法很不错，把lisp完成不了的函数交给VB来做！
但是对于这个随机函数只能生成0-1之间的值，最好能生某个范围内的随机数.

(defun rnd (rMin rMax / rndobj rndnum)
(setq rndobj (vlax-get-or-create-object "RNDAPP.RND"))
(setq rndnum (vlax-invoke-method rndobj "GetRND"));取得随机数
(if (and (= (type rmin) (type 1))(= (type rmax) (type 1)));如果是整数
(fix (+ rMin (* rndnum (- rMax rMin -1))))    ;则取整
(+ rMin (* rndnum (- rMax rMin)))             ;对此范围内求值
)
)
稍微改了一下lisp函数。
下面是对无痕那个函数的修改，能自动判断整数和实数。

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

mccad 发表于 2007-1-18 10:10:00

本帖最后由作者于 2007-1-18 10:18:56 编辑

总感觉用DLL来生成一个随机数有些小题大作。
我来写一个,参考无痕的：
;生成随机数-by mccad:
(defun rnd(rMin rMax)
(vla-eval (vlax-get-acad-object) "Randomize : ThisDrawing.setVariable \"USERR5\" ,CDbl((Rnd))" )
(+ rMin(* (getvar "userr5")(- rMax rMin)))
)

无痕发表于 2007-1-18 14:37:00

这个方法原先是在xdcad的aeo那里看到的,不是我的原创.特此说明
by the way,在mccad的基础上:
(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
)
);;测试:
(repeat 20 (print(rnd 3 7)))
(repeat 20 (print(rnd 3. 7)))

页: [1] 2 3 4

明经CAD社区's Archiver

LISP调用DLL文件生成随机数