自贡黄明儒 发表于 2010-10-7 14:47:00

用lisp调用.vlx/给ao.vlx取一个别名

本帖最后由 作者 于 2010-10-18 19:22:01 编辑 <br /><br /> <p><font face="Verdana">;;仅供参考，大家多提意见</font></p>
<p><font face="Verdana">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>;;;用lisp调用.vlx<br/>;;;给ao.vlx取一个别名<br/>(defun c:kk()<br/>&nbsp;&nbsp; (vl-load-com)<br/>&nbsp;&nbsp; (defun SendKeys (keys / ws) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ws (vlax-create-object "WScript.Shell")) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-invoke-method ws 'sendkeys keys) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-release-object ws) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ) <br/>&nbsp;&nbsp; )<br/>(sendkeys "ao ")<br/>)<br/>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</font></p>

461045462 发表于 2010-10-8 06:28:00

<p><b style="FONT-SIZE: 12px; LINE-HEIGHT: 15px">用lisp调用.vlx/给ao.vlx取一个别名</b>收藏了。</p>
<p>下来学习学习。</p>
<p>虽然还没有明白有什么用，是改文件名，还是改命令名呢？如果是后者就好了。有冲突的命令改了就好了。</p>
<p>等会试试。</p>
<p>谢谢了</p>

nuts26173802 发表于 2012-5-11 22:20:45

谢谢 学习了

tm20038175 发表于 2012-5-11 22:38:02

没用，vlx有很多作者和命令打印信息，在屏幕上已经打出来了，取别名根本没有作用，最好加上一个清理命令行文字的程序，这样就完美了！…

长风（尚品） 发表于 2012-5-12 09:02:29

没搞明白如何使用
页: [1]
查看完整版本: 用lisp调用.vlx/给ao.vlx取一个别名