[分享]：vb方法生成"随机数"

雪山飞狐(lzh)

(vla-GetInterfaceObject (vlax-get-acad-object) "wscript.shell")可以获得
另外，(setq a (vla-GetInterfaceObject (vlax-get-acad-object) "ScriptControl"))总容易引起内存不足的错误，好像(setq a (vlax-create-Object "ScriptControl"))不会，没有过多的测试，：）

对于没有返回值的过程要调用ScriptControl对象的ExecuteStatement方法
不过对于Randomize好像没什么用，Randomize作用于过程，如果做出来了的话，调用Randomize和Rnd是两个过程，没有效果

另外，我上面的方法有问题，ScriptControl对象不能做全局变量，只能做局部变量，否则总会引起内存不足（太大了），Rnd不能用这种方法，其他的可以

下面做成函数调用VBS函数
调用格式：
(tls-eval 'msgbox '("Are u ready?" 1 "TlsCad"))

2. 
   
3. (defun tls-vbs()
   
4.   (setq Tls-VBScript (vlax-create-Object "ScriptControl"))
   
5.   (vlax-put-property Tls-VBScript "language" "vbs")
   
6.   Tls-VBScript
   
7. )
   
8. (defun tls-join(chrs fchr / pstr)
   
9.   (setq pstr "")
   
10.   (foreach i Chrs (setq pstr (strcat pstr i fchr)))
    
11.   (substr pstr 1 (- (strlen pstr) (strlen fchr)))
    
12. )
    
13. (defun tls-eval(funname args)
    
14.   (vla-eval (tls-vbs) (strcat (vl-prin1-to-string funname) "(" (tls-join (mapcar 'vl-prin1-to-string args) ",") ")"))
    
15. )

<br /> (defun tls-vbs()<br />   (setq Tls-VBScript (vlax-create-Object "ScriptControl"))<br />   (vlax-put-property Tls-VBScript "language" "vbs")<br />   Tls-VBScript<br /> )<br /> (defun tls-join(chrs fchr / pstr)<br />   (setq pstr "")<br />   (foreach i Chrs (setq pstr (strcat pstr i fchr)))<br />   (substr pstr 1 (- (strlen pstr) (strlen fchr)))<br /> )<br /> (defun tls-eval(funname args)<br />   (vla-eval (tls-vbs) (strcat (vl-prin1-to-string funname) "(" (tls-join (mapcar 'vl-prin1-to-string args) ",") ")"))<br /> )

nxchenjk

回的人少，我来小顶一下

nxchenjk

回的人少，我来小顶一下