龙龙仔
发表于 2007-8-21 12:29:00
本帖最后由 作者 于 2007-8-21 12:32:28 编辑 <br /><br /> <p><strong><font face="Verdana" color="#000000">无痕已公布源碼,就差數組的處理</font></strong></p><p><strong><font face="Verdana" color="#000000">我也在想簡單的方法,下面只寫出數組</font></strong></p><p>(if (= -1 (vlax-invoke MSSC 'eval "isarray(GetValue)"))<br/> (progn<br/> (setq UB NIL<br/> N 1<br/> LST NIL<br/> )<br/> (while (= NIL UB)<br/> (if<br/> (/=<br/> (vl-catch-all-error-p<br/> (vl-catch-all-apply<br/> 'vlax-invoke<br/> (list MSSC 'eval (strcat "UBound(GETVALUE," (rtos N) ")"))<br/> )<br/> )<br/> t<br/> )<br/> (setq<br/> LST (append<br/> LST<br/> (list (list (vlax-invoke<br/> MSSC<br/> 'eval<br/> (strcat "LBound(GETVALUE," (rtos N) ")")<br/> )<br/> (vlax-invoke<br/> MSSC<br/> 'eval<br/> (strcat "UBound(GETVALUE," (rtos N) ")")<br/> )<br/> )<br/> )<br/> )<br/> )<br/> (setq UB N)<br/> )<br/> (setq N (1+ N))<br/> )<br/> LST<br/> )<br/>)</p><p></p><p><br/></p>
oyxx1023
发表于 2007-8-21 13:17:00
没看到啊在哪儿
无痕
发表于 2007-8-25 13:34:00
<p>一句话获得本机cpu序列号</p><p>(xxvbs "Set OBJ = GETObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")" "OBJ.ProcessorId")</p>
菜冬瓜
发表于 2007-11-8 20:21:00
<p>看了各位老大的程序，我也作了一些改进，应该是更方便的调用了，示例代码如下，</p><p>;以下定义一个函数<br/>(setq FF "<br/> sub mMsgbox (aa,bb)<br/> msgbox aa & bb, vbOKCancel + vbInformation, \"混合编程\"<br/> end sub<br/>"<br/>)<br/>;定义定义一个宏<br/>(setq msg "<br/> msgbox \"开始混合编程\"<br/>"<br/>)<br/>;以下开始主程序<br/>(defun c:Main (/ cc0 cc1)<br/> (setq str "<br/> $msg<br/> s1=\"v1+v2=\"<br/> s2=((setq v1 5 v2 6)(setq v2 (* v1 v2)))<br/> $ff<br/> mMsgbox s1,s2<br/> "<br/> )<br/> (SWS-vbs str "")<br/>)<br/>;因为暂时不支持注释，所以把注释写在下面了 <br/>;(defun c:Main (/ cc0 cc1)<br/>; (setq str "<br/>; $msg ;调用变量时候，在变量前加 $<br/>; s1=\"v1+v2=\"<br/>; s2=((setq v1 5 v2 6)(setq v2 (* v1 v2)));必须将lisp语句放在 ()里<br/>; $ff<br/>; mMsgbox s1,s2<br/>; "<br/>; )<br/>; (SWS-vbs str "")<br/>;) <br/>(c:Main)</p>
菜冬瓜
发表于 2007-11-8 20:26:00
附件
<p>以下是附件</p><p></p>
kaixinmao
发表于 2007-11-27 16:57:00
<p>掘墓，这个东西得给挖到前排去。</p><p>利用这个东西，vbs资源多的人可就享福了。</p><p></p>
xiaoquansb
发表于 2007-11-28 12:14:00
<p>正合适我这种想头特大，又只懂一点点lisp的</p>
xdto
发表于 2008-1-21 22:00:00
好好学
vken7az2p
发表于 2008-1-24 23:34:00
无痕发表于2007-8-13 22:31:00static/image/common/back.gif1.没有用到 wscript.exe,也没有写*.vbs程序里面加一句: (xxexpr \"< =>wscript\\.\" str \" \" \"m\")就是在把 \"wscript.\" 替换为 \" \".2.如果要支持ｊｓ， 就把 (vlax-put-prop
<p>请问版主您提到的返回值<br/>是怎样编写的<br/>可以说明一下吗<br/>谢谢</p><p>另外可以引用 kernel32 来使用吗?<br/>是否可以示范呢?</p>
nonsmall
发表于 2008-10-7 14:27:00
<p>前辈功力之高</p><p>吾辈唯有仰望</p><p>-------------------</p><p>当初这个帖子刚发布的时候,我看不懂,没有感觉.</p><p>现在回望到, 给我的冲击相当巨大,Lisp脱离CAD是我当初用ALISP最大的梦魇</p><p>现在接触VLISP后看到invoke的巨大潜力,终于在这里看到前辈的力作,潜力已被发掘了</p>