huanxue0313 发表于 2008-1-23 08:45:00

[求助]如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？

本帖最后由 作者 于 2008-1-23 10:01:52 编辑 <br /><br /> <p>请高手赐教，如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？</p><p>PS：今天努力了一把，已经会在菜单里让它运行了</p>

azjmjsj 发表于 2008-1-23 12:56:00

本帖最后由 作者 于 2008-1-23 12:57:24 编辑 <br /><br /> <p>给你一个例子：<br/>Private Sub AcadDocument_EndCommand(ByVal CommandName As String)<br/>If CommandName = "VBALOAD" Or CommandName = "APPLOAD" Then<br/>&nbsp;&nbsp;&nbsp; Call Commandks<br/>&nbsp;&nbsp; End If<br/>End Sub</p><p>Sub Commandks() '对每一个定义的宏进行命令行的预先录制批处理<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "(defun C:zdx()(vl-vbarun " &amp; Chr$(34) &amp; "azj" &amp; Chr$(34) &amp; "))" &amp; Chr$(13)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "(defun C:sz()(vl-vbarun " &amp; Chr$(34) &amp; "abc" &amp; Chr$(34) &amp; "))" &amp; Chr$(13)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "(defun C:sb()(vl-vbarun " &amp; Chr$(34) &amp; "cde" &amp; Chr$(34) &amp; "))" &amp; Chr$(13)<br/>End Sub<br/><br/>*************************************************</p><p>西北凡人-------<a href="http://www.abofanyi.com/blog">http://www.abofanyi.com/blog</a></p>

fly2890 发表于 2022-8-18 01:57:18

azjmjsj 发表于 2008-1-23 12:56
本帖最后由 作者 于 2008-1-23 12:57:24 编辑给你一个例子：Private Sub AcadDocument_EndCommand(ByVal ...

太感谢了，找了好久，本菜鸟没有找到比这个更简便的方法了，感谢楼主无私分享！！！

chixun99 发表于 2022-8-18 10:24:04

可以用lisp加载和运行vba

Linxian1028 发表于 2022-10-1 18:57:10

写一个LSP文件，预先在CAD的启动组里也可以。
(defunc:xbar()(command"vbaRun" "ShowMenu"))
类似这么一个命令行就可以运行你的VBA命令。
页: [1]
查看完整版本: [求助]如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？